getproxyservers scripts

[]=-antr4xx-=[]

Von mir geschrieben, holt die Proxyserver von http://proxy.speedtest.at (http://proxy.speedtest.at/)


#! /usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

sub get_proxys {
my ($ua, $req, $res, @ret);

$ua = new LWP::UserAgent();
$ua->agent("Mozilla Firefox");

$req = new HTTP::Request(GET => "http://proxy.speedtest.at/proxybyActuality.php?offset=0");
$req->content_type('application/x-www-form-urlencoded');

$res = $ua->request($req);

if($res->is_success) {
$_ = $res->content();

my @results = split "<b>";
my $i;

foreach $i (@results) {
if($i =~ /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5})/) {
#print $1."\n";
push @ret, $1;
}
}
}
return @ret;
}

my @proxys;

@proxys = get_proxys();
foreach (@proxys) {
print $_."\n";
}

[skalex]

Interrent wäre ein Script was ALLE Proxys dieser seite holt.

[]=-antr4xx-=[]

in arbeit...

[skalex]

Dass hört sich gut an, bin gespannt wies aussieht, wenns fertig ist :))

[]=-antr4xx-=[]

fertig:

#! /usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

sub get_proxys {
my ($ua, $req, $res, @ret);
my $url = $_[0];

$ua = new LWP::UserAgent();
$ua->agent("Mozilla Firefox");

$req = new HTTP::Request(GET => $url);
$req->content_type('application/x-www-form-urlencoded');

$res = $ua->request($req);

if($res->is_success) {
$_ = $res->content();

my @results = split "<b>";
my $i;

foreach $i (@results) {
if($i =~ /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5})/) {
push @ret, $1;
}
}
}
return @ret;
}

my @proxys;

@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=0");
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyCountry.php?offset=0"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyActuality.php?offset=0"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxyOnlyTransparent.php?offset=0"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxyOnlyAnonymous.php?offset=0"));
foreach (@proxys) {
print $_."\n";
}

[skalex]

Super :)

Aber wenn ich mich jez nich total verguck habe dann liest doch dass Script nur Proxy 1-25 auf 5 Seiten aus oder?

