[Tutor] Password Dictionary Creator (perl)

[Coziboy]

semoga ga repost
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

[anko_kum4ru]

lumayan keren..

[Coziboy]

(06-09-2012 12:53 PM)anko_kum4ru Wrote:  lumayan keren..

thread perdana um...
Thx banget rep na

[anharku]

ijin nyobain om,....

[Coziboy]

(06-09-2012 05:18 PM)anharku Wrote:  ijin nyobain om,....

sip om

[Lintang27™]

...............

thanks kk

[Coziboy]

(06-10-2012 11:38 AM)Lintang27™ Wrote:   ...............

thanks kk

sip kak

[[DC]Anwar]

cara buka file mehdictionary.pl pke apa yaaa??
maklum msh newbietol

[Coziboy]

(06-27-2012 08:40 PM)[DC]Anwar Wrote:  cara buka file mehdictionary.pl pke apa yaaa??
maklum msh newbietol

pake xampp kak

[1stswtjr]

ada penjelasan ga gan tuk pemakaian nya . . ??