Gerador De Word List

#!/usr/local/bin/perl
print "\n#____________Gerador De Word List_____________#\n  \n";
print "#____________Este Perl Gera 175MB_____________#\n \n#________Precione o Enter Para Gerar__________#\n\n\n\n\n";
$continizzle = <STDIN>;
print "Gerando Word List.  \n";
open (BRUTE, ">brute.txt");
#Start writing to the file:
#Brute Force List
$brute = "a"; #Set $brute to 'a' to begin with.
for ($force = 1; $force < 28000000; $force++) { #$force is how many times it will increment
   print BRUTE "$brute\n"; #Print the current $brute out.
   if (ord(substr($brute, -1, 1)) == "122") { #If the last character is 'z',
      if (length($brute != 1)) { #If $brute is more than 1 character long,
         if (ord(substr($brute, -2, 1)) != "122") { #If the last character is 'z' and the second isn't,
            #If the last letter is 'z', but the second-to-last isn't,
            substr($brute, -1, 1) = "a"; #Set the last character as 'a'.
            if (length($brute) > 1) { #If $brute is 2 or more letters long already,
               substr($brute, -2, 1) = chr(ord(substr($brute, -2, 1)) + 1); #Increment the tenth-to-last.
            } else { #If $brute is 2 letters long,
               $brute = "a".$brute; #Attach 'a' to the left.
            }
         }
         #These next if statements are cumulative; you have to have one true to get to the next.
         if (ord(substr($brute, -2, 1)) == "122") { #If the second-to-last character is 'z',
         if (ord(substr($brute, -3, 1)) == "122") { #If the third-to-last-character is 'z',
         if (ord(substr($brute, -4, 1)) == "122") { #If the fourth-to-last-character is 'z',
         if (ord(substr($brute, -5, 1)) == "122") { #If the fifth-to-last-character is 'z',
         if (ord(substr($brute, -6, 1)) == "122") { #If the sixth-to-last-character is 'z',
         if (ord(substr($brute, -7, 1)) == "122") { #If the seventh-to-last-character is 'z',
         if (ord(substr($brute, -8, 1)) == "122") { #If the eighth-to-last-character is 'z',
         if (ord(substr($brute, -9, 1)) == "122") { #If the ninth-to-last-character is 'z',
         if (ord(substr($brute, -10, 1)) == "122") { #If the tenth-to-last-character is 'z' (the first letter)
            die ("Finished.\n"); #Exit the program; you wrote all 23,762,752 combinations plus some more numbers!  :o
         }
         #If the ninth-to-last letter is 'z', but the tenth-to-last isn't,
         substr($brute, -9, 1) = "a"; #Set the ninth-to-last as 'a'.
         if (length($brute) > 9) { #If $brute is 10 or more letters long already,
            substr($brute, -10, 1) = chr(ord(substr($brute, -10, 1)) + 1); #Increment the tenth-to-last.
         } else { #If $brute is 9 letters long,
            $brute = "a".$brute; #Attach 'a' to the left.
         }
         }
         #If the eighth-to-last letter is 'z', but the ninth-to-last isn't,
         substr($brute, -8, 1) = "a"; #Set the eighth-to-last as 'a'.
         if (length($brute) > 8 ) { #If $brute is 9 or more letters long already,
            substr($brute, -9, 1) = chr(ord(substr($brute, -9, 1)) + 1); #Increment the ninth-to-last.
         } else { #If $brute is 8 letters long,
            $brute = "a".$brute; #Attach 'a' to the left.
         }
         }
         #If the seventh-to-last letter is 'z', but the eighth-to-last isn't,
         substr($brute, -7, 1) = "a"; #Set the seventh-to-last as 'a'.
         if (length($brute) > 7) { #If $brute is 8 or more letters long already,
            substr($brute, -8, 1) = chr(ord(substr($brute, -8, 1)) + 1); #Increment the eighth-to-last.
         } else { #If $brute is 7 letters long,
            $brute = "a".$brute; #Attach 'a' to the left.
         }
         }
         #If the sixth-to-last letter is 'z', but the seventh-to-last isn't,
         substr($brute, -6, 1) = "a"; #Set the sixth-to-last as 'a'.
         if (length($brute) > 6) { #If $brute is 7 or more letters long already,
            substr($brute, -7, 1) = chr(ord(substr($brute, -7, 1)) + 1); #Increment the seventh-to-last.
         } else { #If $brute is 6 letters long,
            $brute = "a".$brute; #Attach 'a' to the left.
         }
         }
         #If the fifth-to-last letter is 'z', but the sixth-to-last isn't,
         substr($brute, -5, 1) = "a"; #Set the fifth-to-last as 'a'.
         if (length($brute) > 5) { #If $brute is 6 or more letters long already,
            substr($brute, -6, 1) = chr(ord(substr($brute, -6, 1)) + 1); #Increment the sixth-to-last.
         } else { #If $brute is 5 letters long,
            $brute = "a".$brute; #Attach 'a' to the left.
         }
         }
         #If the fourth-to-last letter is 'z', but the fifth-to-last isn't,
         substr($brute, -4, 1) = "a"; #Set the fourth-to-last as 'a'.
         if (length($brute) > 4) { #If $brute is 5 or more letters long already,
            substr($brute, -5, 1) = chr(ord(substr($brute, -5, 1)) + 1); #Increment the fifth-to-last.
         } else { #If $brute is 5 letters long,
            $brute = "a".$brute; #Attach 'a' to the left.
         }
         }
         #If the third-to-last letter is 'z', but the fourth-to-last isn't,
         substr($brute, -3, 1) = "a"; #Set the third-to-last as 'a'.
         if (length($brute) > 3) { #If $brute is 4 or more letters long already,
            substr($brute, -4, 1) = chr(ord(substr($brute, -4, 1)) + 1); #Increment the fourth-to-last.
         } else { #If $brute is 4 letters long,
            $brute = "a".$brute; #Attach 'a' to the left.
         }
         }
         #If the second-to-last letter is 'z', but the third-to-last isn't,
         substr($brute, -2, 1) = "a"; #Set the second-to-last as 'a'.
         if (length($brute) > 2) { #If $brute is 3 or more letters long already,
            substr($brute, -3, 1) = chr(ord(substr($brute, -3, 1)) + 1); #Increment the third-to-last.
         } else { #If $brute is 3 letters long,
            $brute = "a".$brute; #Attach 'a' to the left.
         }
         }
      }
      if (length($brute == 1)) { #If the whole string is 'z',
         $brute = "aa"; #This condition is special, like me.
         $stop = "1";
      }
   }
   if (ord(substr($brute, -1, 1)) != "122") { #If the last character isn't 'z',
      substr($brute, -1, 1) = chr(ord(substr($brute, -1, 1)) + 1) #Increment the last letter.
   }
}
print "\n"; #The program finished.
#Cumulative letters:
for ($char = 97; $char < 123; $char++) {
   for ($mult = 0; $mult < 10; $mult++) {
      $temp = $temp.chr($char);
      print BRUTE "$temp\n";
   }
   $temp = ""
}
#Cumulative numbers:
$zero = "0";
print BRUTE "$zero\n";
for ($b = 0; $b < 10; $b++) {
   $zero = "$zero"."0";
   print BRUTE "$zero\n";
}
$one = "1";
print BRUTE "$one\n";
for ($b = 0; $b < 10; $b++) {
   $one = "$one"."1";
   print BRUTE "$one\n";
}
$two = "2";
print BRUTE "$two\n";
for ($b = 0; $b < 10; $b++) {
   $two = "$two"."2";
   print BRUTE "$two\n";
}
$three = "3";
print BRUTE "$three\n";
for ($b = 0; $b < 10; $b++) {
   $three = "$three"."3";
   print BRUTE "$three\n";
}
$four = "4";
print BRUTE "$four\n";
for ($b = 0; $b < 10; $b++) {
   $four = "$four"."1";
   print BRUTE "$four\n";
}
$five = "5";
print BRUTE "$five\n";
for ($b = 0; $b < 10; $b++) {
   $five = "$five"."5";
   print BRUTE "$five\n";
}
$six = "6";
print BRUTE "$six\n";
for ($b = 0; $b < 10; $b++) {
   $six = "$six"."6";
   print BRUTE "$six\n";
}
$seven = "7";
print BRUTE "$seven\n";
for ($b = 0; $b < 10; $b++) {
   $seven = "$seven"."7";
   print BRUTE "$seven\n";
}
$eight = "8";
print BRUTE "$eight\n";
for ($b = 0; $b < 10; $b++) {
   $eight = "$eight"."8";
   print BRUTE "$eight\n";
}
$nine = "9";
print BRUTE "$nine\n";
for ($b = 0; $b < 10; $b++) {
   $nine = "$nine"."9";
   print BRUTE "$nine\n";
}

#The numbers 1 through 9999:
@counting = (0 .. 9999);
for ($a = 0; $a < 10000; $a++) {
   print BRUTE "$counting[$a]\n";
}
close (BRUTE);
print "Done!\n\n";