[Pearl777]

Здравствуйте! Я новичок в delphi, вот решил для начала сдеать регистратор на сайтах uCoz. При написании этой программы возникли некоторые проблеммы.
Сделал парсер капчи, он выводит её в Image. Все прекрасно работает, но только при регистрации пишет, что капча введена неверно. В чем может быть проблемма?

Код получения капчи:

Код:

var
 html:WideString;
 Stream:TStream;
 gif:TGIFimage;
begin
    html:=IdHTTP1.Get('http://freezly.ru/index/3');
    Delete(html,1,pos('<img alt="" style="margin:0;padding:0;border:0;cursor:pointer;" id="secImg" align="absmiddle" src="',html)+length('<img alt="" style="margin:0;padding:0;border:0;cursor:pointer;" id="secImg" align="absmiddle" src="'));
    Delete(html,pos('" onclick',html),length(html));
    Stream:=TStringStream.Create(IdHTTP1.Get('http://freezly.ru/'+html));
    Gif:=TGIFImage.Create;
    Gif.LoadFromStream(Stream);
    Image1.Picture.Assign(Gif.Bitmap);
    Gif.Free;
    Stream.Free;
     end;

Код отправки Post запроса на регистрацию:

Код:

var params,responseres:tstringlist;
begin
idhttp1.AllowCookies:=True;
idhttp1.CookieManager:=IdCookieManager1;
idHTTP1.HandleRedirects:=True;
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('jkd498=1');
params.Add('act=b3eaf0297e54cda7dbb515f796a255d1a17c1c');
params.Add('ssid=371134361563377774606');
params.Add('jkd428=1');
params.Add('sos=3033334202');
params.Add('password1='+XPEdit3.Text);
params.Add('name=username surname');
params.Add('user='+XPEdit2.Text);
params.Add('password='+XPEdit3.Text);
params.Add('email='+XPEdit4.Text);
params.Add('gender=1');
params.Add('code='+XPEdit1.Text);
params.Add('seckey=4550763042440553773');
params.Add('a=4');
params.Add('s=0');

responseres.Text:=idhttp1.Post('http://freezly.ru/index/',params);
    if Pos('Регистрация успешно завершена!',responseres.Text)>0 then
         XPEdit5.Text := responseres.Text
    else ShowMessage('Ошибка регистрации!');
    XPEdit5.Text := responseres.Text;

[scroyler]

params.Add('jkd498=1');
params.Add('act=b3eaf0297e54cda7dbb515f796a255d1a1 7c1c');
params.Add('ssid=371134361563377774606');
params.Add('jkd428=1');
params.Add('sos=3033334202');
params.Add('seckey=4550763042440553773');
params.Add('a=4');
params.Add('s=0');

проверь эти значения, они скорей всего меняются и их надо парсить

[Pearl777]

Сообщение от scroyler

params.Add('act=b3eaf0297e54cda7dbb515f796a255d1a1 7c1c');
params.Add('ssid=371134361563377774606');
params.Add('sos=3033334202');
params.Add('seckey=4550763042440553773');

Вот эти значения меняются, в html нашел только три, Sos значения там нету. Но вот при проверке сниффером он есть.

[Pearl777]

Сделал парсинг для трех параметров, но для sos так и не нашел. Может кто знает как парсить данный параметр?

Нашел вот такую функцию в html коде

var _y8M=''; function _dS(s){ var i;var r=""; var l=s.length-1; var k=s.substr(l,1); for (i=0;i<l;i++){ c=s.charCodeAt(i)-k;  if(c<32){ c=127-(32-c);} r+=String.fromCharCode(c); } return r;} _y8M=_dS('?lqsxw#w|sh@%klgghq%#qdph@%vrv%#ydoxh@%54:4483855%#2A3');</script>

На одном сайте читал что это зашифрованый sos параметр, но вот как его расшифровать в delphi не могу понять.

[Pearl777]

С sos параметром разобрался.