ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm2.Button1Click(Sender: TObject);
begin
request:=tstringlist.Create();
response:=tstringlist.Create();


request.text:=IDHTTP1.Get('http://passport.yandex.ru/passport?mode=register');
posl:=copy(request.Text,pos('ncrnd=',request.Text) +6,6);
id:=copy(request.Text,pos('idkey',request.Text)+14 ,22);
response.add('idkey='+id);
response.add('step=one');
response.add('filled=');
response.add('fresh=');
response.add('iname=вася');
response.add('fname=пупкин');
response.add('login='+edit1.text);
response.add('done=done');
request.text:=IDHTTP1.post('http://passport.yandex.ru passport?mode=register&ncrnd='+posl,response);
posl:=copy(request.Text,pos('ncrnd=',request.Text) +6,6);
id2:=copy(request.Text,pos('idkey',request.Text)+1 4,22);
showmessage(posl);
fs:=tfilestream.create('c:\1.gif',fmcreate);
idhttp2.get('http://passport.yandex.ru/digits?idkey='+id2,fs);
fs.Free;
image1.picture.LoadFromFile('c:\1.gif');
end;

procedure TForm2.Button2Click(Sender: TObject);
begin

response.Text:='';
response.add('idkey='+id);
response.add('step=two');
response.add('filled=');
response.add('login='+edit1.Text);
response.add('iname=вася);
response.add('fname=пупкин');
response.add('time=');
response.add('gmt_offset=');
response.add('passwd=123456');
response.add('passwd2=123456');
response.add('hintq=6');
response.add('udhintq=');
response.add('hinta=0123234243');
response.add('email=');
response.add('phonenumber=');
response.add('code='+edit2.text);
response.add('agreed=yes');
response.add('newform=');
request.text:=IDHTTP1.post('http://passport.yandex.ru/passport?mode=register&ncrnd='+posl,response);



end. end.