Sprich du hast z.b. klicken (http://proxy.speedtest.at/proxybyPerformance.php?offset=0) und dort hast du ja
1-25 (http://proxy.speedtest.at/proxybyPerformance.php?offset=0) : 26-50 (http://proxy.speedtest.at/proxybyPerformance.php?offset=25) : 51-75 (http://proxy.speedtest.at/proxybyPerformance.php?offset=50) : 76-100 (http://proxy.speedtest.at/proxybyPerformance.php?offset=75) : 101-125 (http://proxy.speedtest.at/proxybyPerformance.php?offset=100) : 126-150 (http://proxy.speedtest.at/proxybyPerformance.php?offset=125) : 151-175 (http://proxy.speedtest.at/proxybyPerformance.php?offset=150) : 176-200 (http://proxy.speedtest.at/proxybyPerformance.php?offset=175) : 201-225 (http://proxy.speedtest.at/proxybyPerformance.php?offset=200) : 226-250 (http://proxy.speedtest.at/proxybyPerformance.php?offset=225) : 251-275 (http://proxy.speedtest.at/proxybyPerformance.php?offset=250) : 276-300 (http://proxy.speedtest.at/proxybyPerformance.php?offset=275) : 301-325 (http://proxy.speedtest.at/proxybyPerformance.php?offset=300) : 326-350 (http://proxy.speedtest.at/proxybyPerformance.php?offset=325) : 351-375 (http://proxy.speedtest.at/proxybyPerformance.php?offset=350) : 376-400 (http://proxy.speedtest.at/proxybyPerformance.php?offset=375) : 401-425 (http://proxy.speedtest.at/proxybyPerformance.php?offset=400) : 426-450 (http://proxy.speedtest.at/proxybyPerformance.php?offset=425) : 451-475 (http://proxy.speedtest.at/proxybyPerformance.php?offset=450) : 476-500 (http://proxy.speedtest.at/proxybyPerformance.php?offset=475) : 501-525 (http://proxy.speedtest.at/proxybyPerformance.php?offset=500) : 526-550 (http://proxy.speedtest.at/proxybyPerformance.php?offset=525) : 551-575 (http://proxy.speedtest.at/proxybyPerformance.php?offset=550) : 576-600 (http://proxy.speedtest.at/proxybyPerformance.php?offset=575) : 601-625 (http://proxy.speedtest.at/proxybyPerformance.php?offset=600) : 626-650 (http://proxy.speedtest.at/proxybyPerformance.php?offset=625) : 651-675 (http://proxy.speedtest.at/proxybyPerformance.php?offset=650) : 676-700 (http://proxy.speedtest.at/proxybyPerformance.php?offset=675) : 701-703 (http://proxy.speedtest.at/proxybyPerformance.php?offset=700)Aber wenn i dass richtig sehe liest wie gesagt dass Scpirt doch nur Proxy 1-25 aus oder?


Somit müsste der untere Teil deines Scripts doch eig. so lauten:

@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=0");
@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=25");
@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=50");
@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=75");
@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=100");
usw usw usw usw....
am schluß wäre dann
@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=700");

Dass ist aber nur bei der Seite klicken (http://proxy.speedtest.at/proxybyPerformance.php?offset=700)

Und z.b. bei klicken (http://proxy.speedtest.at/proxybyCountry.php?offset=0)

push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyCountry.php?offset=0"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyCountry.php?offset=25"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyCountry.php?offset=50"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyCountry.php?offset=75"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyCountry.php?offset=100"));
=>> letze:
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyCountry.php?offset=700"));


Und dass ganze Prozdere dann noch bei

push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyActuality.php?offset=0 - 700"));

push(@proxys, get_proxys("http://proxy.speedtest.at/proxyOnlyTransparent.php?offset=0 - 200"));

push(@proxys, get_proxys("http://proxy.speedtest.at/proxyOnlyAnonymous.php?offset=0 - 475"));


Wäre halt n haufen Arbeit die ganzen links btw. die ganzen Zahlen einzutragen.
Vielen Dank
SK

[]=-antr4xx-=[]

mann, ich hatte das gar nicht gesehen, dachte es waeren nur die paar...
ich werde das morgen machen, allerding dynamischer als die viele tipperei.
danke fuer den hinweis :D

[skalex]

Du wirst lachen ich zuerst auch nicht ;))


Okay dann bin ich auf das neue "Releasescript" gespannt :)

[]=-antr4xx-=[]

Bitte sehr:


#! /usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

sub get_proxys {
my ($ua, $req, $res, @ret);
my $url = $_[0];

$ua = new LWP::UserAgent();
$ua->agent("Mozilla Firefox");

$req = new HTTP::Request(GET => $url);
$req->content_type('application/x-www-form-urlencoded');

$res = $ua->request($req);

if($res->is_success) {
$_ = $res->content();

my @results = split "<b>";
my $i;

foreach $i (@results) {
if($i =~ /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5})/) {
push @ret, $1;
}
}
}
if(@ret == 0) {
exit;
}
return @ret;
}

my @proxys;
my $offset = 0;

while(1==1) {
@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=$offset");
foreach (@proxys) {
print $_."\n";
}
$offset=$offset+25;
}

Ich brauche nur einen der 4 Links, weil sich überall alle Proxys drin befinden, nur anders sortiert. ich habe nach performance sortiert.
viel spass.

[skalex]

Ich brauche nur einen der 4 Links, weil sich überall alle Proxys drin befinden, nur anders sortiert. ich habe nach performance sortiert.
viel spass.

Ah okay, so genau hatte ich da nich geguckt :)

Aber funzt super, tausend Dank :)

[Computerbastler]

Was noch fehlt ist speicher funktion , das er die grfunden proxy dan zb proxy.txt spricher finde das vorteilhafter naja ka ob du die funktion noch einbauen kannst ....

[Bonkers]

Bau noch nen kleinen Checker ein, also einfach einen Socket zum Proxy öffnen, und z.B. Google abfragen, um zu prüfen ob es einer dieser "ProxyLab"-Teile ist ;)