-
Notifications
You must be signed in to change notification settings - Fork 0
/
ProxyChecker.pas
35 lines (30 loc) · 897 Bytes
/
ProxyChecker.pas
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
program project1;
{$mode objfpc}{$H+}
uses laz_synapse,HttpSend,Sysutils,Classes,RegExpr;
var
reg:TRegExpr;
http:THttpSend;
FS:TStringList;
InputFile:TStringList;
i:integer;
Addr:String;
InText:integer;
begin
FS:=TStringList.Create;
reg:=TregExpr.Create;
InputFile:=TStringList.Create;
http:=Thttpsend.Create;
http.UserAgent :='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)';
http.Sock.SocksResolver:=true;
http.Timeout:=800;
InputFile.LoadFromFile('/Users/mas/Documents/ProxyChecker/dHidder/proxy.txt');
for i:=0 to inputfile.Count-1 do begin
Addr:=InputFile.Strings[i];
InText:= Pos(':', Addr);
http.ProxyHost:= Copy(Addr, 0, InText - 1);
http.ProxyPort:= Copy(Addr, InText + 1, Length(Addr));
if http.HTTPMethod('get','213.180.204.3') then begin
writeln(http.ProxyHost);
end;
end;
end.