1 files changed, 110 insertions, 0 deletions

diff --git a/src/lib/libcrypto/rc5/asm/rc5-586.pl b/src/lib/libcrypto/rc5/asm/rc5-586.pl
new file mode 100644
index 0000000000..61ac6effc6
--- /dev/null
+++ b/src/lib/libcrypto/rc5/asm/rc5-586.pl
@@ -0,0 +1,110 @@
+#!/usr/local/bin/perl
+
+$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
+push(@INC,"${dir}","${dir}../../perlasm");
+require "x86asm.pl";
+require "cbc.pl";
+
+&asm_init($ARGV[0],"rc5-586.pl");
+
+$RC5_MAX_ROUNDS=16;
+$RC5_32_OFF=($RC5_MAX_ROUNDS+2)*4;
+$A="edi";
+$B="esi";
+$S="ebp";
+$tmp1="eax";
+$r="ebx";
+$tmpc="ecx";
+$tmp4="edx";
+
+&RC5_32_encrypt("RC5_32_encrypt",1);
+&RC5_32_encrypt("RC5_32_decrypt",0);
+&cbc("RC5_32_cbc_encrypt","RC5_32_encrypt","RC5_32_decrypt",0,4,5,3,-1,-1);
+&asm_finish();
+
+sub RC5_32_encrypt
+        {
+        local($name,$enc)=@_;
+
+        &function_begin_B($name,"");
+
+        &comment("");
+
+        &push("ebp");
+         &push("esi");
+        &push("edi");
+         &mov($tmp4,&wparam(0));
+        &mov($S,&wparam(1));
+
+        &comment("Load the 2 words");
+         &mov($A,&DWP(0,$tmp4,"",0));
+        &mov($B,&DWP(4,$tmp4,"",0));
+
+        &push($r);
+         &mov($r,       &DWP(0,$S,"",0));
+
+        # encrypting part
+
+        if ($enc)
+                {
+                 &add($A,       &DWP(4+0,$S,"",0));
+                &add($B,        &DWP(4+4,$S,"",0));
+
+                for ($i=0; $i<$RC5_MAX_ROUNDS; $i++)
+                        {
+                         &xor($A,       $B);
+                        &mov($tmp1,     &DWP(12+$i*8,$S,"",0));
+                         &mov($tmpc,    $B);
+                        &rotl($A,       &LB("ecx"));
+                        &add($A,        $tmp1);
+
+                         &xor($B,       $A);
+                        &mov($tmp1,     &DWP(16+$i*8,$S,"",0));
+                         &mov($tmpc,    $A);
+                        &rotl($B,       &LB("ecx"));
+                        &add($B,        $tmp1);
+                        if (($i == 7) || ($i == 11))
+                                {
+                         &cmp($r,       $i+1);
+                        &je(&label("rc5_exit"));
+                                }
+                        }
+                }
+        else
+                {
+                 &cmp($r,       12);
+                &je(&label("rc5_dec_12"));
+                 &cmp($r,       8);
+                &je(&label("rc5_dec_8"));
+                for ($i=$RC5_MAX_ROUNDS; $i > 0; $i--)
+                        {
+                        &set_label("rc5_dec_$i") if ($i == 12) || ($i == 8);
+                         &mov($tmp1,    &DWP($i*8+8,$S,"",0));
+                        &sub($B,        $tmp1);
+                         &mov($tmpc,    $A);
+                        &rotr($B,       &LB("ecx"));
+                        &xor($B,        $A);
+
+                         &mov($tmp1,    &DWP($i*8+4,$S,"",0));
+                        &sub($A,        $tmp1);
+                         &mov($tmpc,    $B);
+                        &rotr($A,       &LB("ecx"));
+                        &xor($A,        $B);
+                        }
+                 &sub($B,       &DWP(4+4,$S,"",0));
+                &sub($A,        &DWP(4+0,$S,"",0));
+                }
+
+        &set_label("rc5_exit");
+         &mov(&DWP(0,$tmp4,"",0),$A);
+        &mov(&DWP(4,$tmp4,"",0),$B);
+
+         &pop("ebx");
+        &pop("edi");
+         &pop("esi");
+        &pop("ebp");
+         &ret();
+        &function_end_B($name);
+        }
+
+