#!perl
require 'des.perl';

print 'EXAMPLE ECB     key = 08192a3b4c5d6e7f
        clear = 0
        cipher = 25 dd ac 3e 96 17 64 67
';

$key = pack("C8",0x08, 0x19, 0x2a, 0x3b, 0x4c, 0x5d, 0x6e, 0x7f);
$schedule="";
&make_key_sched($key,$schedule);
$datum = pack("x8",1);
($left,$right) = unpack("N N",$datum);
$temp = 0;
for ($cnter=1000; $cnter--; ) {
&DES_DO_ENCRYPT($left, $right, $temp, $schedule);
}
$outdat = pack("N N",$left,$right);

print 'ACTUAL ECB:
        cipher = ';
printf "%02x " x 8,unpack("C" x 8,$outdat);