• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1#!/usr/local/bin/perl
2
3# void des_ncbc_encrypt(input, output, length, schedule, ivec, enc)
4# des_cblock (*input);
5# des_cblock (*output);
6# long length;
7# des_key_schedule schedule;
8# des_cblock (*ivec);
9# int enc;
10#
11# calls
12# des_encrypt((DES_LONG *)tin,schedule,DES_ENCRYPT);
13#
14
15#&cbc("des_ncbc_encrypt","des_encrypt",0);
16#&cbc("BF_cbc_encrypt","BF_encrypt","BF_encrypt",
17#	1,4,5,3,5,-1);
18#&cbc("des_ncbc_encrypt","des_encrypt","des_encrypt",
19#	0,4,5,3,5,-1);
20#&cbc("des_ede3_cbc_encrypt","des_encrypt3","des_decrypt3",
21#	0,6,7,3,4,5);
22#
23# When doing a cipher that needs bigendian order,
24# for encrypt, the iv is kept in bigendian form,
25# while for decrypt, it is kept in little endian.
26sub cbc
27	{
28	local($name,$enc_func,$dec_func,$swap,$iv_off,$enc_off,$p1,$p2,$p3)=@_;
29	# name is the function name
30	# enc_func and dec_func and the functions to call for encrypt/decrypt
31	# swap is true if byte order needs to be reversed
32	# iv_off is parameter number for the iv
33	# enc_off is parameter number for the encrypt/decrypt flag
34	# p1,p2,p3 are the offsets for parameters to be passed to the
35	# underlying calls.
36
37	&function_begin_B($name,"");
38	&comment("");
39
40	$in="esi";
41	$out="edi";
42	$count="ebp";
43
44	&push("ebp");
45	&push("ebx");
46	&push("esi");
47	&push("edi");
48
49	$data_off=4;
50	$data_off+=4 if ($p1 > 0);
51	$data_off+=4 if ($p2 > 0);
52	$data_off+=4 if ($p3 > 0);
53
54	&mov($count,	&wparam(2));	# length
55
56	&comment("getting iv ptr from parameter $iv_off");
57	&mov("ebx",	&wparam($iv_off));	# Get iv ptr
58
59	&mov($in,	&DWP(0,"ebx","",0));#	iv[0]
60	&mov($out,	&DWP(4,"ebx","",0));#	iv[1]
61
62	&push($out);
63	&push($in);
64	&push($out);	# used in decrypt for iv[1]
65	&push($in);	# used in decrypt for iv[0]
66
67	&mov("ebx",	"esp");		# This is the address of tin[2]
68
69	&mov($in,	&wparam(0));	# in
70	&mov($out,	&wparam(1));	# out
71
72	# We have loaded them all, how lets push things
73	&comment("getting encrypt flag from parameter $enc_off");
74	&mov("ecx",	&wparam($enc_off));	# Get enc flag
75	if ($p3 > 0)
76		{
77		&comment("get and push parameter $p3");
78		if ($enc_off != $p3)
79			{ &mov("eax",	&wparam($p3)); &push("eax"); }
80		else	{ &push("ecx"); }
81		}
82	if ($p2 > 0)
83		{
84		&comment("get and push parameter $p2");
85		if ($enc_off != $p2)
86			{ &mov("eax",	&wparam($p2)); &push("eax"); }
87		else	{ &push("ecx"); }
88		}
89	if ($p1 > 0)
90		{
91		&comment("get and push parameter $p1");
92		if ($enc_off != $p1)
93			{ &mov("eax",	&wparam($p1)); &push("eax"); }
94		else	{ &push("ecx"); }
95		}
96	&push("ebx");		# push data/iv
97
98	&cmp("ecx",0);
99	&jz(&label("decrypt"));
100
101	&and($count,0xfffffff8);
102	&mov("eax",	&DWP($data_off,"esp","",0));	# load iv[0]
103	&mov("ebx",	&DWP($data_off+4,"esp","",0));	# load iv[1]
104
105	&jz(&label("encrypt_finish"));
106
107	#############################################################
108
109	&set_label("encrypt_loop");
110	# encrypt start
111	# "eax" and "ebx" hold iv (or the last cipher text)
112
113	&mov("ecx",	&DWP(0,$in,"",0));	# load first 4 bytes
114	&mov("edx",	&DWP(4,$in,"",0));	# second 4 bytes
115
116	&xor("eax",	"ecx");
117	&xor("ebx",	"edx");
118
119	&bswap("eax")	if $swap;
120	&bswap("ebx")	if $swap;
121
122	&mov(&DWP($data_off,"esp","",0),	"eax");	# put in array for call
123	&mov(&DWP($data_off+4,"esp","",0),	"ebx");	#
124
125	&call($enc_func);
126
127	&mov("eax",	&DWP($data_off,"esp","",0));
128	&mov("ebx",	&DWP($data_off+4,"esp","",0));
129
130	&bswap("eax")	if $swap;
131	&bswap("ebx")	if $swap;
132
133	&mov(&DWP(0,$out,"",0),"eax");
134	&mov(&DWP(4,$out,"",0),"ebx");
135
136	# eax and ebx are the next iv.
137
138	&add($in,	8);
139	&add($out,	8);
140
141	&sub($count,	8);
142	&jnz(&label("encrypt_loop"));
143
144###################################################################3
145	&set_label("encrypt_finish");
146	&mov($count,	&wparam(2));	# length
147	&and($count,	7);
148	&jz(&label("finish"));
149	&call(&label("PIC_point"));
150&set_label("PIC_point");
151	&blindpop("edx");
152	&lea("ecx",&DWP(&label("cbc_enc_jmp_table")."-".&label("PIC_point"),"edx"));
153	&mov($count,&DWP(0,"ecx",$count,4));
154	&add($count,"edx");
155	&xor("ecx","ecx");
156	&xor("edx","edx");
157	#&mov($count,&DWP(&label("cbc_enc_jmp_table"),"",$count,4));
158	&jmp_ptr($count);
159
160&set_label("ej7");
161	&movb(&HB("edx"),	&BP(6,$in,"",0));
162	&shl("edx",8);
163&set_label("ej6");
164	&movb(&HB("edx"),	&BP(5,$in,"",0));
165&set_label("ej5");
166	&movb(&LB("edx"),	&BP(4,$in,"",0));
167&set_label("ej4");
168	&mov("ecx",		&DWP(0,$in,"",0));
169	&jmp(&label("ejend"));
170&set_label("ej3");
171	&movb(&HB("ecx"),	&BP(2,$in,"",0));
172	&shl("ecx",8);
173&set_label("ej2");
174	&movb(&HB("ecx"),	&BP(1,$in,"",0));
175&set_label("ej1");
176	&movb(&LB("ecx"),	&BP(0,$in,"",0));
177&set_label("ejend");
178
179	&xor("eax",	"ecx");
180	&xor("ebx",	"edx");
181
182	&bswap("eax")	if $swap;
183	&bswap("ebx")	if $swap;
184
185	&mov(&DWP($data_off,"esp","",0),	"eax");	# put in array for call
186	&mov(&DWP($data_off+4,"esp","",0),	"ebx");	#
187
188	&call($enc_func);
189
190	&mov("eax",	&DWP($data_off,"esp","",0));
191	&mov("ebx",	&DWP($data_off+4,"esp","",0));
192
193	&bswap("eax")	if $swap;
194	&bswap("ebx")	if $swap;
195
196	&mov(&DWP(0,$out,"",0),"eax");
197	&mov(&DWP(4,$out,"",0),"ebx");
198
199	&jmp(&label("finish"));
200
201	#############################################################
202	#############################################################
203	&set_label("decrypt",1);
204	# decrypt start
205	&and($count,0xfffffff8);
206	# The next 2 instructions are only for if the jz is taken
207	&mov("eax",	&DWP($data_off+8,"esp","",0));	# get iv[0]
208	&mov("ebx",	&DWP($data_off+12,"esp","",0));	# get iv[1]
209	&jz(&label("decrypt_finish"));
210
211	&set_label("decrypt_loop");
212	&mov("eax",	&DWP(0,$in,"",0));	# load first 4 bytes
213	&mov("ebx",	&DWP(4,$in,"",0));	# second 4 bytes
214
215	&bswap("eax")	if $swap;
216	&bswap("ebx")	if $swap;
217
218	&mov(&DWP($data_off,"esp","",0),	"eax");	# put back
219	&mov(&DWP($data_off+4,"esp","",0),	"ebx");	#
220
221	&call($dec_func);
222
223	&mov("eax",	&DWP($data_off,"esp","",0));	# get return
224	&mov("ebx",	&DWP($data_off+4,"esp","",0));	#
225
226	&bswap("eax")	if $swap;
227	&bswap("ebx")	if $swap;
228
229	&mov("ecx",	&DWP($data_off+8,"esp","",0));	# get iv[0]
230	&mov("edx",	&DWP($data_off+12,"esp","",0));	# get iv[1]
231
232	&xor("ecx",	"eax");
233	&xor("edx",	"ebx");
234
235	&mov("eax",	&DWP(0,$in,"",0));	# get old cipher text,
236	&mov("ebx",	&DWP(4,$in,"",0));	# next iv actually
237
238	&mov(&DWP(0,$out,"",0),"ecx");
239	&mov(&DWP(4,$out,"",0),"edx");
240
241	&mov(&DWP($data_off+8,"esp","",0),	"eax");	# save iv
242	&mov(&DWP($data_off+12,"esp","",0),	"ebx");	#
243
244	&add($in,	8);
245	&add($out,	8);
246
247	&sub($count,	8);
248	&jnz(&label("decrypt_loop"));
249############################ ENDIT #######################3
250	&set_label("decrypt_finish");
251	&mov($count,	&wparam(2));	# length
252	&and($count,	7);
253	&jz(&label("finish"));
254
255	&mov("eax",	&DWP(0,$in,"",0));	# load first 4 bytes
256	&mov("ebx",	&DWP(4,$in,"",0));	# second 4 bytes
257
258	&bswap("eax")	if $swap;
259	&bswap("ebx")	if $swap;
260
261	&mov(&DWP($data_off,"esp","",0),	"eax");	# put back
262	&mov(&DWP($data_off+4,"esp","",0),	"ebx");	#
263
264	&call($dec_func);
265
266	&mov("eax",	&DWP($data_off,"esp","",0));	# get return
267	&mov("ebx",	&DWP($data_off+4,"esp","",0));	#
268
269	&bswap("eax")	if $swap;
270	&bswap("ebx")	if $swap;
271
272	&mov("ecx",	&DWP($data_off+8,"esp","",0));	# get iv[0]
273	&mov("edx",	&DWP($data_off+12,"esp","",0));	# get iv[1]
274
275	&xor("ecx",	"eax");
276	&xor("edx",	"ebx");
277
278	# this is for when we exit
279	&mov("eax",	&DWP(0,$in,"",0));	# get old cipher text,
280	&mov("ebx",	&DWP(4,$in,"",0));	# next iv actually
281
282&set_label("dj7");
283	&rotr("edx",	16);
284	&movb(&BP(6,$out,"",0),	&LB("edx"));
285	&shr("edx",16);
286&set_label("dj6");
287	&movb(&BP(5,$out,"",0),	&HB("edx"));
288&set_label("dj5");
289	&movb(&BP(4,$out,"",0),	&LB("edx"));
290&set_label("dj4");
291	&mov(&DWP(0,$out,"",0),	"ecx");
292	&jmp(&label("djend"));
293&set_label("dj3");
294	&rotr("ecx",	16);
295	&movb(&BP(2,$out,"",0),	&LB("ecx"));
296	&shl("ecx",16);
297&set_label("dj2");
298	&movb(&BP(1,$in,"",0),	&HB("ecx"));
299&set_label("dj1");
300	&movb(&BP(0,$in,"",0),	&LB("ecx"));
301&set_label("djend");
302
303	# final iv is still in eax:ebx
304	&jmp(&label("finish"));
305
306
307############################ FINISH #######################3
308	&set_label("finish",1);
309	&mov("ecx",	&wparam($iv_off));	# Get iv ptr
310
311	#################################################
312	$total=16+4;
313	$total+=4 if ($p1 > 0);
314	$total+=4 if ($p2 > 0);
315	$total+=4 if ($p3 > 0);
316	&add("esp",$total);
317
318	&mov(&DWP(0,"ecx","",0),	"eax");	# save iv
319	&mov(&DWP(4,"ecx","",0),	"ebx");	# save iv
320
321	&function_end_A($name);
322
323	&align(64);
324	&set_label("cbc_enc_jmp_table");
325	&data_word("0");
326	&data_word(&label("ej1")."-".&label("PIC_point"));
327	&data_word(&label("ej2")."-".&label("PIC_point"));
328	&data_word(&label("ej3")."-".&label("PIC_point"));
329	&data_word(&label("ej4")."-".&label("PIC_point"));
330	&data_word(&label("ej5")."-".&label("PIC_point"));
331	&data_word(&label("ej6")."-".&label("PIC_point"));
332	&data_word(&label("ej7")."-".&label("PIC_point"));
333	# not used
334	#&set_label("cbc_dec_jmp_table",1);
335	#&data_word("0");
336	#&data_word(&label("dj1")."-".&label("PIC_point"));
337	#&data_word(&label("dj2")."-".&label("PIC_point"));
338	#&data_word(&label("dj3")."-".&label("PIC_point"));
339	#&data_word(&label("dj4")."-".&label("PIC_point"));
340	#&data_word(&label("dj5")."-".&label("PIC_point"));
341	#&data_word(&label("dj6")."-".&label("PIC_point"));
342	#&data_word(&label("dj7")."-".&label("PIC_point"));
343	&align(64);
344
345	&function_end_B($name);
346
347	}
348
3491;
350