[Pearl777]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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 запроса на регистрацию:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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 параметром разобрался.