3$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; 4push(@INC,"${dir}","${dir}../../perlasm"); 5require "x86asm.pl"; 6require "cbc.pl"; 7
| 10$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; 11push(@INC,"${dir}","${dir}../../perlasm"); 12require "x86asm.pl"; 13require "cbc.pl"; 14
|
8&asm_init($ARGV[0],"bf-586.pl",$ARGV[$#ARGV] eq "386"); 9 10$BF_ROUNDS=16; 11$BF_OFF=($BF_ROUNDS+2)*4; 12$L="edi"; 13$R="esi"; 14$P="ebp"; 15$tmp1="eax"; 16$tmp2="ebx"; 17$tmp3="ecx"; 18$tmp4="edx"; 19 20&BF_encrypt("BF_encrypt",1); 21&BF_encrypt("BF_decrypt",0); 22&cbc("BF_cbc_encrypt","BF_encrypt","BF_decrypt",1,4,5,3,-1,-1); 23&asm_finish(); 24
| 18&asm_init($ARGV[0],"bf-586.pl",$ARGV[$#ARGV] eq "386"); 19 20$BF_ROUNDS=16; 21$BF_OFF=($BF_ROUNDS+2)*4; 22$L="edi"; 23$R="esi"; 24$P="ebp"; 25$tmp1="eax"; 26$tmp2="ebx"; 27$tmp3="ecx"; 28$tmp4="edx"; 29 30&BF_encrypt("BF_encrypt",1); 31&BF_encrypt("BF_decrypt",0); 32&cbc("BF_cbc_encrypt","BF_encrypt","BF_decrypt",1,4,5,3,-1,-1); 33&asm_finish(); 34
|
25sub BF_encrypt 26 { 27 local($name,$enc)=@_; 28 29 &function_begin_B($name,""); 30 31 &comment(""); 32
--- 105 unchanged lines hidden --- | 37sub BF_encrypt 38 { 39 local($name,$enc)=@_; 40 41 &function_begin_B($name,""); 42 43 &comment(""); 44
--- 105 unchanged lines hidden --- |