head	1.2;
access;
symbols
	RELENG_3_5_0_RELEASE:1.1.1.1
	RELENG_3_4_0_RELEASE:1.1.1.1
	RELENG_3_3_0_RELEASE:1.1.1.1
	RELENG_3_2_PAO:1.1.1.1.0.8
	RELENG_3_2_PAO_BP:1.1.1.1
	RELENG_3_2_0_RELEASE:1.1.1.1
	RELENG_3_1_0_RELEASE:1.1.1.1
	RELENG_3:1.1.1.1.0.6
	RELENG_3_BP:1.1.1.1
	RELENG_2_2_8_RELEASE:1.1.1.1
	RELENG_3_0_0_RELEASE:1.1.1.1
	RELENG_2_2_7_RELEASE:1.1.1.1
	RELENG_2_2_6_RELEASE:1.1.1.1
	RELENG_2_2_5_RELEASE:1.1.1.1
	RELENG_2_2_2_RELEASE:1.1.1.1
	RELENG_2_2_1_RELEASE:1.1.1.1
	RELENG_2_2_0_RELEASE:1.1.1.1
	RELENG_2_1_7_RELEASE:1.1.1.1
	RELENG_2_1_6_1_RELEASE:1.1.1.1
	RELENG_2_1_6_RELEASE:1.1.1.1
	RELENG_2_2:1.1.1.1.0.4
	RELENG_2_2_BP:1.1.1.1
	ssleay_0_6_3:1.1.1.1
	ssleay_0_6_2:1.1.1.1
	ssleay_0_6_1:1.1.1.1
	RELENG_2_1_5_RELEASE:1.1.1.1
	RELENG_2_1_0:1.1.1.1.0.2
	des_051a:1.1.1.1
	EAY:1.1.1;
locks; strict;
comment	@# @;


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

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

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


desc
@@


1.2
log
@libdes is bmaked and built from src/crypto/... now.
@
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
@This is the long-awaited new DES library. Over the next couple of days
will be properly built into the system.
@
text
@@
