FREE FOR THE CODE

#!/usr/local/bin/perl print "\nMakeBrute \n     By Drusepth\n"; print "This program will create a wordlist in the current directory for for use\nin brute forcing (not dictionary) attacks with the name brute.txt.  This wordlist ends up being around 175MB.\n  Press any key to continue, or close the program to prevent making the list."; $continizzle = <STDIN>; print "Working...  This may take a while.  \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&q