Juno

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