Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Juno

a guest May 22nd, 2009 88 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. #!/usr/bin/perl
  2. #NBTDOTM
  3. my $NumArgs = $#ARGV + 1;#Determine the number of arguments the user has given us
  4. if ($NumArgs <= 1) {
  5.         #Our user has only entered some information. Display help screen.
  6.         header();
  7.         exit();}
  8. if (($NumArgs == 2) or ($NumArgs == 3)) {      
  9.         my $userloc = $ARGV[0]; #Host is the first argument supplied
  10.         my $passloc = $ARGV[1]; #Username is the 2nd argument supplied
  11.         my $outloc = $ARGV[2]; #Passlist location is 3rd argument      
  12. ----------------------------------------------------------------------
  13.                            Combo Creator                         
  14.                         Custom Built by Juno                     
  15.                               NBTDOTM                                
  16. ----------------------------------------------------------------------
  17. };
  18. print "\nYour user list is: $userloc.";
  19. print "\nYour password list is: $passloc.";
  20. goto NOOUTLOC if ($outloc eq '');
  21. print "\nYour combolist will be saved to: $outloc.";
  22. NOOUTLOC:
  23. #Set up output file location
  24. if ($outloc eq '') {
  25.         $outloc = 'combo.txt';
  26.         }
  27.        
  28. print "\nThe program is now generating your combolist...\n";   
  29. #Go user by user and apply password to user
  30. open USERLIST, $userloc or die$!;
  31. my @users = USERLIST;
  32.         while (my $user = <USERLIST>) {
  33.                 chomp($user);
  34.                 #Use passlist and generate combolist in this subroutine
  35.                 open PASSLIST, $passloc or die $!;
  36.                 my @pass = PASSLIST;
  37.                 while (my $password = <PASSLIST>) {
  38.                         chomp($password);
  39.                         #Perform the file operation
  40.                         open(OUTFILE, ">>$outloc");
  41.                         print OUTFILE "$user:$password\n";
  42.                         close(OUTFILE);
  43.                         print "                        \rProcessing: $user:$password";         
  44.                         } #Done with current password
  45.         } #Done with current user
  46. print "\nYour combolist has been successfully created at: $outloc.";
  47. exit();
  48. }
  49. sub header{
  50. ----------------------------------------------------------------------
  51.                            Combo Creator                         
  52.                         Custom Built by Juno                     
  53.                               NBTDOTM                                
  54. ----------------------------------------------------------------------
  55. Usage: ComboCreator.pl [userlist] [passwordlist] (output file)
  56.  
  57. Example: ComboCreator.pl users.txt passwords.txt combo.txt
  58.  
  59. The program will take the supplied userlist and password list and
  60. combine them into a combo list.  The output argument is optional;
  61. the program will output combo.txt if left blank.
  62. Happy Hacking!
  63. };     
  64. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top