rdpproxy/trunk/extractkey.pl

#!/usr/bin/perl
#
# Extract the Terminal Services encryption key from lsadump2 output
#

while (<>) {
        last if (/^L\$HYDRAENCKEY_/);
}

while (<>) {
        last if (!/^ /);
        @bytes = split(/ /);
        for ($i = 1; $i <= 16; $i++) {
                $byte = $bytes[$i];
                last if (length($byte) != 2);
                print chr(hex($byte));
        }
}

1	forsberg	429	#!/usr/bin/perl
2			#
3			# Extract the Terminal Services encryption key from lsadump2 output
4			#
5
6			while (<>) {
7			last if (/^L\$HYDRAENCKEY_/);
8			}
9
10			while (<>) {
11			last if (!/^ /);
12			@bytes = split(/ /);
13			for ($i = 1; $i <= 16; $i++) {
14			$byte = $bytes[$i];
15			last if (length($byte) != 2);
16			print chr(hex($byte));
17			}
18			}
19