$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
$OPENSSL=1;
&asm_init($ARGV[0],"cmll-586.pl",$ARGV[$
@T=("eax","ebx","ecx","edx");
$idx="esi";
$key="edi";
$Tbl="ebp";
$__ra=&DWP(0,"esp"); $__s0=&DWP(4,"esp"); $__s1=&DWP(8,"esp"); $__s2=&DWP(12,"esp"); $__s3=&DWP(16,"esp"); $__end=&DWP(20,"esp");
$_end=&DWP(16,"esp");
$_esp=&DWP(20,"esp");
$SBOX1_1110=0; $SBOX4_4404=4; $SBOX2_0222=2048; $SBOX3_3033=2052; &static_label("Camellia_SIGMA");
&static_label("Camellia_SBOX");
sub Camellia_Feistel {
my $i=@_[0];
my $seed=defined(@_[1])?@_[1]:0;
my $scale=$seed<0?-8:8;
my $frame=defined(@_[2])?@_[2]:0;
my $j=($i&1)*2;
my $t0=@T[($j)%4],$t1=@T[($j+1)%4],$t2=@T[($j+2)%4],$t3=@T[($j+3)%4];
&xor ($t0,$idx); &xor ($t1,&DWP($seed+$i*$scale+4,$key)); &movz ($idx,&HB($t0)); &mov ($t3,&DWP($SBOX3_3033,$Tbl,$idx,8)); &movz ($idx,&LB($t0)); &xor ($t3,&DWP($SBOX4_4404,$Tbl,$idx,8)); &shr ($t0,16);
&movz ($idx,&LB($t1)); &mov ($t2,&DWP($SBOX1_1110,$Tbl,$idx,8)); &movz ($idx,&HB($t0)); &xor ($t3,&DWP($SBOX1_1110,$Tbl,$idx,8)); &movz ($idx,&HB($t1)); &xor ($t2,&DWP($SBOX4_4404,$Tbl,$idx,8)); &shr ($t1,16);
&movz ($t0,&LB($t0)); &xor ($t3,&DWP($SBOX2_0222,$Tbl,$t0,8)); &movz ($idx,&HB($t1)); &mov ($t0,&DWP($frame+4*(($j+3)%4),"esp")); &xor ($t2,$t3); &rotr ($t3,8); &xor ($t2,&DWP($SBOX2_0222,$Tbl,$idx,8)); &movz ($idx,&LB($t1)); &mov ($t1,&DWP($frame+4*(($j+2)%4),"esp")); &xor ($t3,$t0); &xor ($t2,&DWP($SBOX3_3033,$Tbl,$idx,8)); &mov ($idx,&DWP($seed+($i+1)*$scale,$key)); &xor ($t3,$t2); &mov (&DWP($frame+4*(($j+3)%4),"esp"),$t3); &xor ($t2,$t1); &mov (&DWP($frame+4*(($j+2)%4),"esp"),$t2); }
&function_begin("Camellia_EncryptBlock_Rounds");
&mov ("eax",&wparam(0)); &mov ($idx,&wparam(1)); &mov ($key,&wparam(2));
&mov ("ebx","esp");
&sub ("esp",7*4); &and ("esp",-64);
&lea ("ecx",&DWP(-64-63,$key));
&sub ("ecx","esp");
&neg ("ecx");
&and ("ecx",0x3C0); &sub ("esp","ecx");
&add ("esp",4);
&shl ("eax",6);
&lea ("eax",&DWP(0,$key,"eax"));
&mov ($_esp,"ebx"); &mov ($_end,"eax");
&call (&label("pic_point"));
&set_label("pic_point");
&blindpop($Tbl);
&lea ($Tbl,&DWP(&label("Camellia_SBOX")."-".&label("pic_point"),$Tbl));
&mov (@T[0],&DWP(0,$idx)); &mov (@T[1],&DWP(4,$idx));
&mov (@T[2],&DWP(8,$idx));
&bswap (@T[0]);
&mov (@T[3],&DWP(12,$idx));
&bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&call ("_x86_Camellia_encrypt");
&mov ("esp",$_esp);
&bswap (@T[0]);
&mov ($idx,&wparam(3)); &bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&mov (&DWP(0,$idx),@T[0]); &mov (&DWP(4,$idx),@T[1]);
&mov (&DWP(8,$idx),@T[2]);
&mov (&DWP(12,$idx),@T[3]);
&function_end("Camellia_EncryptBlock_Rounds");
&function_begin_B("Camellia_EncryptBlock");
&mov ("eax",128);
&sub ("eax",&wparam(0)); &mov ("eax",3);
&adc ("eax",0); &mov (&wparam(0),"eax");
&jmp (&label("Camellia_EncryptBlock_Rounds"));
&function_end_B("Camellia_EncryptBlock");
if ($OPENSSL) {
&function_begin("Camellia_encrypt");
&mov ($idx,&wparam(0)); &mov ($key,&wparam(2));
&mov ("ebx","esp");
&sub ("esp",7*4); &and ("esp",-64);
&mov ("eax",&DWP(272,$key));
&lea ("ecx",&DWP(-64-63,$key));
&sub ("ecx","esp");
&neg ("ecx");
&and ("ecx",0x3C0); &sub ("esp","ecx");
&add ("esp",4);
&shl ("eax",6);
&lea ("eax",&DWP(0,$key,"eax"));
&mov ($_esp,"ebx"); &mov ($_end,"eax");
&call (&label("pic_point"));
&set_label("pic_point");
&blindpop($Tbl);
&lea ($Tbl,&DWP(&label("Camellia_SBOX")."-".&label("pic_point"),$Tbl));
&mov (@T[0],&DWP(0,$idx)); &mov (@T[1],&DWP(4,$idx));
&mov (@T[2],&DWP(8,$idx));
&bswap (@T[0]);
&mov (@T[3],&DWP(12,$idx));
&bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&call ("_x86_Camellia_encrypt");
&mov ("esp",$_esp);
&bswap (@T[0]);
&mov ($idx,&wparam(1)); &bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&mov (&DWP(0,$idx),@T[0]); &mov (&DWP(4,$idx),@T[1]);
&mov (&DWP(8,$idx),@T[2]);
&mov (&DWP(12,$idx),@T[3]);
&function_end("Camellia_encrypt");
}
&function_begin_B("_x86_Camellia_encrypt");
&xor (@T[0],&DWP(0,$key)); &xor (@T[1],&DWP(4,$key));
&xor (@T[2],&DWP(8,$key));
&xor (@T[3],&DWP(12,$key));
&mov ($idx,&DWP(16,$key));
&mov ($__s0,@T[0]); &mov ($__s1,@T[1]);
&mov ($__s2,@T[2]);
&mov ($__s3,@T[3]);
&set_label("loop",16);
for ($i=0;$i<6;$i++) { Camellia_Feistel($i,16,4); }
&add ($key,16*4);
&cmp ($key,$__end);
&je (&label("done"));
&and ($idx,@T[0]);
&mov (@T[3],$__s3);
&rotl ($idx,1);
&mov (@T[2],@T[3]);
&xor (@T[1],$idx);
&or (@T[2],&DWP(12,$key));
&mov ($__s1,@T[1]); &xor (@T[2],$__s2);
&mov ($idx,&DWP(4,$key));
&mov ($__s2,@T[2]); &or ($idx,@T[1]);
&and (@T[2],&DWP(8,$key));
&xor (@T[0],$idx);
&rotl (@T[2],1);
&mov ($__s0,@T[0]); &xor (@T[3],@T[2]);
&mov ($idx,&DWP(16,$key)); &mov ($__s3,@T[3]); &jmp (&label("loop"));
&set_label("done",8);
&mov (@T[2],@T[0]); &mov (@T[3],@T[1]);
&mov (@T[0],$__s2);
&mov (@T[1],$__s3);
&xor (@T[0],$idx); &xor (@T[1],&DWP(4,$key));
&xor (@T[2],&DWP(8,$key));
&xor (@T[3],&DWP(12,$key));
&ret ();
&function_end_B("_x86_Camellia_encrypt");
&function_begin("Camellia_DecryptBlock_Rounds");
&mov ("eax",&wparam(0)); &mov ($idx,&wparam(1)); &mov ($key,&wparam(2));
&mov ("ebx","esp");
&sub ("esp",7*4); &and ("esp",-64);
&lea ("ecx",&DWP(-64-63,$key));
&sub ("ecx","esp");
&neg ("ecx");
&and ("ecx",0x3C0); &sub ("esp","ecx");
&add ("esp",4);
&shl ("eax",6);
&mov (&DWP(4*4,"esp"),$key); &lea ($key,&DWP(0,$key,"eax"));
&mov (&DWP(5*4,"esp"),"ebx");
&call (&label("pic_point"));
&set_label("pic_point");
&blindpop($Tbl);
&lea ($Tbl,&DWP(&label("Camellia_SBOX")."-".&label("pic_point"),$Tbl));
&mov (@T[0],&DWP(0,$idx)); &mov (@T[1],&DWP(4,$idx));
&mov (@T[2],&DWP(8,$idx));
&bswap (@T[0]);
&mov (@T[3],&DWP(12,$idx));
&bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&call ("_x86_Camellia_decrypt");
&mov ("esp",&DWP(5*4,"esp"));
&bswap (@T[0]);
&mov ($idx,&wparam(3)); &bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&mov (&DWP(0,$idx),@T[0]); &mov (&DWP(4,$idx),@T[1]);
&mov (&DWP(8,$idx),@T[2]);
&mov (&DWP(12,$idx),@T[3]);
&function_end("Camellia_DecryptBlock_Rounds");
&function_begin_B("Camellia_DecryptBlock");
&mov ("eax",128);
&sub ("eax",&wparam(0)); &mov ("eax",3);
&adc ("eax",0); &mov (&wparam(0),"eax");
&jmp (&label("Camellia_DecryptBlock_Rounds"));
&function_end_B("Camellia_DecryptBlock");
if ($OPENSSL) {
&function_begin("Camellia_decrypt");
&mov ($idx,&wparam(0)); &mov ($key,&wparam(2));
&mov ("ebx","esp");
&sub ("esp",7*4); &and ("esp",-64);
&mov ("eax",&DWP(272,$key));
&lea ("ecx",&DWP(-64-63,$key));
&sub ("ecx","esp");
&neg ("ecx");
&and ("ecx",0x3C0); &sub ("esp","ecx");
&add ("esp",4);
&shl ("eax",6);
&mov (&DWP(4*4,"esp"),$key); &lea ($key,&DWP(0,$key,"eax"));
&mov (&DWP(5*4,"esp"),"ebx");
&call (&label("pic_point"));
&set_label("pic_point");
&blindpop($Tbl);
&lea ($Tbl,&DWP(&label("Camellia_SBOX")."-".&label("pic_point"),$Tbl));
&mov (@T[0],&DWP(0,$idx)); &mov (@T[1],&DWP(4,$idx));
&mov (@T[2],&DWP(8,$idx));
&bswap (@T[0]);
&mov (@T[3],&DWP(12,$idx));
&bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&call ("_x86_Camellia_decrypt");
&mov ("esp",&DWP(5*4,"esp"));
&bswap (@T[0]);
&mov ($idx,&wparam(1)); &bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&mov (&DWP(0,$idx),@T[0]); &mov (&DWP(4,$idx),@T[1]);
&mov (&DWP(8,$idx),@T[2]);
&mov (&DWP(12,$idx),@T[3]);
&function_end("Camellia_decrypt");
}
&function_begin_B("_x86_Camellia_decrypt");
&xor (@T[0],&DWP(0,$key)); &xor (@T[1],&DWP(4,$key));
&xor (@T[2],&DWP(8,$key));
&xor (@T[3],&DWP(12,$key));
&mov ($idx,&DWP(-8,$key));
&mov ($__s0,@T[0]); &mov ($__s1,@T[1]);
&mov ($__s2,@T[2]);
&mov ($__s3,@T[3]);
&set_label("loop",16);
for ($i=0;$i<6;$i++) { Camellia_Feistel($i,-8,4); }
&sub ($key,16*4);
&cmp ($key,$__end);
&je (&label("done"));
&and ($idx,@T[0]);
&mov (@T[3],$__s3);
&rotl ($idx,1);
&mov (@T[2],@T[3]);
&xor (@T[1],$idx);
&or (@T[2],&DWP(4,$key));
&mov ($__s1,@T[1]); &xor (@T[2],$__s2);
&mov ($idx,&DWP(12,$key));
&mov ($__s2,@T[2]); &or ($idx,@T[1]);
&and (@T[2],&DWP(0,$key));
&xor (@T[0],$idx);
&rotl (@T[2],1);
&mov ($__s0,@T[0]); &xor (@T[3],@T[2]);
&mov ($idx,&DWP(-8,$key)); &mov ($__s3,@T[3]); &jmp (&label("loop"));
&set_label("done",8);
&mov (@T[2],@T[0]); &mov (@T[3],@T[1]);
&mov (@T[0],$__s2);
&mov (@T[1],$__s3);
&xor (@T[2],$idx); &xor (@T[3],&DWP(12,$key));
&xor (@T[0],&DWP(0,$key));
&xor (@T[1],&DWP(4,$key));
&ret ();
&function_end_B("_x86_Camellia_decrypt");
sub __rotl128 {
my ($i0,$i1,$i2,$i3,$rot,$rnd,@T)=@_;
$rnd *= 2;
if ($rot) {
&mov ($idx,$i0);
&shld ($i0,$i1,$rot);
&shld ($i1,$i2,$rot);
&shld ($i2,$i3,$rot);
&shld ($i3,$idx,$rot);
}
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i0 eq @T[0]);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i1 eq @T[0]);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i2 eq @T[0]);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i3 eq @T[0]);
}
sub _rotl128 {
my ($i0,$i1,$i2,$i3,$rot,$rnd,@T)=@_;
$rnd *= 2;
if ($rot) {
&mov ($Tbl,$i0);
&shl ($i0,$rot);
&mov ($idx,$i1);
&shr ($idx,32-$rot);
&shl ($i1,$rot);
&or ($i0,$idx);
&mov ($idx,$i2);
&shl ($i2,$rot);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i0 eq @T[0]);
&shr ($idx,32-$rot);
&or ($i1,$idx);
&shr ($Tbl,32-$rot);
&mov ($idx,$i3);
&shr ($idx,32-$rot);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i1 eq @T[0]);
&shl ($i3,$rot);
&or ($i2,$idx);
&or ($i3,$Tbl);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i2 eq @T[0]);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i3 eq @T[0]);
} else {
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i0 eq @T[0]);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i1 eq @T[0]);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i2 eq @T[0]);
&mov (&DWP(-128+4*$rnd++,$key),shift(@T)) if ($i3 eq @T[0]);
}
}
sub _saveround {
my ($rnd,$key,@T)=@_;
my $bias=int(@T[0])?shift(@T):0;
&mov (&DWP($bias+$rnd*8+0,$key),@T[0]);
&mov (&DWP($bias+$rnd*8+4,$key),@T[1]) if ($ &mov (&DWP($bias+$rnd*8+8,$key),@T[2]) if ($ &mov (&DWP($bias+$rnd*8+12,$key),@T[3]) if ($}
sub _loadround {
my ($rnd,$key,@T)=@_;
my $bias=int(@T[0])?shift(@T):0;
&mov (@T[0],&DWP($bias+$rnd*8+0,$key));
&mov (@T[1],&DWP($bias+$rnd*8+4,$key)) if ($ &mov (@T[2],&DWP($bias+$rnd*8+8,$key)) if ($ &mov (@T[3],&DWP($bias+$rnd*8+12,$key)) if ($}
&function_begin("Camellia_Ekeygen");
{ my $step=0;
&stack_push(4);
&mov ($Tbl,&wparam(0)); &mov ($idx,&wparam(1));
&mov ($key,&wparam(2));
&mov (@T[0],&DWP(0,$idx)); &mov (@T[1],&DWP(4,$idx));
&mov (@T[2],&DWP(8,$idx));
&mov (@T[3],&DWP(12,$idx));
&bswap (@T[0]);
&bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&_saveround (0,$key,@T);
&cmp ($Tbl,128);
&je (&label("1st128"));
&mov (@T[0],&DWP(16,$idx)); &mov (@T[1],&DWP(20,$idx));
&cmp ($Tbl,192);
&je (&label("1st192"));
&mov (@T[2],&DWP(24,$idx)); &mov (@T[3],&DWP(28,$idx));
&jmp (&label("1st256"));
&set_label("1st192",4);
&mov (@T[2],@T[0]);
&mov (@T[3],@T[1]);
¬ (@T[2]);
¬ (@T[3]);
&set_label("1st256",4);
&bswap (@T[0]);
&bswap (@T[1]);
&bswap (@T[2]);
&bswap (@T[3]);
&_saveround (4,$key,@T);
&xor (@T[0],&DWP(0*8+0,$key)); &xor (@T[1],&DWP(0*8+4,$key));
&xor (@T[2],&DWP(1*8+0,$key));
&xor (@T[3],&DWP(1*8+4,$key));
&set_label("1st128",4);
&call (&label("pic_point"));
&set_label("pic_point");
&blindpop($Tbl);
&lea ($Tbl,&DWP(&label("Camellia_SBOX")."-".&label("pic_point"),$Tbl));
&lea ($key,&DWP(&label("Camellia_SIGMA")."-".&label("Camellia_SBOX"),$Tbl));
&mov ($idx,&DWP($step*8,$key)); &mov (&swtmp(0),@T[0]); &mov (&swtmp(1),@T[1]);
&mov (&swtmp(2),@T[2]);
&mov (&swtmp(3),@T[3]);
&Camellia_Feistel($step++);
&Camellia_Feistel($step++);
&mov (@T[2],&swtmp(2));
&mov (@T[3],&swtmp(3));
&mov ($idx,&wparam(2));
&xor (@T[0],&DWP(0*8+0,$idx)); &xor (@T[1],&DWP(0*8+4,$idx));
&xor (@T[2],&DWP(1*8+0,$idx));
&xor (@T[3],&DWP(1*8+4,$idx));
&mov ($idx,&DWP($step*8,$key)); &mov (&swtmp(0),@T[0]); &mov (&swtmp(1),@T[1]);
&mov (&swtmp(2),@T[2]);
&mov (&swtmp(3),@T[3]);
&Camellia_Feistel($step++);
&Camellia_Feistel($step++);
&mov (@T[2],&swtmp(2));
&mov (@T[3],&swtmp(3));
&mov ($idx,&wparam(0));
&cmp ($idx,128);
&jne (&label("2nd256"));
&mov ($key,&wparam(2));
&lea ($key,&DWP(128,$key));
&_saveround (2,$key,-128,@T); &_rotl128 (@T,15,6,@T); &_rotl128 (@T,15,8,@T); &_rotl128 (@T,15,12,@T[0],@T[1]); &_rotl128 (@T,15,14,@T); push (@T,shift(@T)); &_rotl128 (@T,2,20,@T); &_rotl128 (@T,17,24,@T);
&_loadround (0,$key,-128,@T); &_rotl128 (@T,15,4,@T); &_rotl128 (@T,30,10,@T); &_rotl128 (@T,15,13,@T[2],@T[3]); &_rotl128 (@T,17,16,@T); &_rotl128 (@T,17,18,@T); &_rotl128 (@T,17,22,@T);
while (@T[0] ne "eax") { unshift (@T,pop(@T)); }
&mov ("eax",3); &jmp (&label("done"));
&set_label("2nd256",16);
&mov ($idx,&wparam(2));
&_saveround (6,$idx,@T);
&xor (@T[0],&DWP(4*8+0,$idx)); &xor (@T[1],&DWP(4*8+4,$idx));
&xor (@T[2],&DWP(5*8+0,$idx));
&xor (@T[3],&DWP(5*8+4,$idx));
&mov ($idx,&DWP($step*8,$key)); &mov (&swtmp(0),@T[0]); &mov (&swtmp(1),@T[1]);
&mov (&swtmp(2),@T[2]);
&mov (&swtmp(3),@T[3]);
&Camellia_Feistel($step++);
&Camellia_Feistel($step++);
&mov (@T[2],&swtmp(2));
&mov (@T[3],&swtmp(3));
&mov ($key,&wparam(2));
&lea ($key,&DWP(128,$key));
&_saveround (2,$key,-128,@T); &_rotl128 (@T,30,10,@T); &_rotl128 (@T,30,20,@T); push (@T,shift(@T)); &_rotl128 (@T,19,32,@T);
&_loadround (4,$key,-128,@T); &_rotl128 (@T,15,4,@T); &_rotl128 (@T,15,8,@T); &_rotl128 (@T,30,18,@T); push (@T,shift(@T)); &_rotl128 (@T,2,26,@T);
&_loadround (6,$key,-128,@T); &_rotl128 (@T,15,6,@T); &_rotl128 (@T,30,14,@T); push (@T,shift(@T)); &_rotl128 (@T,0,24,@T); &_rotl128 (@T,17,28,@T);
&_loadround (0,$key,-128,@T); push (@T,shift(@T)); &_rotl128 (@T,13,12,@T); &_rotl128 (@T,15,16,@T); &_rotl128 (@T,17,22,@T); push (@T,shift(@T)); &_rotl128 (@T,2,30,@T);
while (@T[0] ne "eax") { unshift (@T,pop(@T)); }
&mov ("eax",4); &set_label("done");
&lea ("edx",&DWP(272-128,$key)); &stack_pop(4);
}
&function_end("Camellia_Ekeygen");
if ($OPENSSL) {
&function_begin_B("Camellia_set_key");
&push ("ebx");
&mov ("ecx",&wparam(0)); &mov ("ebx",&wparam(1));
&mov ("edx",&wparam(2));
&mov ("eax",-1);
&test ("ecx","ecx");
&jz (&label("done")); &test ("edx","edx");
&jz (&label("done"));
&mov ("eax",-2);
&cmp ("ebx",256);
&je (&label("arg_ok")); &cmp ("ebx",192);
&je (&label("arg_ok")); &cmp ("ebx",128);
&jne (&label("done")); &set_label("arg_ok",4);
&push ("edx"); &push ("ecx");
&push ("ebx");
&call ("Camellia_Ekeygen");
&stack_pop(3);
&mov (&DWP(0,"edx"),"eax");
&xor ("eax","eax");
&set_label("done",4);
&pop ("ebx");
&ret ();
&function_end_B("Camellia_set_key");
}
@SBOX=(
112,130, 44,236,179, 39,192,229,228,133, 87, 53,234, 12,174, 65,
35,239,107,147, 69, 25,165, 33,237, 14, 79, 78, 29,101,146,189,
134,184,175,143,124,235, 31,206, 62, 48,220, 95, 94,197, 11, 26,
166,225, 57,202,213, 71, 93, 61,217, 1, 90,214, 81, 86,108, 77,
139, 13,154,102,251,204,176, 45,116, 18, 43, 32,240,177,132,153,
223, 76,203,194, 52,126,118, 5,109,183,169, 49,209, 23, 4,215,
20, 88, 58, 97,222, 27, 17, 28, 50, 15,156, 22, 83, 24,242, 34,
254, 68,207,178,195,181,122,145, 36, 8,232,168, 96,252,105, 80,
170,208,160,125,161,137, 98,151, 84, 91, 30,149,224,255,100,210,
16,196, 0, 72,163,247,117,219,138, 3,230,218, 9, 63,221,148,
135, 92,131, 2,205, 74,144, 51,115,103,246,243,157,127,191,226,
82,155,216, 38,200, 55,198, 59,129,150,111, 75, 19,190, 99, 46,
233,121,167,140,159,110,188,142, 41,245,249,182, 47,253,180, 89,
120,152, 6,106,231, 70,113,186,212, 37,171, 66,136,162,141,250,
114, 7,185, 85,248,238,172, 10, 54, 73, 42,104, 60, 56,241,164,
64, 40,211,123,187,201, 67,193, 21,227,173,244,119,199,128,158);
sub S1110 { my $i=shift; $i=@SBOX[$i]; return $i<<24|$i<<16|$i<<8; }
sub S4404 { my $i=shift; $i=($i<<1|$i>>7)&0xff; $i=@SBOX[$i]; return $i<<24|$i<<16|$i; }
sub S0222 { my $i=shift; $i=@SBOX[$i]; $i=($i<<1|$i>>7)&0xff; return $i<<16|$i<<8|$i; }
sub S3033 { my $i=shift; $i=@SBOX[$i]; $i=($i>>1|$i<<7)&0xff; return $i<<24|$i<<8|$i; }
&set_label("Camellia_SIGMA",64);
&data_word(
0xa09e667f, 0x3bcc908b, 0xb67ae858, 0x4caa73b2,
0xc6ef372f, 0xe94f82be, 0x54ff53a5, 0xf1d36f1c,
0x10e527fa, 0xde682d1d, 0xb05688c2, 0xb3e6c1fd,
0, 0, 0, 0);
&set_label("Camellia_SBOX",64);
for ($i=0;$i<256;$i++) { &data_word(&S1110($i),&S4404($i)); }
for ($i=0;$i<256;$i++) { &data_word(&S0222($i),&S3033($i)); }
{
my $_inp=&DWP(24,"esp"); my $_out=&DWP(28,"esp"); my $_len=&DWP(32,"esp"); my $_key=&DWP(36,"esp"); my $_ivp=&DWP(40,"esp"); my $ivec=&DWP(44,"esp"); my $_tmp=&DWP(44,"esp"); my ($s0,$s1,$s2,$s3) = @T;
&function_begin("Camellia_cbc_encrypt");
&mov ($s2 eq "ecx"? $s2 : "",&wparam(2)); &cmp ($s2,0);
&je (&label("enc_out"));
&pushf ();
&cld ();
&mov ($s0,&wparam(0)); &mov ($s1,&wparam(1)); &mov ($s3,&wparam(3)); &mov ($Tbl,&wparam(4));
&lea ($idx,&DWP(-64,"esp"));
&and ($idx,-64);
&lea ($key,&DWP(-64-63,$s3));
&sub ($key,$idx);
&neg ($key);
&and ($key,0x3C0); &sub ($idx,$key);
&mov ($key,&wparam(5));
&exch ("esp",$idx);
&add ("esp",4); &mov ($_esp,$idx);
&mov ($_inp,$s0); &mov ($_out,$s1); &mov ($_len,$s2); &mov ($_key,$s3); &mov ($_ivp,$Tbl);
&call (&label("pic_point")); &set_label("pic_point");
&blindpop($Tbl);
&lea ($Tbl,&DWP(&label("Camellia_SBOX")."-".&label("pic_point"),$Tbl));
&mov ($idx,32);
&set_label("prefetch_sbox",4);
&mov ($s0,&DWP(0,$Tbl));
&mov ($s1,&DWP(32,$Tbl));
&mov ($s2,&DWP(64,$Tbl));
&mov ($s3,&DWP(96,$Tbl));
&lea ($Tbl,&DWP(128,$Tbl));
&dec ($idx);
&jnz (&label("prefetch_sbox"));
&mov ($s0,$_key);
&sub ($Tbl,4096);
&mov ($idx,$_inp);
&mov ($s3,&DWP(272,$s0));
&cmp ($key,0);
&je (&label("DECRYPT"));
&mov ($s2,$_len);
&mov ($key,$_ivp);
&shl ($s3,6);
&lea ($s3,&DWP(0,$s0,$s3));
&mov ($_end,$s3);
&test ($s2,0xFFFFFFF0);
&jz (&label("enc_tail"));
&mov ($s0,&DWP(0,$key)); &mov ($s1,&DWP(4,$key));
&set_label("enc_loop",4);
&mov ($s2,&DWP(8,$key));
&mov ($s3,&DWP(12,$key));
&xor ($s0,&DWP(0,$idx)); &xor ($s1,&DWP(4,$idx));
&xor ($s2,&DWP(8,$idx));
&bswap ($s0);
&xor ($s3,&DWP(12,$idx));
&bswap ($s1);
&mov ($key,$_key); &bswap ($s2);
&bswap ($s3);
&call ("_x86_Camellia_encrypt");
&mov ($idx,$_inp); &mov ($key,$_out);
&bswap ($s0);
&bswap ($s1);
&bswap ($s2);
&mov (&DWP(0,$key),$s0); &bswap ($s3);
&mov (&DWP(4,$key),$s1);
&mov (&DWP(8,$key),$s2);
&mov (&DWP(12,$key),$s3);
&mov ($s2,$_len);
&lea ($idx,&DWP(16,$idx));
&mov ($_inp,$idx);
&lea ($s3,&DWP(16,$key));
&mov ($_out,$s3);
&sub ($s2,16);
&test ($s2,0xFFFFFFF0);
&mov ($_len,$s2); &jnz (&label("enc_loop"));
&test ($s2,15);
&jnz (&label("enc_tail"));
&mov ($idx,$_ivp); &mov ($s2,&DWP(8,$key)); &mov ($s3,&DWP(12,$key));
&mov (&DWP(0,$idx),$s0); &mov (&DWP(4,$idx),$s1);
&mov (&DWP(8,$idx),$s2);
&mov (&DWP(12,$idx),$s3);
&mov ("esp",$_esp);
&popf ();
&set_label("enc_out");
&function_end_A();
&pushf ();
&set_label("enc_tail",4);
&mov ($s0,$key eq "edi" ? $key : "");
&mov ($key,$_out); &push ($s0); &mov ($s1,16);
&sub ($s1,$s2);
&cmp ($key,$idx); &je (&label("enc_in_place"));
&align (4);
&data_word(0xA4F3F689); &jmp (&label("enc_skip_in_place"));
&set_label("enc_in_place");
&lea ($key,&DWP(0,$key,$s2));
&set_label("enc_skip_in_place");
&mov ($s2,$s1);
&xor ($s0,$s0);
&align (4);
&data_word(0xAAF3F689); &pop ($key);
&mov ($idx,$_out); &mov ($s0,&DWP(0,$key));
&mov ($s1,&DWP(4,$key));
&mov ($_len,16); &jmp (&label("enc_loop"));
&set_label("DECRYPT",16);
&shl ($s3,6);
&lea ($s3,&DWP(0,$s0,$s3));
&mov ($_end,$s0);
&mov ($_key,$s3);
&cmp ($idx,$_out);
&je (&label("dec_in_place"));
&mov ($key,$_ivp); &mov ($_tmp,$key);
&set_label("dec_loop",4);
&mov ($s0,&DWP(0,$idx)); &mov ($s1,&DWP(4,$idx));
&mov ($s2,&DWP(8,$idx));
&bswap ($s0);
&mov ($s3,&DWP(12,$idx));
&bswap ($s1);
&mov ($key,$_key); &bswap ($s2);
&bswap ($s3);
&call ("_x86_Camellia_decrypt");
&mov ($key,$_tmp); &mov ($idx,$_len);
&bswap ($s0);
&bswap ($s1);
&bswap ($s2);
&xor ($s0,&DWP(0,$key)); &bswap ($s3);
&xor ($s1,&DWP(4,$key));
&xor ($s2,&DWP(8,$key));
&xor ($s3,&DWP(12,$key));
&sub ($idx,16);
&jc (&label("dec_partial"));
&mov ($_len,$idx); &mov ($idx,$_inp); &mov ($key,$_out);
&mov (&DWP(0,$key),$s0); &mov (&DWP(4,$key),$s1);
&mov (&DWP(8,$key),$s2);
&mov (&DWP(12,$key),$s3);
&mov ($_tmp,$idx); &lea ($idx,&DWP(16,$idx));
&mov ($_inp,$idx);
&lea ($key,&DWP(16,$key));
&mov ($_out,$key);
&jnz (&label("dec_loop"));
&mov ($key,$_tmp); &set_label("dec_end");
&mov ($idx,$_ivp); &mov ($s0,&DWP(0,$key)); &mov ($s1,&DWP(4,$key));
&mov ($s2,&DWP(8,$key));
&mov ($s3,&DWP(12,$key));
&mov (&DWP(0,$idx),$s0); &mov (&DWP(4,$idx),$s1);
&mov (&DWP(8,$idx),$s2);
&mov (&DWP(12,$idx),$s3);
&jmp (&label("dec_out"));
&set_label("dec_partial",4);
&lea ($key,$ivec);
&mov (&DWP(0,$key),$s0); &mov (&DWP(4,$key),$s1);
&mov (&DWP(8,$key),$s2);
&mov (&DWP(12,$key),$s3);
&lea ($s2 eq "ecx" ? $s2 : "",&DWP(16,$idx));
&mov ($idx eq "esi" ? $idx : "",$key);
&mov ($key eq "edi" ? $key : "",$_out); &data_word(0xA4F3F689); &mov ($key,$_inp); &jmp (&label("dec_end"));
&set_label("dec_in_place",4);
&set_label("dec_in_place_loop");
&lea ($key,$ivec);
&mov ($s0,&DWP(0,$idx)); &mov ($s1,&DWP(4,$idx));
&mov ($s2,&DWP(8,$idx));
&mov ($s3,&DWP(12,$idx));
&mov (&DWP(0,$key),$s0); &mov (&DWP(4,$key),$s1);
&mov (&DWP(8,$key),$s2);
&bswap ($s0);
&mov (&DWP(12,$key),$s3);
&bswap ($s1);
&mov ($key,$_key); &bswap ($s2);
&bswap ($s3);
&call ("_x86_Camellia_decrypt");
&mov ($key,$_ivp); &mov ($idx,$_out);
&bswap ($s0);
&bswap ($s1);
&bswap ($s2);
&xor ($s0,&DWP(0,$key)); &bswap ($s3);
&xor ($s1,&DWP(4,$key));
&xor ($s2,&DWP(8,$key));
&xor ($s3,&DWP(12,$key));
&mov (&DWP(0,$idx),$s0); &mov (&DWP(4,$idx),$s1);
&mov (&DWP(8,$idx),$s2);
&mov (&DWP(12,$idx),$s3);
&lea ($idx,&DWP(16,$idx));
&mov ($_out,$idx);
&lea ($idx,$ivec);
&mov ($s0,&DWP(0,$idx)); &mov ($s1,&DWP(4,$idx));
&mov ($s2,&DWP(8,$idx));
&mov ($s3,&DWP(12,$idx));
&mov (&DWP(0,$key),$s0); &mov (&DWP(4,$key),$s1);
&mov (&DWP(8,$key),$s2);
&mov (&DWP(12,$key),$s3);
&mov ($idx,$_inp);
&lea ($idx,&DWP(16,$idx));
&mov ($_inp,$idx);
&mov ($s2,$_len); &sub ($s2,16);
&jc (&label("dec_in_place_partial"));
&mov ($_len,$s2); &jnz (&label("dec_in_place_loop"));
&jmp (&label("dec_out"));
&set_label("dec_in_place_partial",4);
&mov ($key eq "edi" ? $key : "",$_out);
&lea ($idx eq "esi" ? $idx : "",$ivec);
&lea ($key,&DWP(0,$key,$s2));
&lea ($idx,&DWP(16,$idx,$s2));
&neg ($s2 eq "ecx" ? $s2 : "");
&data_word(0xA4F3F689);
&set_label("dec_out",4);
&mov ("esp",$_esp);
&popf ();
&function_end("Camellia_cbc_encrypt");
}
&asciz("Camellia for x86 by <appro@openssl.org>");
&asm_finish();