Jump to content

SnoopzaY

Active Members
  • Posts

    65
  • Joined

  • Last visited

Posts posted by SnoopzaY

  1. use strict;

    use warnings;

    use WWW::Mechanize;

    my $mech=WWW::Mechanize->new();

    my $file="prox.txt";

    my $site="http://nntime.com/index.php";

    my $page=0;

    $mech->agent_alias("Windows IE 6");

    $mech->get($site);

    NEXT_PAGE:

    print "Sunt la pagina $page\n";

    extract_proxies($mech->content,$file);

    if($mech->content=~/next/i) {

    $mech->follow_link( text => "Next" );

    sleep(3);

    $page++;

    goto NEXT_PAGE;

    }

    sub extract_proxies {

    my $content=shift || die "continut\n";

    my $file =shift || die "fisier in care scriu\n";

    open(F,">>$file") || die "nu pot deschide fisierul pentru a scrie in el\n";

    while($content=~/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5})/g) {

    print F $1,"\n";

    }

    close F;

    }

    mai trebuiai inlocuit ceva? aici

  2. Bux.to este un site pentru sufing "bani online" + bani de pe referali cati strangi in "afacere" aici va inregistrati http://bux.to/

    Exemplu 100 persoane in subordine X 10 site-uri deschise

    (0.01$) = 10 $ / zi = 300 $ / luna

    http://rapidshare.com/files/87909465/BuxReg.rar BUx.to bot

    http://rapidshare.com/files/87910281/BuxBot.rar.html Referali cati vrei

    Ajutor la pentru crack ... nu am reusit am incercat cu 2 softuri da degeaba :(

    Poate ma puteti ajuta

    Pm sau in topic

×
×
  • Create New...