| 1 | #! /usr/bin/env perl
|
|---|
| 2 | # Copyright 1995-2020 The OpenSSL Project Authors. All Rights Reserved.
|
|---|
| 3 | #
|
|---|
| 4 | # Licensed under the OpenSSL license (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 | $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
|
|---|
| 11 | push(@INC,"${dir}","${dir}../../perlasm");
|
|---|
| 12 | require "x86asm.pl";
|
|---|
| 13 | require "cbc.pl";
|
|---|
| 14 |
|
|---|
| 15 | $output = pop;
|
|---|
| 16 | open STDOUT,">$output";
|
|---|
| 17 |
|
|---|
| 18 | &asm_init($ARGV[0]);
|
|---|
| 19 |
|
|---|
| 20 | $RC5_MAX_ROUNDS=16;
|
|---|
| 21 | $RC5_32_OFF=($RC5_MAX_ROUNDS+2)*4;
|
|---|
| 22 | $A="edi";
|
|---|
| 23 | $B="esi";
|
|---|
| 24 | $S="ebp";
|
|---|
| 25 | $tmp1="eax";
|
|---|
| 26 | $r="ebx";
|
|---|
| 27 | $tmpc="ecx";
|
|---|
| 28 | $tmp4="edx";
|
|---|
| 29 |
|
|---|
| 30 | &RC5_32_encrypt("RC5_32_encrypt",1);
|
|---|
| 31 | &RC5_32_encrypt("RC5_32_decrypt",0);
|
|---|
| 32 | &cbc("RC5_32_cbc_encrypt","RC5_32_encrypt","RC5_32_decrypt",0,4,5,3,-1,-1);
|
|---|
| 33 | &asm_finish();
|
|---|
| 34 |
|
|---|
| 35 | close STDOUT or die "error closing STDOUT: $!";
|
|---|
| 36 |
|
|---|
| 37 | sub RC5_32_encrypt
|
|---|
| 38 | {
|
|---|
| 39 | local($name,$enc)=@_;
|
|---|
| 40 |
|
|---|
| 41 | &function_begin_B($name,"");
|
|---|
| 42 |
|
|---|
| 43 | &comment("");
|
|---|
| 44 |
|
|---|
| 45 | &push("ebp");
|
|---|
| 46 | &push("esi");
|
|---|
| 47 | &push("edi");
|
|---|
| 48 | &mov($tmp4,&wparam(0));
|
|---|
| 49 | &mov($S,&wparam(1));
|
|---|
| 50 |
|
|---|
| 51 | &comment("Load the 2 words");
|
|---|
| 52 | &mov($A,&DWP(0,$tmp4,"",0));
|
|---|
| 53 | &mov($B,&DWP(4,$tmp4,"",0));
|
|---|
| 54 |
|
|---|
| 55 | &push($r);
|
|---|
| 56 | &mov($r, &DWP(0,$S,"",0));
|
|---|
| 57 |
|
|---|
| 58 | # encrypting part
|
|---|
| 59 |
|
|---|
| 60 | if ($enc)
|
|---|
| 61 | {
|
|---|
| 62 | &add($A, &DWP(4+0,$S,"",0));
|
|---|
| 63 | &add($B, &DWP(4+4,$S,"",0));
|
|---|
| 64 |
|
|---|
| 65 | for ($i=0; $i<$RC5_MAX_ROUNDS; $i++)
|
|---|
| 66 | {
|
|---|
| 67 | &xor($A, $B);
|
|---|
| 68 | &mov($tmp1, &DWP(12+$i*8,$S,"",0));
|
|---|
| 69 | &mov($tmpc, $B);
|
|---|
| 70 | &rotl($A, &LB("ecx"));
|
|---|
| 71 | &add($A, $tmp1);
|
|---|
| 72 |
|
|---|
| 73 | &xor($B, $A);
|
|---|
| 74 | &mov($tmp1, &DWP(16+$i*8,$S,"",0));
|
|---|
| 75 | &mov($tmpc, $A);
|
|---|
| 76 | &rotl($B, &LB("ecx"));
|
|---|
| 77 | &add($B, $tmp1);
|
|---|
| 78 | if (($i == 7) || ($i == 11))
|
|---|
| 79 | {
|
|---|
| 80 | &cmp($r, $i+1);
|
|---|
| 81 | &je(&label("rc5_exit"));
|
|---|
| 82 | }
|
|---|
| 83 | }
|
|---|
| 84 | }
|
|---|
| 85 | else
|
|---|
| 86 | {
|
|---|
| 87 | &cmp($r, 12);
|
|---|
| 88 | &je(&label("rc5_dec_12"));
|
|---|
| 89 | &cmp($r, 8);
|
|---|
| 90 | &je(&label("rc5_dec_8"));
|
|---|
| 91 | for ($i=$RC5_MAX_ROUNDS; $i > 0; $i--)
|
|---|
| 92 | {
|
|---|
| 93 | &set_label("rc5_dec_$i") if ($i == 12) || ($i == 8);
|
|---|
| 94 | &mov($tmp1, &DWP($i*8+8,$S,"",0));
|
|---|
| 95 | &sub($B, $tmp1);
|
|---|
| 96 | &mov($tmpc, $A);
|
|---|
| 97 | &rotr($B, &LB("ecx"));
|
|---|
| 98 | &xor($B, $A);
|
|---|
| 99 |
|
|---|
| 100 | &mov($tmp1, &DWP($i*8+4,$S,"",0));
|
|---|
| 101 | &sub($A, $tmp1);
|
|---|
| 102 | &mov($tmpc, $B);
|
|---|
| 103 | &rotr($A, &LB("ecx"));
|
|---|
| 104 | &xor($A, $B);
|
|---|
| 105 | }
|
|---|
| 106 | &sub($B, &DWP(4+4,$S,"",0));
|
|---|
| 107 | &sub($A, &DWP(4+0,$S,"",0));
|
|---|
| 108 | }
|
|---|
| 109 |
|
|---|
| 110 | &set_label("rc5_exit");
|
|---|
| 111 | &mov(&DWP(0,$tmp4,"",0),$A);
|
|---|
| 112 | &mov(&DWP(4,$tmp4,"",0),$B);
|
|---|
| 113 |
|
|---|
| 114 | &pop("ebx");
|
|---|
| 115 | &pop("edi");
|
|---|
| 116 | &pop("esi");
|
|---|
| 117 | &pop("ebp");
|
|---|
| 118 | &ret();
|
|---|
| 119 | &function_end_B($name);
|
|---|
| 120 | }
|
|---|
| 121 |
|
|---|
| 122 |
|
|---|
