test #1

  • //
  • guest/
  • robert_cowham/
  • openssl/
  • main/
  • crypto/
  • des/
  • t/
  • test
  • View
  • Commits
  • Open Download .zip Download (531 B)
#!./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";

# Change User Description Committed
#1 10711 Robert Cowham OpenSSL 1.0.1i