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