head	1.2;
access;
symbols
	openssl_0_9_4:1.1.1.1
	kth_0_1:1.1.1.1
	EAY:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2000.02.24.19.35.08;	author markm;	state dead;
branches;
next	1.1;

1.1
date	99.09.01.19.59.24;	author markm;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	99.09.01.19.59.24;	author markm;	state Exp;
branches;
next	;


desc
@@


1.2
log
@RIP libdes. All hail libcrypto!
@
text
@#!./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";

@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@Drat. Import this into the right place. Pass me the pointy hat.
@
text
@@
