remove more leftovers
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@14883 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
@@ -1,27 +0,0 @@
|
|||||||
#!./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";
|
|
||||||
|
|
Reference in New Issue
Block a user