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.34.37;	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
@#
# DES SECTION
#
deschar *	T_DESCHARP
des_cblock *	T_CBLOCK
des_cblock	T_CBLOCK
des_key_schedule	T_SCHEDULE
des_key_schedule *	T_SCHEDULE

INPUT
T_CBLOCK
	$var=(des_cblock *)SvPV($arg,len);
	if (len < DES_KEY_SZ)
		{
		croak(\"$var needs to be at least %u bytes long\",DES_KEY_SZ);
		}

T_SCHEDULE
	$var=(des_key_schedule *)SvPV($arg,len);
	if (len < DES_SCHEDULE_SZ)
		{
		croak(\"$var needs to be at least %u bytes long\",
			DES_SCHEDULE_SZ);
		}

OUTPUT
T_CBLOCK
	sv_setpvn($arg,(char *)$var,DES_KEY_SZ);

T_SCHEDULE
	sv_setpvn($arg,(char *)$var,DES_SCHEDULE_SZ);

T_DESCHARP
	sv_setpvn($arg,(char *)$var,len);
@


1.1
log
@Initial revision
@
text
@@


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