sQuo Posted April 23, 2014 Share Posted April 23, 2014 [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] Link to comment Share on other sites More sharing options...
Recommended Posts