Delete a few unused files in apps, restore CAST WIN32 ASM file to main
[openssl.git] / crypto / cast / asm / c-win32.asm
1         ; Don't even think of reading this code
2         ; It was automatically generated by cast-586.pl
3         ; Which is a perl program used to generate the x86 assember for
4         ; any of elf, a.out, BSDI,Win32, or Solaris
5         ; eric <eay@cryptsoft.com>
6         ; 
7         TITLE   cast-586.asm
8         .486
9 .model FLAT
10 _TEXT   SEGMENT
11 PUBLIC  _CAST_encrypt
12 EXTERN  _CAST_S_table0:DWORD
13 EXTERN  _CAST_S_table1:DWORD
14 EXTERN  _CAST_S_table2:DWORD
15 EXTERN  _CAST_S_table3:DWORD
16
17 _CAST_encrypt PROC NEAR
18         ; 
19         push    ebp
20         push    ebx
21         mov     ebx,            DWORD PTR 12[esp]
22         mov     ebp,            DWORD PTR 16[esp]
23         push    esi
24         push    edi
25         ; Load the 2 words
26         mov     edi,            DWORD PTR [ebx]
27         mov     esi,            DWORD PTR 4[ebx]
28         ; Get short key flag
29         mov     eax,            DWORD PTR 128[ebp]
30         push    eax
31         xor     eax,            eax
32         ; round 0
33         mov     edx,            DWORD PTR [ebp]
34         mov     ecx,            DWORD PTR 4[ebp]
35         add     edx,            esi
36         rol     edx,            cl
37         mov     ebx,            edx
38         xor     ecx,            ecx
39         mov     cl,             dh
40         and     ebx,            255
41         shr     edx,            16
42         xor     eax,            eax
43         mov     al,             dh
44         and     edx,            255
45         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
46         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
47         xor     ecx,            ebx
48         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
49         sub     ecx,            ebx
50         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
51         add     ecx,            ebx
52         xor     edi,            ecx
53         ; round 1
54         mov     edx,            DWORD PTR 8[ebp]
55         mov     ecx,            DWORD PTR 12[ebp]
56         xor     edx,            edi
57         rol     edx,            cl
58         mov     ebx,            edx
59         xor     ecx,            ecx
60         mov     cl,             dh
61         and     ebx,            255
62         shr     edx,            16
63         xor     eax,            eax
64         mov     al,             dh
65         and     edx,            255
66         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
67         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
68         sub     ecx,            ebx
69         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
70         add     ecx,            ebx
71         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
72         xor     ecx,            ebx
73         xor     esi,            ecx
74         ; round 2
75         mov     edx,            DWORD PTR 16[ebp]
76         mov     ecx,            DWORD PTR 20[ebp]
77         sub     edx,            esi
78         rol     edx,            cl
79         mov     ebx,            edx
80         xor     ecx,            ecx
81         mov     cl,             dh
82         and     ebx,            255
83         shr     edx,            16
84         xor     eax,            eax
85         mov     al,             dh
86         and     edx,            255
87         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
88         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
89         add     ecx,            ebx
90         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
91         xor     ecx,            ebx
92         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
93         sub     ecx,            ebx
94         xor     edi,            ecx
95         ; round 3
96         mov     edx,            DWORD PTR 24[ebp]
97         mov     ecx,            DWORD PTR 28[ebp]
98         add     edx,            edi
99         rol     edx,            cl
100         mov     ebx,            edx
101         xor     ecx,            ecx
102         mov     cl,             dh
103         and     ebx,            255
104         shr     edx,            16
105         xor     eax,            eax
106         mov     al,             dh
107         and     edx,            255
108         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
109         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
110         xor     ecx,            ebx
111         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
112         sub     ecx,            ebx
113         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
114         add     ecx,            ebx
115         xor     esi,            ecx
116         ; round 4
117         mov     edx,            DWORD PTR 32[ebp]
118         mov     ecx,            DWORD PTR 36[ebp]
119         xor     edx,            esi
120         rol     edx,            cl
121         mov     ebx,            edx
122         xor     ecx,            ecx
123         mov     cl,             dh
124         and     ebx,            255
125         shr     edx,            16
126         xor     eax,            eax
127         mov     al,             dh
128         and     edx,            255
129         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
130         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
131         sub     ecx,            ebx
132         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
133         add     ecx,            ebx
134         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
135         xor     ecx,            ebx
136         xor     edi,            ecx
137         ; round 5
138         mov     edx,            DWORD PTR 40[ebp]
139         mov     ecx,            DWORD PTR 44[ebp]
140         sub     edx,            edi
141         rol     edx,            cl
142         mov     ebx,            edx
143         xor     ecx,            ecx
144         mov     cl,             dh
145         and     ebx,            255
146         shr     edx,            16
147         xor     eax,            eax
148         mov     al,             dh
149         and     edx,            255
150         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
151         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
152         add     ecx,            ebx
153         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
154         xor     ecx,            ebx
155         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
156         sub     ecx,            ebx
157         xor     esi,            ecx
158         ; round 6
159         mov     edx,            DWORD PTR 48[ebp]
160         mov     ecx,            DWORD PTR 52[ebp]
161         add     edx,            esi
162         rol     edx,            cl
163         mov     ebx,            edx
164         xor     ecx,            ecx
165         mov     cl,             dh
166         and     ebx,            255
167         shr     edx,            16
168         xor     eax,            eax
169         mov     al,             dh
170         and     edx,            255
171         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
172         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
173         xor     ecx,            ebx
174         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
175         sub     ecx,            ebx
176         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
177         add     ecx,            ebx
178         xor     edi,            ecx
179         ; round 7
180         mov     edx,            DWORD PTR 56[ebp]
181         mov     ecx,            DWORD PTR 60[ebp]
182         xor     edx,            edi
183         rol     edx,            cl
184         mov     ebx,            edx
185         xor     ecx,            ecx
186         mov     cl,             dh
187         and     ebx,            255
188         shr     edx,            16
189         xor     eax,            eax
190         mov     al,             dh
191         and     edx,            255
192         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
193         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
194         sub     ecx,            ebx
195         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
196         add     ecx,            ebx
197         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
198         xor     ecx,            ebx
199         xor     esi,            ecx
200         ; round 8
201         mov     edx,            DWORD PTR 64[ebp]
202         mov     ecx,            DWORD PTR 68[ebp]
203         sub     edx,            esi
204         rol     edx,            cl
205         mov     ebx,            edx
206         xor     ecx,            ecx
207         mov     cl,             dh
208         and     ebx,            255
209         shr     edx,            16
210         xor     eax,            eax
211         mov     al,             dh
212         and     edx,            255
213         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
214         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
215         add     ecx,            ebx
216         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
217         xor     ecx,            ebx
218         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
219         sub     ecx,            ebx
220         xor     edi,            ecx
221         ; round 9
222         mov     edx,            DWORD PTR 72[ebp]
223         mov     ecx,            DWORD PTR 76[ebp]
224         add     edx,            edi
225         rol     edx,            cl
226         mov     ebx,            edx
227         xor     ecx,            ecx
228         mov     cl,             dh
229         and     ebx,            255
230         shr     edx,            16
231         xor     eax,            eax
232         mov     al,             dh
233         and     edx,            255
234         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
235         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
236         xor     ecx,            ebx
237         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
238         sub     ecx,            ebx
239         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
240         add     ecx,            ebx
241         xor     esi,            ecx
242         ; round 10
243         mov     edx,            DWORD PTR 80[ebp]
244         mov     ecx,            DWORD PTR 84[ebp]
245         xor     edx,            esi
246         rol     edx,            cl
247         mov     ebx,            edx
248         xor     ecx,            ecx
249         mov     cl,             dh
250         and     ebx,            255
251         shr     edx,            16
252         xor     eax,            eax
253         mov     al,             dh
254         and     edx,            255
255         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
256         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
257         sub     ecx,            ebx
258         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
259         add     ecx,            ebx
260         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
261         xor     ecx,            ebx
262         xor     edi,            ecx
263         ; round 11
264         mov     edx,            DWORD PTR 88[ebp]
265         mov     ecx,            DWORD PTR 92[ebp]
266         sub     edx,            edi
267         rol     edx,            cl
268         mov     ebx,            edx
269         xor     ecx,            ecx
270         mov     cl,             dh
271         and     ebx,            255
272         shr     edx,            16
273         xor     eax,            eax
274         mov     al,             dh
275         and     edx,            255
276         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
277         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
278         add     ecx,            ebx
279         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
280         xor     ecx,            ebx
281         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
282         sub     ecx,            ebx
283         xor     esi,            ecx
284         ; test short key flag
285         pop     edx
286         or      edx,            edx
287         jnz     $L000cast_enc_done
288         ; round 12
289         mov     edx,            DWORD PTR 96[ebp]
290         mov     ecx,            DWORD PTR 100[ebp]
291         add     edx,            esi
292         rol     edx,            cl
293         mov     ebx,            edx
294         xor     ecx,            ecx
295         mov     cl,             dh
296         and     ebx,            255
297         shr     edx,            16
298         xor     eax,            eax
299         mov     al,             dh
300         and     edx,            255
301         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
302         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
303         xor     ecx,            ebx
304         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
305         sub     ecx,            ebx
306         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
307         add     ecx,            ebx
308         xor     edi,            ecx
309         ; round 13
310         mov     edx,            DWORD PTR 104[ebp]
311         mov     ecx,            DWORD PTR 108[ebp]
312         xor     edx,            edi
313         rol     edx,            cl
314         mov     ebx,            edx
315         xor     ecx,            ecx
316         mov     cl,             dh
317         and     ebx,            255
318         shr     edx,            16
319         xor     eax,            eax
320         mov     al,             dh
321         and     edx,            255
322         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
323         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
324         sub     ecx,            ebx
325         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
326         add     ecx,            ebx
327         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
328         xor     ecx,            ebx
329         xor     esi,            ecx
330         ; round 14
331         mov     edx,            DWORD PTR 112[ebp]
332         mov     ecx,            DWORD PTR 116[ebp]
333         sub     edx,            esi
334         rol     edx,            cl
335         mov     ebx,            edx
336         xor     ecx,            ecx
337         mov     cl,             dh
338         and     ebx,            255
339         shr     edx,            16
340         xor     eax,            eax
341         mov     al,             dh
342         and     edx,            255
343         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
344         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
345         add     ecx,            ebx
346         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
347         xor     ecx,            ebx
348         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
349         sub     ecx,            ebx
350         xor     edi,            ecx
351         ; round 15
352         mov     edx,            DWORD PTR 120[ebp]
353         mov     ecx,            DWORD PTR 124[ebp]
354         add     edx,            edi
355         rol     edx,            cl
356         mov     ebx,            edx
357         xor     ecx,            ecx
358         mov     cl,             dh
359         and     ebx,            255
360         shr     edx,            16
361         xor     eax,            eax
362         mov     al,             dh
363         and     edx,            255
364         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
365         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
366         xor     ecx,            ebx
367         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
368         sub     ecx,            ebx
369         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
370         add     ecx,            ebx
371         xor     esi,            ecx
372 $L000cast_enc_done:
373         nop
374         mov     eax,            DWORD PTR 20[esp]
375         mov     DWORD PTR 4[eax],edi
376         mov     DWORD PTR [eax],esi
377         pop     edi
378         pop     esi
379         pop     ebx
380         pop     ebp
381         ret
382 _CAST_encrypt ENDP
383 _TEXT   ENDS
384 _TEXT   SEGMENT
385 PUBLIC  _CAST_decrypt
386 EXTERN  _CAST_S_table0:DWORD
387 EXTERN  _CAST_S_table1:DWORD
388 EXTERN  _CAST_S_table2:DWORD
389 EXTERN  _CAST_S_table3:DWORD
390
391 _CAST_decrypt PROC NEAR
392         ; 
393         push    ebp
394         push    ebx
395         mov     ebx,            DWORD PTR 12[esp]
396         mov     ebp,            DWORD PTR 16[esp]
397         push    esi
398         push    edi
399         ; Load the 2 words
400         mov     edi,            DWORD PTR [ebx]
401         mov     esi,            DWORD PTR 4[ebx]
402         ; Get short key flag
403         mov     eax,            DWORD PTR 128[ebp]
404         or      eax,            eax
405         jnz     $L001cast_dec_skip
406         xor     eax,            eax
407         ; round 15
408         mov     edx,            DWORD PTR 120[ebp]
409         mov     ecx,            DWORD PTR 124[ebp]
410         add     edx,            esi
411         rol     edx,            cl
412         mov     ebx,            edx
413         xor     ecx,            ecx
414         mov     cl,             dh
415         and     ebx,            255
416         shr     edx,            16
417         xor     eax,            eax
418         mov     al,             dh
419         and     edx,            255
420         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
421         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
422         xor     ecx,            ebx
423         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
424         sub     ecx,            ebx
425         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
426         add     ecx,            ebx
427         xor     edi,            ecx
428         ; round 14
429         mov     edx,            DWORD PTR 112[ebp]
430         mov     ecx,            DWORD PTR 116[ebp]
431         sub     edx,            edi
432         rol     edx,            cl
433         mov     ebx,            edx
434         xor     ecx,            ecx
435         mov     cl,             dh
436         and     ebx,            255
437         shr     edx,            16
438         xor     eax,            eax
439         mov     al,             dh
440         and     edx,            255
441         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
442         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
443         add     ecx,            ebx
444         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
445         xor     ecx,            ebx
446         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
447         sub     ecx,            ebx
448         xor     esi,            ecx
449         ; round 13
450         mov     edx,            DWORD PTR 104[ebp]
451         mov     ecx,            DWORD PTR 108[ebp]
452         xor     edx,            esi
453         rol     edx,            cl
454         mov     ebx,            edx
455         xor     ecx,            ecx
456         mov     cl,             dh
457         and     ebx,            255
458         shr     edx,            16
459         xor     eax,            eax
460         mov     al,             dh
461         and     edx,            255
462         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
463         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
464         sub     ecx,            ebx
465         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
466         add     ecx,            ebx
467         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
468         xor     ecx,            ebx
469         xor     edi,            ecx
470         ; round 12
471         mov     edx,            DWORD PTR 96[ebp]
472         mov     ecx,            DWORD PTR 100[ebp]
473         add     edx,            edi
474         rol     edx,            cl
475         mov     ebx,            edx
476         xor     ecx,            ecx
477         mov     cl,             dh
478         and     ebx,            255
479         shr     edx,            16
480         xor     eax,            eax
481         mov     al,             dh
482         and     edx,            255
483         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
484         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
485         xor     ecx,            ebx
486         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
487         sub     ecx,            ebx
488         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
489         add     ecx,            ebx
490         xor     esi,            ecx
491 $L001cast_dec_skip:
492         ; round 11
493         mov     edx,            DWORD PTR 88[ebp]
494         mov     ecx,            DWORD PTR 92[ebp]
495         sub     edx,            esi
496         rol     edx,            cl
497         mov     ebx,            edx
498         xor     ecx,            ecx
499         mov     cl,             dh
500         and     ebx,            255
501         shr     edx,            16
502         xor     eax,            eax
503         mov     al,             dh
504         and     edx,            255
505         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
506         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
507         add     ecx,            ebx
508         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
509         xor     ecx,            ebx
510         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
511         sub     ecx,            ebx
512         xor     edi,            ecx
513         ; round 10
514         mov     edx,            DWORD PTR 80[ebp]
515         mov     ecx,            DWORD PTR 84[ebp]
516         xor     edx,            edi
517         rol     edx,            cl
518         mov     ebx,            edx
519         xor     ecx,            ecx
520         mov     cl,             dh
521         and     ebx,            255
522         shr     edx,            16
523         xor     eax,            eax
524         mov     al,             dh
525         and     edx,            255
526         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
527         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
528         sub     ecx,            ebx
529         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
530         add     ecx,            ebx
531         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
532         xor     ecx,            ebx
533         xor     esi,            ecx
534         ; round 9
535         mov     edx,            DWORD PTR 72[ebp]
536         mov     ecx,            DWORD PTR 76[ebp]
537         add     edx,            esi
538         rol     edx,            cl
539         mov     ebx,            edx
540         xor     ecx,            ecx
541         mov     cl,             dh
542         and     ebx,            255
543         shr     edx,            16
544         xor     eax,            eax
545         mov     al,             dh
546         and     edx,            255
547         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
548         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
549         xor     ecx,            ebx
550         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
551         sub     ecx,            ebx
552         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
553         add     ecx,            ebx
554         xor     edi,            ecx
555         ; round 8
556         mov     edx,            DWORD PTR 64[ebp]
557         mov     ecx,            DWORD PTR 68[ebp]
558         sub     edx,            edi
559         rol     edx,            cl
560         mov     ebx,            edx
561         xor     ecx,            ecx
562         mov     cl,             dh
563         and     ebx,            255
564         shr     edx,            16
565         xor     eax,            eax
566         mov     al,             dh
567         and     edx,            255
568         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
569         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
570         add     ecx,            ebx
571         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
572         xor     ecx,            ebx
573         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
574         sub     ecx,            ebx
575         xor     esi,            ecx
576         ; round 7
577         mov     edx,            DWORD PTR 56[ebp]
578         mov     ecx,            DWORD PTR 60[ebp]
579         xor     edx,            esi
580         rol     edx,            cl
581         mov     ebx,            edx
582         xor     ecx,            ecx
583         mov     cl,             dh
584         and     ebx,            255
585         shr     edx,            16
586         xor     eax,            eax
587         mov     al,             dh
588         and     edx,            255
589         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
590         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
591         sub     ecx,            ebx
592         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
593         add     ecx,            ebx
594         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
595         xor     ecx,            ebx
596         xor     edi,            ecx
597         ; round 6
598         mov     edx,            DWORD PTR 48[ebp]
599         mov     ecx,            DWORD PTR 52[ebp]
600         add     edx,            edi
601         rol     edx,            cl
602         mov     ebx,            edx
603         xor     ecx,            ecx
604         mov     cl,             dh
605         and     ebx,            255
606         shr     edx,            16
607         xor     eax,            eax
608         mov     al,             dh
609         and     edx,            255
610         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
611         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
612         xor     ecx,            ebx
613         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
614         sub     ecx,            ebx
615         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
616         add     ecx,            ebx
617         xor     esi,            ecx
618         ; round 5
619         mov     edx,            DWORD PTR 40[ebp]
620         mov     ecx,            DWORD PTR 44[ebp]
621         sub     edx,            esi
622         rol     edx,            cl
623         mov     ebx,            edx
624         xor     ecx,            ecx
625         mov     cl,             dh
626         and     ebx,            255
627         shr     edx,            16
628         xor     eax,            eax
629         mov     al,             dh
630         and     edx,            255
631         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
632         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
633         add     ecx,            ebx
634         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
635         xor     ecx,            ebx
636         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
637         sub     ecx,            ebx
638         xor     edi,            ecx
639         ; round 4
640         mov     edx,            DWORD PTR 32[ebp]
641         mov     ecx,            DWORD PTR 36[ebp]
642         xor     edx,            edi
643         rol     edx,            cl
644         mov     ebx,            edx
645         xor     ecx,            ecx
646         mov     cl,             dh
647         and     ebx,            255
648         shr     edx,            16
649         xor     eax,            eax
650         mov     al,             dh
651         and     edx,            255
652         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
653         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
654         sub     ecx,            ebx
655         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
656         add     ecx,            ebx
657         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
658         xor     ecx,            ebx
659         xor     esi,            ecx
660         ; round 3
661         mov     edx,            DWORD PTR 24[ebp]
662         mov     ecx,            DWORD PTR 28[ebp]
663         add     edx,            esi
664         rol     edx,            cl
665         mov     ebx,            edx
666         xor     ecx,            ecx
667         mov     cl,             dh
668         and     ebx,            255
669         shr     edx,            16
670         xor     eax,            eax
671         mov     al,             dh
672         and     edx,            255
673         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
674         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
675         xor     ecx,            ebx
676         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
677         sub     ecx,            ebx
678         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
679         add     ecx,            ebx
680         xor     edi,            ecx
681         ; round 2
682         mov     edx,            DWORD PTR 16[ebp]
683         mov     ecx,            DWORD PTR 20[ebp]
684         sub     edx,            edi
685         rol     edx,            cl
686         mov     ebx,            edx
687         xor     ecx,            ecx
688         mov     cl,             dh
689         and     ebx,            255
690         shr     edx,            16
691         xor     eax,            eax
692         mov     al,             dh
693         and     edx,            255
694         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
695         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
696         add     ecx,            ebx
697         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
698         xor     ecx,            ebx
699         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
700         sub     ecx,            ebx
701         xor     esi,            ecx
702         ; round 1
703         mov     edx,            DWORD PTR 8[ebp]
704         mov     ecx,            DWORD PTR 12[ebp]
705         xor     edx,            esi
706         rol     edx,            cl
707         mov     ebx,            edx
708         xor     ecx,            ecx
709         mov     cl,             dh
710         and     ebx,            255
711         shr     edx,            16
712         xor     eax,            eax
713         mov     al,             dh
714         and     edx,            255
715         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
716         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
717         sub     ecx,            ebx
718         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
719         add     ecx,            ebx
720         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
721         xor     ecx,            ebx
722         xor     edi,            ecx
723         ; round 0
724         mov     edx,            DWORD PTR [ebp]
725         mov     ecx,            DWORD PTR 4[ebp]
726         add     edx,            edi
727         rol     edx,            cl
728         mov     ebx,            edx
729         xor     ecx,            ecx
730         mov     cl,             dh
731         and     ebx,            255
732         shr     edx,            16
733         xor     eax,            eax
734         mov     al,             dh
735         and     edx,            255
736         mov     ecx,            DWORD PTR _CAST_S_table0[ecx*4]
737         mov     ebx,            DWORD PTR _CAST_S_table1[ebx*4]
738         xor     ecx,            ebx
739         mov     ebx,            DWORD PTR _CAST_S_table2[eax*4]
740         sub     ecx,            ebx
741         mov     ebx,            DWORD PTR _CAST_S_table3[edx*4]
742         add     ecx,            ebx
743         xor     esi,            ecx
744         nop
745         mov     eax,            DWORD PTR 20[esp]
746         mov     DWORD PTR 4[eax],edi
747         mov     DWORD PTR [eax],esi
748         pop     edi
749         pop     esi
750         pop     ebx
751         pop     ebp
752         ret
753 _CAST_decrypt ENDP
754 _TEXT   ENDS
755 _TEXT   SEGMENT
756 PUBLIC  _CAST_cbc_encrypt
757
758 _CAST_cbc_encrypt PROC NEAR
759         ; 
760         push    ebp
761         push    ebx
762         push    esi
763         push    edi
764         mov     ebp,            DWORD PTR 28[esp]
765         ; getting iv ptr from parameter 4
766         mov     ebx,            DWORD PTR 36[esp]
767         mov     esi,            DWORD PTR [ebx]
768         mov     edi,            DWORD PTR 4[ebx]
769         push    edi
770         push    esi
771         push    edi
772         push    esi
773         mov     ebx,            esp
774         mov     esi,            DWORD PTR 36[esp]
775         mov     edi,            DWORD PTR 40[esp]
776         ; getting encrypt flag from parameter 5
777         mov     ecx,            DWORD PTR 56[esp]
778         ; get and push parameter 3
779         mov     eax,            DWORD PTR 48[esp]
780         push    eax
781         push    ebx
782         cmp     ecx,            0
783         jz      $L002decrypt
784         and     ebp,            4294967288
785         mov     eax,            DWORD PTR 8[esp]
786         mov     ebx,            DWORD PTR 12[esp]
787         jz      $L003encrypt_finish
788 L004encrypt_loop:
789         mov     ecx,            DWORD PTR [esi]
790         mov     edx,            DWORD PTR 4[esi]
791         xor     eax,            ecx
792         xor     ebx,            edx
793         bswap   eax
794         bswap   ebx
795         mov     DWORD PTR 8[esp],eax
796         mov     DWORD PTR 12[esp],ebx
797         call    _CAST_encrypt
798         mov     eax,            DWORD PTR 8[esp]
799         mov     ebx,            DWORD PTR 12[esp]
800         bswap   eax
801         bswap   ebx
802         mov     DWORD PTR [edi],eax
803         mov     DWORD PTR 4[edi],ebx
804         add     esi,            8
805         add     edi,            8
806         sub     ebp,            8
807         jnz     L004encrypt_loop
808 $L003encrypt_finish:
809         mov     ebp,            DWORD PTR 52[esp]
810         and     ebp,            7
811         jz      $L005finish
812         xor     ecx,            ecx
813         xor     edx,            edx
814         mov     ebp,            DWORD PTR $L006cbc_enc_jmp_table[ebp*4]
815         jmp      ebp
816 L007ej7:
817         xor     edx,            edx
818         mov     dh,             BYTE PTR 6[esi]
819         shl     edx,            8
820 L008ej6:
821         mov     dh,             BYTE PTR 5[esi]
822 L009ej5:
823         mov     dl,             BYTE PTR 4[esi]
824 L010ej4:
825         mov     ecx,            DWORD PTR [esi]
826         jmp     $L011ejend
827 L012ej3:
828         mov     ch,             BYTE PTR 2[esi]
829         xor     ecx,            ecx
830         shl     ecx,            8
831 L013ej2:
832         mov     ch,             BYTE PTR 1[esi]
833 L014ej1:
834         mov     cl,             BYTE PTR [esi]
835 $L011ejend:
836         xor     eax,            ecx
837         xor     ebx,            edx
838         bswap   eax
839         bswap   ebx
840         mov     DWORD PTR 8[esp],eax
841         mov     DWORD PTR 12[esp],ebx
842         call    _CAST_encrypt
843         mov     eax,            DWORD PTR 8[esp]
844         mov     ebx,            DWORD PTR 12[esp]
845         bswap   eax
846         bswap   ebx
847         mov     DWORD PTR [edi],eax
848         mov     DWORD PTR 4[edi],ebx
849         jmp     $L005finish
850 $L002decrypt:
851         and     ebp,            4294967288
852         mov     eax,            DWORD PTR 16[esp]
853         mov     ebx,            DWORD PTR 20[esp]
854         jz      $L015decrypt_finish
855 L016decrypt_loop:
856         mov     eax,            DWORD PTR [esi]
857         mov     ebx,            DWORD PTR 4[esi]
858         bswap   eax
859         bswap   ebx
860         mov     DWORD PTR 8[esp],eax
861         mov     DWORD PTR 12[esp],ebx
862         call    _CAST_decrypt
863         mov     eax,            DWORD PTR 8[esp]
864         mov     ebx,            DWORD PTR 12[esp]
865         bswap   eax
866         bswap   ebx
867         mov     ecx,            DWORD PTR 16[esp]
868         mov     edx,            DWORD PTR 20[esp]
869         xor     ecx,            eax
870         xor     edx,            ebx
871         mov     eax,            DWORD PTR [esi]
872         mov     ebx,            DWORD PTR 4[esi]
873         mov     DWORD PTR [edi],ecx
874         mov     DWORD PTR 4[edi],edx
875         mov     DWORD PTR 16[esp],eax
876         mov     DWORD PTR 20[esp],ebx
877         add     esi,            8
878         add     edi,            8
879         sub     ebp,            8
880         jnz     L016decrypt_loop
881 $L015decrypt_finish:
882         mov     ebp,            DWORD PTR 52[esp]
883         and     ebp,            7
884         jz      $L005finish
885         mov     eax,            DWORD PTR [esi]
886         mov     ebx,            DWORD PTR 4[esi]
887         bswap   eax
888         bswap   ebx
889         mov     DWORD PTR 8[esp],eax
890         mov     DWORD PTR 12[esp],ebx
891         call    _CAST_decrypt
892         mov     eax,            DWORD PTR 8[esp]
893         mov     ebx,            DWORD PTR 12[esp]
894         bswap   eax
895         bswap   ebx
896         mov     ecx,            DWORD PTR 16[esp]
897         mov     edx,            DWORD PTR 20[esp]
898         xor     ecx,            eax
899         xor     edx,            ebx
900         mov     eax,            DWORD PTR [esi]
901         mov     ebx,            DWORD PTR 4[esi]
902 L017dj7:
903         ror     edx,            16
904         mov     BYTE PTR 6[edi],dl
905         shr     edx,            16
906 L018dj6:
907         mov     BYTE PTR 5[edi],dh
908 L019dj5:
909         mov     BYTE PTR 4[edi],dl
910 L020dj4:
911         mov     DWORD PTR [edi],ecx
912         jmp     $L021djend
913 L022dj3:
914         ror     ecx,            16
915         mov     BYTE PTR 2[edi],cl
916         shl     ecx,            16
917 L023dj2:
918         mov     BYTE PTR 1[esi],ch
919 L024dj1:
920         mov     BYTE PTR [esi], cl
921 $L021djend:
922         jmp     $L005finish
923 $L005finish:
924         mov     ecx,            DWORD PTR 60[esp]
925         add     esp,            24
926         mov     DWORD PTR [ecx],eax
927         mov     DWORD PTR 4[ecx],ebx
928         pop     edi
929         pop     esi
930         pop     ebx
931         pop     ebp
932         ret
933 $L006cbc_enc_jmp_table:
934         DD      0
935         DD      L014ej1
936         DD      L013ej2
937         DD      L012ej3
938         DD      L010ej4
939         DD      L009ej5
940         DD      L008ej6
941         DD      L007ej7
942 L025cbc_dec_jmp_table:
943         DD      0
944         DD      L024dj1
945         DD      L023dj2
946         DD      L022dj3
947         DD      L020dj4
948         DD      L019dj5
949         DD      L018dj6
950         DD      L017dj7
951 _CAST_cbc_encrypt ENDP
952 _TEXT   ENDS
953 END