1# 2# DES SECTION 3# 4deschar * T_DESCHARP 5des_cblock * T_CBLOCK 6des_cblock T_CBLOCK 7des_key_schedule T_SCHEDULE 8des_key_schedule * T_SCHEDULE 9 10INPUT 11T_CBLOCK 12 $var=(des_cblock *)SvPV($arg,len); 13 if (len < DES_KEY_SZ) 14 { 15 croak(\"$var needs to be at least %u bytes long\",DES_KEY_SZ); 16 } 17 18T_SCHEDULE 19 $var=(des_key_schedule *)SvPV($arg,len); 20 if (len < DES_SCHEDULE_SZ) 21 { 22 croak(\"$var needs to be at least %u bytes long\", 23 DES_SCHEDULE_SZ); 24 } 25 26OUTPUT 27T_CBLOCK 28 sv_setpvn($arg,(char *)$var,DES_KEY_SZ); 29 30T_SCHEDULE 31 sv_setpvn($arg,(char *)$var,DES_SCHEDULE_SZ); 32 33T_DESCHARP 34 sv_setpvn($arg,(char *)$var,len); 35