## DES SECTION#deschar *	T_DESCHARPdes_cblock *	T_CBLOCKdes_cblock	T_CBLOCKdes_key_schedule	T_SCHEDULEdes_key_schedule *	T_SCHEDULEINPUTT_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);		}OUTPUTT_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);