Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #NBTDOTM
- my $NumArgs = $#ARGV + 1;#Determine the number of arguments the user has given us
- if ($NumArgs <= 1) {
- #Our user has only entered some information. Display help screen.
- header();
- exit();}
- if (($NumArgs == 2) or ($NumArgs == 3)) {
- my $userloc = $ARGV[0]; #Host is the first argument supplied
- my $passloc = $ARGV[1]; #Username is the 2nd argument supplied
- my $outloc = $ARGV[2]; #Passlist location is 3rd argument
- print qq{
- ----------------------------------------------------------------------
- Combo Creator
- Custom Built by Juno
- NBTDOTM
- ----------------------------------------------------------------------
- };
- print "\nYour user list is: $userloc.";
- print "\nYour password list is: $passloc.";
- goto NOOUTLOC if ($outloc eq '');
- print "\nYour combolist will be saved to: $outloc.";
- NOOUTLOC:
- #Set up output file location
- if ($outloc eq '') {
- $outloc = 'combo.txt';
- }
- print "\nThe program is now generating your combolist...\n";
- #Go user by user and apply password to user
- open USERLIST, $userloc or die$!;
- my @users = USERLIST;
- while (my $user = <USERLIST>) {
- chomp($user);
- #Use passlist and generate combolist in this subroutine
- open PASSLIST, $passloc or die $!;
- my @pass = PASSLIST;
- while (my $password = <PASSLIST>) {
- chomp($password);
- #Perform the file operation
- open(OUTFILE, ">>$outloc");
- print OUTFILE "$user:$password\n";
- close(OUTFILE);
- print " \rProcessing: $user:$password";
- } #Done with current password
- } #Done with current user
- print "\nYour combolist has been successfully created at: $outloc.";
- exit();
- }
- sub header{
- print qq{
- ----------------------------------------------------------------------
- Combo Creator
- Custom Built by Juno
- NBTDOTM
- ----------------------------------------------------------------------
- Usage: ComboCreator.pl [userlist] [passwordlist] (output file)
- Example: ComboCreator.pl users.txt passwords.txt combo.txt
- The program will take the supplied userlist and password list and
- combine them into a combo list. The output argument is optional;
- the program will output combo.txt if left blank.
- Happy Hacking!
- };
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement