getproxyservers scripts

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

Code:

---

#! /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";   
}

---

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

in arbeit...

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

fertig:

Code:

---

#! /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";
}

---

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 und dort hast du ja

Zitat:

---

1-25 : 26-50 : 51-75 : 76-100 : 101-125 : 126-150 : 151-175 : 176-200 : 201-225 : 226-250 : 251-275 : 276-300 : 301-325 : 326-350 : 351-375 : 376-400 : 401-425 : 426-450 : 451-475 : 476-500 : 501-525 : 526-550 : 551-575 : 576-600 : 601-625 : 626-650 : 651-675 : 676-700 : 701-703

---

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

Und z.b. bei klicken

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

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

Du wirst lachen ich zuerst auch nicht ;))


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

Bitte sehr:

Code:

---

#! /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.

Zitat:

---

Zitat von '

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 :)

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 ....

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 ;)