Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 12
  1. #1
    W32.Lovgate
    Registriert seit
    01.07.2007
    Beiträge
    354

    Standard 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";    
    }

  2. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    skalex (24.04.2010)

  3. #2
    Fortgeschrittener
    Registriert seit
    04.04.2010
    Beiträge
    44

    Standard

    Interrent wäre ein Script was ALLE Proxys dieser seite holt.
    No Compromise - You´ll never fight alone


    www.youtube.com/watch?v=Z3HZtNIMvrE

    Sex is like Hacking . You get in, you get out, then you hope that you didn't leave something behind that can be traced back to you :-)


  4. #3

  5. #4
    Fortgeschrittener
    Registriert seit
    04.04.2010
    Beiträge
    44

    Standard

    Dass hört sich gut an, bin gespannt wies aussieht, wenns fertig ist )
    No Compromise - You´ll never fight alone


    www.youtube.com/watch?v=Z3HZtNIMvrE

    Sex is like Hacking . You get in, you get out, then you hope that you didn't leave something behind that can be traced back to you :-)


  6. #5
    W32.Lovgate
    Registriert seit
    01.07.2007
    Beiträge
    354

    Standard

    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";
    }

  7. #6
    Fortgeschrittener
    Registriert seit
    04.04.2010
    Beiträge
    44

    Standard

    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 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
    Geändert von skalex (25.04.2010 um 00:16 Uhr)
    No Compromise - You´ll never fight alone


    www.youtube.com/watch?v=Z3HZtNIMvrE

    Sex is like Hacking . You get in, you get out, then you hope that you didn't leave something behind that can be traced back to you :-)


  8. #7
    W32.Lovgate
    Registriert seit
    01.07.2007
    Beiträge
    354

    Standard

    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

  9. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    skalex (25.04.2010)

  10. #8
    Fortgeschrittener
    Registriert seit
    04.04.2010
    Beiträge
    44

    Standard

    Du wirst lachen ich zuerst auch nicht )


    Okay dann bin ich auf das neue "Releasescript" gespannt
    No Compromise - You´ll never fight alone


    www.youtube.com/watch?v=Z3HZtNIMvrE

    Sex is like Hacking . You get in, you get out, then you hope that you didn't leave something behind that can be traced back to you :-)


  11. #9
    W32.Lovgate
    Registriert seit
    01.07.2007
    Beiträge
    354

    Standard

    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.

  12. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    skalex (01.05.2010)

  13. #10
    Fortgeschrittener
    Registriert seit
    04.04.2010
    Beiträge
    44

    Standard

    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
    No Compromise - You´ll never fight alone


    www.youtube.com/watch?v=Z3HZtNIMvrE

    Sex is like Hacking . You get in, you get out, then you hope that you didn't leave something behind that can be traced back to you :-)


Seite 1 von 2 12 LetzteLetzte

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •