Parent Directory | Revision Log
branch for integration of Daniel Jarboe <daniel.jarboe(at)gmail.com> patches for jpeg
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 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |