/[rdesktop]/jpeg/rdpproxy/trunk/extractkey.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /jpeg/rdpproxy/trunk/extractkey.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1507 - (show annotations)
Mon Jul 20 16:45:11 2009 UTC (14 years, 8 months ago) by dpavlin
File MIME type: text/plain
File size: 306 byte(s)
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

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26