вопрос по игре в одноклассниках

[lck]

Подскажите неучу.
Есть игра в одноклассниках - червоне дышло (аля колхоз)
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Пытаюсь создать что то наподобие программки -
авторизация и в окошках просто инфу (статистику по игре)
скока голдов скока денег скока опыта..
С помощью чарли я принимаю пакеты..
интересует авторизация.
Зашол в одноклассники. и жмякаю на игру.
1) 1 пакет был такой
Метод GET
[Ссылки могут видеть только зарегистрированные и активированные пользователи] d%3DPopLayerClose&p_sId=0
ну и там соответсвенно появились
AUTHCODE sid uid..

2) дальше смотрю пакеты.. тут видимо перенаправили меня на другой сервер

[Ссылки могут видеть только зарегистрированные и активированные пользователи] c&clientLog=0&refplace=catalog&application_key=CBAMDCABABABABABA&auth_sig=a17e9ca7fa7c28186f8aa109b057dee9&session_key=78d9YI0CW754WIbBx1329I3YY55bdn5CT3.3dm bay8395ncaz106bA2fxe6&logged_user_id=179771652096&web_server=odnoklassniki.ru&sig=ddda616c29ecaaca788f710ec7ef02d2
я заметил что некоторые параметры постоянны (application_key)

Подскажите плиз. как вытащить при поссылке POST
sig, auth_sig, session_key sid uid vid.... и вся остальная инфа
как они генерируются? может кто знает..
Вообще реально такую фигню сделать или я чего то не допанимаю и тут всё намного сложней..
PS пишу эту хрень на делфи с при помощи IdHTTP
Спс

[blad56]

парси в исходнике uid, sid, authcode. потом присваивай им переменную и добавляй в гет запрос. сложно ничего нет:) Если перенаправление на другой сервер, то в HandleRediricted:= True; в Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]

[lck]

Правильно ли я понял?
вот кусок кода


....
StrPage:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
S1:=Pars('uid="',StrPage,'"');
S2:=Pars('sig="',StrPage,'"');
//и в таком духе собираем всю коллекцию
...

function TForm1.Pars(T_, ForS, _T: string): string;
var
a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then
Exit;
a := Pos(T_, ForS);
if a = 0 then
Exit
else
a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then
Result := Copy(ForS, 1, b - 1);
end;

[CyberThief]

Ну что получилось что нибудь с одноклассниками???

[gum_classis]

Правильно ли я понял?
вот кусок кода

Цитата:



....
StrPage:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
S1:=Pars('uid="',StrPage,'"');
S2:=Pars('sig="',StrPage,'"');
//и в таком духе собираем всю коллекцию
...

function TForm1.Pars(T_, ForS, _T: string): string;
var
a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then
Exit;
a := Pos(T_, ForS);
if a = 0 then
Exit
else
a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then
Result := Copy(ForS, 1, b - 1);
end;
Да правильно,кстате отличную функцию ты выбрал,я тоже ей пользуюсь