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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
|
;*
;* $Id: gost_asm.asm,v 1.1.1.1 2002/03/28 00:03:01 andrew_belov Exp $
;* ---------------------------------------------------------------------------
;* Optimized assembly language routines for 386+ are located in this module.
;*
INCLUDE ASM_INCL.INC
public gost_loop_32
.386C
.CODE
;*
;* Imported variables
;*
extern pattern:byte
;*
;* General GOST procedure
;*
gost_term_32 proc
data_acc = dword ptr -4
g_data = dword ptr 4
push bp
mov bp, sp
sub sp, 4
push si
lea si, [bp+g_data]
mov al, [si]
mov ah, 0
mov bx, ax
mov al, pattern[bx+300h]
mov byte ptr [bp+data_acc], al
mov al, byte ptr [bp+g_data+1]
mov ah, 0
mov bx, ax
mov al, pattern[bx+200h]
mov byte ptr [bp+data_acc+1], al
mov al, byte ptr [bp+g_data+2]
mov ah, 0
mov bx, ax
mov al, pattern[bx+100h]
mov byte ptr [bp+data_acc+2], al
mov al, byte ptr [bp+g_data+3]
mov ah, 0
mov bx, ax
mov al, pattern[bx]
mov byte ptr [bp+data_acc+3], al
mov eax, [bp+data_acc]
shl eax, 11
mov edx, [bp+data_acc]
shr edx, 21
or eax, edx
shld edx, eax, 16
pop si
leave
ret
gost_term_32 endp
;*
;* Encoding/decoding loop
;*
gost_loop_32 proc
mod1 = dword ptr -8
mod2 = dword ptr -4
src = word ptr 4
dest = word ptr 6
key = word ptr 8
push bp
mov bp, sp
sub sp, 8
push si
push di
mov di, [bp+src]
mov si, [bp+key]
mov eax, [di]
mov [bp+mod2], eax
mov eax, [di+4]
mov [bp+mod1], eax
xor di, di
loop_start:
mov eax, [bp+mod2]
add eax, [si]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod1], eax
mov eax, [bp+mod1]
add eax, [si+4]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod2], eax
mov eax, [bp+mod2]
add eax, [si+8]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod1], eax
mov eax, [bp+mod1]
add eax, [si+12]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod2], eax
mov eax, [bp+mod2]
add eax, [si+16]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod1], eax
mov eax, [bp+mod1]
add eax, [si+20]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod2], eax
mov eax, [bp+mod2]
add eax, [si+24]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod1], eax
mov eax, [bp+mod1]
add eax, [si+28]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod2], eax
inc di
cmp di, 3
jge loop_end
jmp loop_start
loop_end:
mov eax, [bp+mod2]
add eax, [si+28]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod1], eax
mov eax, [bp+mod1]
add eax, [si+24]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod2], eax
mov eax, [bp+mod2]
add eax, [si+20]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod1], eax
mov eax, [bp+mod1]
add eax, [si+16]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod2], eax
mov eax, [bp+mod2]
add eax, [si+12]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod1], eax
mov eax, [bp+mod1]
add eax, [si+8]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod2], eax
mov eax, [bp+mod2]
add eax, [si+4]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod1], eax
mov eax, [bp+mod1]
add eax, [si]
push eax
call gost_term_32
shl eax, 16
shrd eax, edx, 16
add sp, 4
xor [bp+mod2], eax
mov bx, [bp+dest]
mov eax, [bp+mod1]
mov [bx], eax
mov eax, [bp+mod2]
mov [bx+4], eax
pop di
pop si
leave
ret
gost_loop_32 endp
end
|
