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; 11push(@INC,"${dir}","${dir}../../perlasm"); 12require "x86asm.pl"; 13require "cbc.pl"; 14 15$output = pop; 16open 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 35close STDOUT or die "error closing STDOUT: $!"; 36 37sub 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 123