IdDES_ecb_encrypt: procedure(Input: des_cblock; output: des_cblock; ks: des_key_schedule; enc: Integer) cdecl  = nil;