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 |