trunk/rdpproxy/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	#!/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