[Delphi] Регистратор ICQ

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

Подскажите где ошибся

Код получания капчи, и еще дву штуковин =):

PHP:

procedure TForm1.Button2Click(Sender: TObject);
var
r:widestring;
curl:string;
strStream: String;
memStream: TMemoryStream;
jpegimg: TJPEGImage;
begin
r:=idhttp1.Get('http://www.icq.com/join/ru');
delete(r,1,pos('name="karmaSyncKey" value="',r)+27);
karmaSyncKey:=copy(r,1,pos('"',r)-1);
delete(r,1,pos('id="gnm" name="gnm" value="',r)+27);
gnm:=copy(r,1,pos('"',r)-1);
delete(r,1,pos('<img id="captcha_image" class="captcha_image" src="',r)+50);
curl:=copy(r,1,pos('"',r)-1);
try
strStream := Form1.idhttp2.Get (curl);
except
Exit;
end;
memStream := TMemoryStream.Create;
jpegimg := TJPEGImage.Create;
try
memStream.Write(strStream[1], Length(strStream));
memStream.Position := 0;
jpegimg.LoadFromStream(memStream);
Image1.Picture.Assign(jpegimg);
finally
memStream.Free;
jpegimg.Free;
end;
end;

Код регистрации:

PHP:

var
r:widestring;
p:tstringlist;
begin
IdCookieManager1.CookieCollection.Clear;
idhttp1.get('http://www.icq.com/');
p:=tstringlist.Create;
p.add('karmaSyncKey='+karmaSyncKey);
p.add('first_name=Denis');
p.add('last_name=Ivanov');
p.add('[email protected]');
p.add('password=Vasa123');
p.add('retype_password=Vasa123');
p.add('birthday_day=4');
p.add('birthday_month=10');
p.add('birthday_year=1993');
p.add('gender=1');
p.add('captcha='+edit1.text);
p.add('gnm='+gnm);
memo1.Text:=utf8toansi(idhttp1.Post('http://www.icq.com/join/ru',p));
end;

 

"я тут что-то написал, вроде работает, а может не работает, где ошибка?"
такие вопросы не прокатывают, если хочешь получить ответ, то пиши прямо, что конкретно не получается, стесняться не надо)

 

Не регистрируется =)

снифером проверял прога шлет теже запросі что и сайт, возможно чтото с куками, кукисменеджер прицепил к идхттп

 

При нажатии на кнопку регистрация, программа шлет данные, а в ответ получаю страницу регистрации

 

Извиняюсь что не по теме . Вы не в курсе есть ли при регистрации асек ограничения по ip? или же необходимы прокси?

 

Да, нужны прокси

 

Ауууу, форумчане, можете помоч плз, оч нужно

 

Что конкретно не получается? Я вот щас тоже буду делать.

Глянь, может они и вовсе не уходят?

PS так ты отправил письмо на емайл програмно? в соседней теме

 

кого интересует http://rghost.ru/49914088