ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
 
 
Опции темы Поиск в этой теме Опции просмотра

Шайтанская прога. Delphi 7
  #1  
Старый 13.03.2010, 19:59
Ruzzi
Новичок
Регистрация: 20.10.2009
Сообщений: 9
Провел на форуме:
25279

Репутация: 0
По умолчанию Шайтанская прога. Delphi 7

Потратив десятки часов на чеканье аккаунтов для одной игрушки в соц сетях чуть не съехал с катушек. Но тут в мозгу звякнуло "Я же программист какого я всё ручками делаю...". Начал поиск инфы в интернете. Собственно пишу программу которая берёт мыло и пасс, заходит на него добавляет фотку, добавляет приложению на свою страницу и регает в нём персонажа(а регать там вообщем то ничего не надо просто передаётся запрос). Вот что уже есть:
Код:
implementation   
var S,Y,L,vid,auth_key:string; 
{$R *.dfm}
 procedure TForm1.ChekClick(Sender: TObject);
var Data:TStringList; 
var Reg:TStringList; 
begin Data:=TStringList.Create;  Data.Add('page=http://my.mail.ru/');  Data.Add('Login='+editmail.Text);  Data.Add('Domain='+domain.Text);  Data.Add('Password='+editpassword.Text); 
try 
S:=IdHTTP1.Post('http://my.mail.ru/cgi-bin/auth', Data); except 
end; 
Y:=IdHTTP1.Get('http://my.mail.ru/mail/'+editmail.Text); 
if Pos('logout', Y)<>0 then   
otv.Caption:='On'  
else   
otv.Caption:='Off';   
Reg:=TStringList.Create; 

Reg.Add('action=register'); 
Reg.Add('object=auth');
if otv.Caption='On' then   
IdHTTP1.Get('http://my.mail.ru/mail/hwndap8f/app-canvas?appid=420353');   
sleep(1000);   
IdHTTP1.Get('http://my.mail.ru/cgi-bin/app/inst?appid=420353&ref=&uaflag_notify=1&uaflag_news=1&uaflag_widget=1');   
sleep(1000);   
IdHTTP1.Post('http://soc.it-territory.ru/entry_point.php?action=register&object=auth',Reg);

end;
Прога уже сама заходит на страничку и добавляет её с свои приложения, но с регистрацией персонажа всё не так просто вышло. Сниффер не показал post data.
Пришлось выдирать это из всего запроса вот что нарылось

Код:
vid'2528774459443015291app_friends	 actionregisteruid	form		nick3РҐРёСЂРѕ Накамураcfg	phair30cbody0 gender1pbodyphead5	kindchairauth_keyA22daad5a95388fdbcddb27ca972873b4partner	photo_http://avt.appsmail.ru/mail/2jrekhbl/_avatarbigprofileAhttp://my.mail.ru/mail/2jrekhbl/ 
//Это сам запрос 


<iframe class="app" marginheight="0" marginwidth="0" src="http://soc.it-territory.ru/images/game/game.html?app_id=420353&session_key=0dcc03de9e2ed6ca4ba1abec14e687a7&authentication_key=22daad5a95388fdbcddb27ca972873b4&is_app_user=1&oid=2528774459443015291&vid=2528774459443015291&window_id=CometName_191a18bd1f5d6694a86aa13d9828d7d2&ext_perm=notifications,stream,widget" class="widget" frameborder="0" scrolling="no" width="760px" id="420353" height="1260"></iframe>
 //Это выдрано из хтмл кода странички  


vid=2528774459443015291 
app_friends 
action=register 
uid=form 
nick= 
cfg=phair 
30=cbody 
0=gender 
1=pbody 
phead=5 
kind=chair 
auth_key=auth_key 
//А это примерно что мне удалось расшифровать. Параметры и значения post.

Ачатовцы, прошу у вас помощи! Кто может объяснить как добавить загрузку фотки, а там пост запрос с тремя значениями и я хз как его отправить. И разобраться с регистрацией персонажа. Отписывайтесь сюды, кто желает помочь в асю (561347487). Если разберусь с ней для ачатовцев будет в паблике.

Последний раз редактировалось Ruzzi; 13.03.2010 в 20:05..
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Литература Delphi Sams С/С++, C#, Delphi, .NET, Asm 2 19.03.2010 19:46
Books PSalm69 Избранное 248 27.10.2009 04:52
Обзор софта BackTrack3 Shelda Soft - *nix 2 06.10.2009 10:42
Virus.Win32.Induc.a или "Снова записки новичка" _=(mac)=_ Защита ОС: вирусы, антивирусы, файрволы. 5 24.08.2009 23:34
Азы Delphi Morph Авторские статьи 1 13.03.2005 01:22



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