1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
| #! /usr/bin/env perl
| # Copyright 1995-2020 The OpenSSL Project Authors. All Rights Reserved.
| #
| # Licensed under the OpenSSL license (the "License"). You may not use
| # this file except in compliance with the License. You can obtain a copy
| # in the file LICENSE in the source distribution or at
| # https://www.openssl.org/source/license.html
|
|
| $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
| push(@INC,"${dir}","${dir}../../perlasm");
| require "x86asm.pl";
| require "cbc.pl";
|
| $output = pop;
| open STDOUT,">$output";
|
| &asm_init($ARGV[0]);
|
| $RC5_MAX_ROUNDS=16;
| $RC5_32_OFF=($RC5_MAX_ROUNDS+2)*4;
| $A="edi";
| $B="esi";
| $S="ebp";
| $tmp1="eax";
| $r="ebx";
| $tmpc="ecx";
| $tmp4="edx";
|
| &RC5_32_encrypt("RC5_32_encrypt",1);
| &RC5_32_encrypt("RC5_32_decrypt",0);
| &cbc("RC5_32_cbc_encrypt","RC5_32_encrypt","RC5_32_decrypt",0,4,5,3,-1,-1);
| &asm_finish();
|
| close STDOUT or die "error closing STDOUT: $!";
|
| sub RC5_32_encrypt
| {
| local($name,$enc)=@_;
|
| &function_begin_B($name,"");
|
| &comment("");
|
| &push("ebp");
| &push("esi");
| &push("edi");
| &mov($tmp4,&wparam(0));
| &mov($S,&wparam(1));
|
| &comment("Load the 2 words");
| &mov($A,&DWP(0,$tmp4,"",0));
| &mov($B,&DWP(4,$tmp4,"",0));
|
| &push($r);
| &mov($r, &DWP(0,$S,"",0));
|
| # encrypting part
|
| if ($enc)
| {
| &add($A, &DWP(4+0,$S,"",0));
| &add($B, &DWP(4+4,$S,"",0));
|
| for ($i=0; $i<$RC5_MAX_ROUNDS; $i++)
| {
| &xor($A, $B);
| &mov($tmp1, &DWP(12+$i*8,$S,"",0));
| &mov($tmpc, $B);
| &rotl($A, &LB("ecx"));
| &add($A, $tmp1);
|
| &xor($B, $A);
| &mov($tmp1, &DWP(16+$i*8,$S,"",0));
| &mov($tmpc, $A);
| &rotl($B, &LB("ecx"));
| &add($B, $tmp1);
| if (($i == 7) || ($i == 11))
| {
| &cmp($r, $i+1);
| &je(&label("rc5_exit"));
| }
| }
| }
| else
| {
| &cmp($r, 12);
| &je(&label("rc5_dec_12"));
| &cmp($r, 8);
| &je(&label("rc5_dec_8"));
| for ($i=$RC5_MAX_ROUNDS; $i > 0; $i--)
| {
| &set_label("rc5_dec_$i") if ($i == 12) || ($i == 8);
| &mov($tmp1, &DWP($i*8+8,$S,"",0));
| &sub($B, $tmp1);
| &mov($tmpc, $A);
| &rotr($B, &LB("ecx"));
| &xor($B, $A);
|
| &mov($tmp1, &DWP($i*8+4,$S,"",0));
| &sub($A, $tmp1);
| &mov($tmpc, $B);
| &rotr($A, &LB("ecx"));
| &xor($A, $B);
| }
| &sub($B, &DWP(4+4,$S,"",0));
| &sub($A, &DWP(4+0,$S,"",0));
| }
|
| &set_label("rc5_exit");
| &mov(&DWP(0,$tmp4,"",0),$A);
| &mov(&DWP(4,$tmp4,"",0),$B);
|
| &pop("ebx");
| &pop("edi");
| &pop("esi");
| &pop("ebp");
| &ret();
| &function_end_B($name);
| }
|
|
