mirror of
https://github.com/nillerusr/source-engine.git
synced 2024-12-29 17:43:01 +00:00
28 lines
531 B
Plaintext
28 lines
531 B
Plaintext
|
#!./perl
|
||
|
|
|
||
|
|
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)); }
|
||
|
|
|
||
|
|
use DES;
|
||
|
|
|
||
|
|
$key='00000000';
|
||
|
|
$ks=DES::set_key($key);
|
||
|
|
@a=split(//,$ks);
|
||
|
|
foreach (@a) { printf "%02x-",ord($_); }
|
||
|
|
print "\n";
|
||
|
|
|
||
|
|
|
||
|
|
$key=DES::random_key();
|
||
|
|
print "($_)\n";
|
||
|
|
@a=split(//,$key);
|
||
|
|
foreach (@a) { printf "%02x-",ord($_); }
|
||
|
|
print "\n";
|
||
|
|
$str="this is and again into the breach";
|
||
|
|
($k1,$k2)=DES::string_to_2keys($str);
|
||
|
|
@a=split(//,$k1);
|
||
|
|
foreach (@a) { printf "%02x-",ord($_); }
|
||
|
|
print "\n";
|
||
|
|
@a=split(//,$k2);
|
||
|
|
foreach (@a) { printf "%02x-",ord($_); }
|
||
|
|
print "\n";
|
||
|
|
|