| OLD | NEW |
| 1 #!/usr/local/bin/perl | 1 #!/usr/local/bin/perl |
| 2 | 2 |
| 3 # Normal is the | 3 # Normal is the |
| 4 # md5_block_x86(MD5_CTX *c, ULONG *X); | 4 # md5_block_x86(MD5_CTX *c, ULONG *X); |
| 5 # version, non-normal is the | 5 # version, non-normal is the |
| 6 # md5_block_x86(MD5_CTX *c, ULONG *X,int blocks); | 6 # md5_block_x86(MD5_CTX *c, ULONG *X,int blocks); |
| 7 | 7 |
| 8 $normal=0; | 8 $normal=0; |
| 9 | 9 |
| 10 push(@INC,"perlasm","../../perlasm"); | 10 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; |
| 11 push(@INC,"${dir}","${dir}../../perlasm"); |
| 11 require "x86asm.pl"; | 12 require "x86asm.pl"; |
| 12 | 13 |
| 13 &asm_init($ARGV[0],$0); | 14 &asm_init($ARGV[0],$0); |
| 14 | 15 |
| 15 $A="eax"; | 16 $A="eax"; |
| 16 $B="ebx"; | 17 $B="ebx"; |
| 17 $C="ecx"; | 18 $C="ecx"; |
| 18 $D="edx"; | 19 $D="edx"; |
| 19 $tmp1="edi"; | 20 $tmp1="edi"; |
| 20 $tmp2="ebp"; | 21 $tmp2="ebp"; |
| (...skipping 276 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 297 | 298 |
| 298 &pop("eax"); # pop the temp variable off the stack | 299 &pop("eax"); # pop the temp variable off the stack |
| 299 &pop("ebx"); | 300 &pop("ebx"); |
| 300 &pop("ebp"); | 301 &pop("ebp"); |
| 301 &pop("edi"); | 302 &pop("edi"); |
| 302 &pop("esi"); | 303 &pop("esi"); |
| 303 &ret(); | 304 &ret(); |
| 304 &function_end_B($name); | 305 &function_end_B($name); |
| 305 } | 306 } |
| 306 | 307 |
| OLD | NEW |