Пишу программку на делфях для взлома игры kroko.vkontakte.ru (нужна помощь)

[Assembler]

Вобщем. Все вроде бы ничего, написал так что sig генерирует и если в ручную отправлять то все работает ... Отправляется примерно вот это... http://api.vkontakte.ru/api.php?api_id=1709838&key=1402&method=putVariable&v=2.0&value=458485&sig=eb5df05188517bf1522ea50d39fd25d0 Но не могу понять как отправить енто из программы. Так же какие то конфликты со входом в контакт. Вплане вроде бы и заходит из программы но не до конца может кто посмотрим в чем косяк...

Вот скидываю сорцы. _http://letitbit.net/download/14372.1445ec4346753fd2c4932913d/kroko.rar.html



Это регистрация в контакте. Вроде и заходит но выдает что то типа
(<input type='hidden' name='s' id='s' value='316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a' />)

var i:integer ;
CookMan: TidCookieManager;
Params: TStringList;
username,password:string;
begin

IdHTTP1.AllowCookies:=true;
CookMan:=TidCookieManager.Create(idHTTP1);
idHttp1.CookieManager := CookMan;
username := edit1.Text;
password := edit2.Text;
Params:=TStringList.Create;
Params.add('op=a_login_attempt');
Params.add('email='+username);
Params.add('pass='+password);
Params.add('expire=');
Params.add('vk=');


try
IdHTTP1.Port:=80;


IDHttp1.Request.UserAgent:='Mozila';


IdHTTP1.Request.Referer:='http://login.vk.com/?act=login';


memo1.Lines.Text:=
IdHttp1.Post('http://login.vk.com/?act=login',params);

finally
// IdHTTP1.Free;
// IdHandler.Free;
// Params.Free;
end;


А если пытаюсь таким же макаром отправить строку которая вверху. то пишет вабще типо user autorisation failed. Вобщем мб кто помогет.

[Assembler]

Делаю таким способом.
var
ss : TStringStream;
value: String;
sig : String;
begin
//IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
ss := TStringStream.Create('');
sig := richedit1.Text;
value := inttostr(spinedit1.Value);
ss.WriteString('api_id=1709838&key=1402&method=putVariable&v=2.0&value='+value+'&sig='+sig);
memo1.Lines.Text:=IdHTTP1.Post('http://api.vkontakte.ru/api.php?',ss);
ss.Free;

И выдает
<?xml version="1.0" encoding="utf-8"?>
<error>Invalid application API ID</error>

что означает что строка не правильно составлена

... А если отправлять без выпендрежа целую строку user афторизэйшн фаилд типо не зайдено в контакт... Хотя в броузере открыт...

[Berman]

Эээээ

(<input type='hidden' name='s' id='s' value='316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a' />)
какбэ это твои куки, которые ты должен подставить в кукинанежрер
316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a

[ArkNet]

Полностю рабочий код входа в ВК с получением исодного кода анкеты в Memo1
Indy 10.x.x
var
s,pass,str,uns: String;
outfo: TStringList;
begin
pass := StringReplace(edit2.text, ' ', '+', [rfReplaceAll, rfIgnoreCase]);
outfo := TStringList.Create;
idhttp1.Get('http://vkontakte.ru/login.php?op=a_login_attempt');
outfo.Add('act=login');
outfo.Add('email='+edit1.text);
outfo.Add('pass='+pass);
try
uns:=UTF8toANSI(idhttp1.post('http://login.vk.com/', outfo));
s:=copy(uns, 286, 56);
finally
idhttp1.Request.CustomHeaders.Add('Cookie: remixsid=' + s);
str := idhttp1.Get('http://vkontakte.ru/profile.php');
Memo1.Text:=str;
end
end;

[ArkNet]

Работай со Снифером и все будет понятней...

[Jingo Bo]

А собсна чего именно взламывать хотите? Изменение размера хвоста и стыривание слов не нуждается в авторизации, второе уж точно) А там больше и ломать нечево

[090808]

Полностю рабочий код входа в ВК с получением исодного кода анкеты в Memo1
Indy 10.x.x
var
i,a,b,c :integer;
s,pass,str,uns: String;
outfo: TStringList;
begin
pass := StringReplace(edit2.text, ' ', '+', [rfReplaceAll, rfIgnoreCase]);
outfo := TStringList.Create;
idhttp1.Get('http://vkontakte.ru/login.php?op=a_login_attempt');
outfo.Add('act=login');
outfo.Add('email='+edit1.text);
outfo.Add('pass='+pass);
try
uns:=UTF8toANSI(idhttp1.post('http://login.vk.com/', outfo));
s:=copy(uns, 286, 56);
finally
idhttp1.Request.CustomHeaders.Add('Cookie: remixsid=' + s);
str := idhttp1.Get('http://vkontakte.ru/profile.php');
Memo1.Text:=str;
end
end;

Нужно в integer весь алфавит было записать :D

[ArkNet]

Просто вырезал код из своей программы

[Assembler]

ArkNet, спасибо. Помогло, теперь все работает. Осталось слово чтобы отгадывала доделать.

[ArkNet]

А ты снифером проверял пост запрос?Дай ссылку на приложения в ВК

[HakaR]

Дай ссылку на приложения в ВК
Пишу программку на делфях для взлома игры kroko.vkontakte.ru (нужна помощь)
КЭП

[Assembler]

=) api_id=1709838, ARKnet нет не проверял.