- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
procedure tnew.execute;
var
cod:utf8string;
id:byte;
captcha,sim,idc:string;
ss:TStringStream;
s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,
s11,s12,s13,s14,s15,s16,s17,s18,
s19,s20,s21,s22,s23,s24,s25,s26,
s27,s28,s29,s30,s31,s32,s33:utf8string;
FS:TFileStream;
Antigate: TAntigate;
begin
form3.IdHTTP1.Request.Referer :='http://www.aboutlive.ru/phpBB2/profile.php?mode=register';
cod:=form3.IdHTTP1.get('http://www.aboutlive.ru/phpBB2/profile.php?mode=register&agreed=true');
function 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;
idc:= pars('confirm_id" value="',cod,'" />');
sim:= pars('sid" value="',cod,'" />');
FS:=TFileStream.Create('captcha.png',FMCreate);
form3.IdHTTP1.Get('http://www.aboutlive.ru/phpBB2/profile.php?mode=confirm&id='+idc, FS);
FS.free;
form3.Image1.Picture.LoadFromFile('captcha.png');
Antigate := TAntigate.Create; // это разгадка капчи
antigate.Calc:=1;
antigate.MaxRetry:=3;
Antigate.Key := '';
Antigate.ImageFile := 'captcha.png';
captcha:=Antigate.Recognize;
Antigate.free;
form3.RichEdit1.Lines.Add('Капча: '+AnsiUpperCase(captcha));
form3.IdHTTP1.Request.Referer :='http://www.aboutlive.ru/phpBB2/profile.php?mode=register&agreed=true';
ss := TStringStream.Create;
s1:='username=sadsaddfsa12342';
s2:='[email protected]';
s3:='new_pasword=1234567';
s4:='pasword_confirm=1234567';
s5:='confirm_code='+captcha;
s6:='icq=';
s7:='aim=';
s8:='msn=';
s9:='yim=';
s10:='website=';
s11:='location=';
s12:='occupation=';
s13:='interests=';
s14:='signature=';
s15:='viewemail=0';
s16:='hideonline=0';
s17:='notifyreply=0';
s18:='notifypm=1';
s19:='popup_pm=1';
s20:='attachsig=1';
s21:='allowbbcode=1';
s22:='allowhtml=1';
s23:='allowsmilies=1';
s24:='language=russian';
s25:='style=1';
s26:='timezone=4';
s27:='dateformat=D M d, Y g:i a';
s28:='mode=register';
s29:='agreed=true';
s30:='coppa=0';
s31:='sid='+sim;
s32:='confirm_id='+idc;
s33:='submit=Отправить';
ss.WriteString (s1+'&'+s2+'&'+s3+'&'+s4+'&'+s5+'&'+s6+'&'+s7+'&'+s8+'&'+s9+'&'+s10+'&'+s11+'&'+s12+'&'+s13+'&'+s14+'&'+s15+'&'+s16+'&'+s17+'&'+s18+'&'+s19+'&'+s20+'&'+s21+'&'+s22+'&'+s23+'&'+s24+'&'+s25+'&'+s26+'&'+s27+'&'+s28+'&'+s29+'&'+s30+'&'+s31+'&'+s32+'&'+s33);