crypto/perlasm/cbc.pl

   1 #! /usr/bin/env perl
   2 # Copyright 1995-2016 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;