Perl Wordlist Key Generator

[sQuo]

[HIDE-THANKS][LENGUAJE=perl]

#!/usr/bin/perl

my @chars = ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","0","1","2","3","4","5","6","7","8","9");

$max = 20;

$counter = 0;

for($i=5;$i

open FILE, ">>keys/$i" or die $!;

$before = $i-1;

open FBEFORE,"
while(){

$cline = $_;

$cline =~ s/\n//;

foreach $char (@chars){

print FILE $cline.$char."\n";

#display

$jam = localtime;

$counter++;

system("clear");

print "##################################################\nKey Generator 20 digit length\n--------------------------------------------------\n";

print "String Length\t: ".$i."\nGenerated\t: ".$counter."\n--------------------------------------------------\n".$jam."\n\n";

}

}

close FILE;

close FBEFORE;

#exit;

}

exit;

[/LENGUAJE][/HIDE-THANKS]