Password Dictionary Creator (perl)

Ok gan lansung ke TKP ja gan...

Nih gan buat para cracker2 yg suka nebak2 kata, mending pake ini bisa create password dictionary.

Code:

#!/usr/bin/perl
system ('clear');
print q(
###############################################################
#               Dictionary Password Generator                   #
#                http://makassarhacker.com                    #
###############################################################
#                   Coding By th3_w1tch                 #
#            http://th3w1tch.wordpress.com              #
###############################################################
);
print q(
Note :
k= Lowarcase [a-z]
B= Upper case [A-Z]
a= Number [0-9]
c= Character Special);
print "\n";
print "\n[-]Input Dictionary Type [k/B/a/c]: ";
$type=<STDIN>;
chomp($type);
print "[-]Input Min Length: ";
$k=<STDIN>;
chomp($k);
print "[-]Input Max Length: ";
$p=<STDIN>;
chomp($p);
print "Starting Dictionary Password . . . .\n";
if ($type=~"k") {$char = "abcdefghijklmnopqrstuvwxyz";}
if ($type=~"B") {$char = $char. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($type=~"a") {$char = $char."1234567890";}
if ($type=~"c") {$char = $char. "!\"\$%&/()=?-.:\\*'-_:.;,";}
sub generator{
@tampung = ();
$shift = shift;
for ($i =0;$i<$shift;$i++){ $tampung[i] = 0;}
do{
  for ($i =0;$i<$shift;$i++){
   if ($tampung[$i] > length($char)-1){
      if ($i==$shift-1){
        $a=0;
        return false;
        print "Finish, Check File dictionary.txt\n";
       }
      $tampung[$i+1]++;
      $tampung[$i]=0;
   }
  }
   $pass = "";   
   for ($i =0;$i<$shift;$i++){ $pass = $pass . substr($char,$tampung[$i],1);}
   open (FILE, '>>dictionary.txt');
   print FILE "$pass\n";
   close (FILE);
   $a++;
   $tampung[0]++;
}while($tampung[$shift-1]<length($char));
}
for ($x=$k;$x<=$p;$x++){
generator($x);
}

save ke mehdictionary.pl

terus run di console...

ato bisa pake aplikasi ini tinggal bikin aja...
2004 Brute Force Dictionary Creator

Sekian dari ane semoga bermanfaat!!!!