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