Lines Matching refs:code
46 $code=".text\n";
72 while(defined($i=shift)) { $code.=sprintf".long\t0x%08x,0x%08x\n",$i,$i; }
77 $code.=".long\t";
78 while(defined($i=shift)) { $code.=sprintf"0x%08x,",$i; }
79 $code.=sprintf"0x%08x\n",$last;
85 $code.=".byte\t";
86 while(defined($i=shift)) { $code.=sprintf"0x%02x,",$i&0xff; }
87 $code.=sprintf"0x%02x\n",$last&0xff;
93 $code.=<<___;
153 $code.=<<___;
252 $code.=" movzb ".&lo($s[0]).",$out\n";
253 $code.=" mov $s[2],$tmp1\n" if ($i!=3);
254 $code.=" lea 16($key),$key\n" if ($i==0);
256 $code.=" movzb ".&hi($s[1]).",$tmp0\n";
257 $code.=" mov 0($sbox,$out,8),$out\n";
259 $code.=" shr \$16,$tmp1\n";
260 $code.=" mov $s[3],$tmp2\n" if ($i!=3);
261 $code.=" xor 3($sbox,$tmp0,8),$out\n";
263 $code.=" movzb ".&lo($tmp1).",$tmp1\n";
264 $code.=" shr \$24,$tmp2\n";
265 $code.=" xor 4*$i($key),$out\n";
267 $code.=" xor 2($sbox,$tmp1,8),$out\n";
268 $code.=" xor 1($sbox,$tmp2,8),$out\n";
270 $code.=" mov $t0,$s[1]\n" if ($i==3);
271 $code.=" mov $t1,$s[2]\n" if ($i==3);
272 $code.=" mov $t2,$s[3]\n" if ($i==3);
273 $code.="\n";
288 $code.=" movzb ".&lo($s[0]).",$out\n";
289 $code.=" mov $s[2],$tmp1\n" if ($i!=3);
291 $code.=" mov 2($sbox,$out,8),$out\n";
292 $code.=" shr \$16,$tmp1\n";
293 $code.=" mov $s[3],$tmp2\n" if ($i!=3);
295 $code.=" and \$0x000000ff,$out\n";
296 $code.=" movzb ".&hi($s[1]).",$tmp0\n";
297 $code.=" movzb ".&lo($tmp1).",$tmp1\n";
298 $code.=" shr \$24,$tmp2\n";
300 $code.=" mov 0($sbox,$tmp0,8),$tmp0\n";
301 $code.=" mov 0($sbox,$tmp1,8),$tmp1\n";
302 $code.=" mov 2($sbox,$tmp2,8),$tmp2\n";
304 $code.=" and \$0x0000ff00,$tmp0\n";
305 $code.=" and \$0x00ff0000,$tmp1\n";
306 $code.=" and \$0xff000000,$tmp2\n";
308 $code.=" xor $tmp0,$out\n";
309 $code.=" mov $t0,$s[1]\n" if ($i==3);
310 $code.=" xor $tmp1,$out\n";
311 $code.=" mov $t1,$s[2]\n" if ($i==3);
312 $code.=" xor $tmp2,$out\n";
313 $code.=" mov $t2,$s[3]\n" if ($i==3);
314 $code.="\n";
317 $code.=<<___;
338 $code.=<<___;
347 $code.=<<___;
354 $code.=<<___;
365 $code.=<<___;
442 $code.=<<___;
468 $code.=<<___;
547 $code.=<<___;
570 $code.=<<___;
575 $code.=<<___;
588 $code.=<<___;
663 $code.=<<___;
723 $code.=<<___;
819 $code.=" mov $s[0],$out\n" if ($i!=3);
821 $code.=" mov $s[2],$tmp1\n" if ($i!=3);
822 $code.=" and \$0xFF,$out\n";
824 $code.=" mov 0($sbox,$out,8),$out\n";
825 $code.=" shr \$16,$tmp1\n";
827 $code.=" mov $s[3],$tmp2\n" if ($i!=3);
830 $code.=" movzb ".&hi($s[1]).",$tmp0\n";
831 $code.=" and \$0xFF,$tmp1\n";
832 $code.=" shr \$24,$tmp2\n";
834 $code.=" xor 3($sbox,$tmp0,8),$out\n";
835 $code.=" xor 2($sbox,$tmp1,8),$out\n";
836 $code.=" xor 1($sbox,$tmp2,8),$out\n";
838 $code.=" mov $t2,$s[1]\n" if ($i==3);
839 $code.=" mov $t1,$s[2]\n" if ($i==3);
840 $code.=" mov $t0,$s[3]\n" if ($i==3);
841 $code.="\n";
851 $code.=" mov $s[0],$out\n" if ($i!=3);
853 $code.=" mov $s[2],$tmp1\n" if ($i!=3);
854 $code.=" and \$0xFF,$out\n";
856 $code.=" movzb 2048($sbox,$out,1),$out\n";
857 $code.=" shr \$16,$tmp1\n";
859 $code.=" mov $s[3],$tmp2\n" if ($i!=3);
862 $code.=" movzb ".&hi($s[1]).",$tmp0\n";
863 $code.=" and \$0xFF,$tmp1\n";
864 $code.=" shr \$24,$tmp2\n";
866 $code.=" movzb 2048($sbox,$tmp0,1),$tmp0\n";
867 $code.=" movzb 2048($sbox,$tmp1,1),$tmp1\n";
868 $code.=" movzb 2048($sbox,$tmp2,1),$tmp2\n";
870 $code.=" shl \$8,$tmp0\n";
871 $code.=" shl \$16,$tmp1\n";
872 $code.=" shl \$24,$tmp2\n";
874 $code.=" xor $tmp0,$out\n";
875 $code.=" mov $t2,$s[1]\n" if ($i==3);
876 $code.=" xor $tmp1,$out\n";
877 $code.=" mov $t1,$s[2]\n" if ($i==3);
878 $code.=" xor $tmp2,$out\n";
879 $code.=" mov $t0,$s[3]\n" if ($i==3);
880 $code.="\n";
883 $code.=<<___;
903 $code.=<<___;
911 $code.=<<___;
920 $code.=<<___;
927 $code.=<<___;
935 $code.=<<___;
1016 $code.=<<___;
1137 $code.=<<___;
1161 $code.=<<___;
1174 $code.=<<___;
1187 $code.=<<___;
1262 $code.=<<___;
1289 $code.=<<___;
1366 $code.=<<___;
1401 $code.=<<___;
1446 $code.=<<___;
1506 $code.=<<___;
1559 $code.=<<___;
1613 $code.=<<___;
1653 $code.=<<___;
2114 $code.=<<___;
2316 $code.=<<___;
2322 $code.=<<___;
2424 $code.=<<___;
2460 $code.=<<___;
2496 $code.=<<___;
2532 $code.=<<___;
2547 $code.=<<___;
2815 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
2817 print $code;
