mirror of
https://github.com/openssl/openssl.git
synced 2024-12-26 18:33:39 +08:00
174 lines
2.9 KiB
Raku
174 lines
2.9 KiB
Raku
#!/usr/local/bin/perl
|
|
|
|
# define for pentium pro friendly version
|
|
|
|
push(@INC,"perlasm","../../perlasm");
|
|
require "x86asm.pl";
|
|
|
|
&asm_init($ARGV[0],"rc4-586.pl");
|
|
|
|
$tx="eax";
|
|
$ty="ebx";
|
|
$x="ecx";
|
|
$y="edx";
|
|
$in="esi";
|
|
$out="edi";
|
|
$d="ebp";
|
|
|
|
&RC4("RC4");
|
|
|
|
&asm_finish();
|
|
|
|
sub RC4_loop
|
|
{
|
|
local($n,$p,$char)=@_;
|
|
|
|
&comment("Round $n");
|
|
|
|
if ($char)
|
|
{
|
|
if ($p >= 0)
|
|
{
|
|
&mov($ty, &swtmp(2));
|
|
&cmp($ty, $in);
|
|
&jle(&label("finished"));
|
|
&inc($in);
|
|
}
|
|
else
|
|
{
|
|
&add($ty, 8);
|
|
&inc($in);
|
|
&cmp($ty, $in);
|
|
&jl(&label("finished"));
|
|
&mov(&swtmp(2), $ty);
|
|
}
|
|
}
|
|
# Moved out
|
|
# &mov( $tx, &DWP(0,$d,$x,4)) if $p < 0;
|
|
|
|
&add( $y, $tx);
|
|
&and( $y, 0xff);
|
|
&inc( $x); # NEXT ROUND
|
|
&mov( $ty, &DWP(0,$d,$y,4));
|
|
# XXX
|
|
&mov( &DWP(-4,$d,$x,4),$ty); # AGI
|
|
&add( $ty, $tx);
|
|
&and( $x, 0xff); # NEXT ROUND
|
|
&and( $ty, 0xff);
|
|
&mov( &DWP(0,$d,$y,4),$tx);
|
|
&nop();
|
|
&mov( $ty, &DWP(0,$d,$ty,4));
|
|
&mov( $tx, &DWP(0,$d,$x,4)) if $p < 1; # NEXT ROUND
|
|
# XXX
|
|
|
|
if (!$char)
|
|
{
|
|
#moved up into last round
|
|
if ($p >= 1)
|
|
{
|
|
&add( $out, 8)
|
|
}
|
|
&movb( &BP($n,"esp","",0), &LB($ty));
|
|
}
|
|
else
|
|
{
|
|
# Note in+=8 has occured
|
|
&movb( &HB($ty), &BP(-1,$in,"",0));
|
|
# XXX
|
|
&xorb(&LB($ty), &HB($ty));
|
|
# XXX
|
|
&movb(&BP($n,$out,"",0),&LB($ty));
|
|
}
|
|
}
|
|
|
|
|
|
sub RC4
|
|
{
|
|
local($name)=@_;
|
|
|
|
&function_begin_B($name,"");
|
|
|
|
&comment("");
|
|
|
|
&push("ebp");
|
|
&push("ebx");
|
|
&mov( $d, &wparam(0)); # key
|
|
&mov( $ty, &wparam(1)); # num
|
|
&push("esi");
|
|
&push("edi");
|
|
|
|
&mov( $x, &DWP(0,$d,"",1));
|
|
&mov( $y, &DWP(4,$d,"",1));
|
|
|
|
&mov( $in, &wparam(2));
|
|
&inc( $x);
|
|
|
|
&stack_push(3); # 3 temp variables
|
|
&add( $d, 8);
|
|
&and( $x, 0xff);
|
|
|
|
&lea( $ty, &DWP(-8,$ty,$in));
|
|
|
|
# check for 0 length input
|
|
|
|
&mov( $out, &wparam(3));
|
|
&mov( &swtmp(2), $ty); # this is now address to exit at
|
|
&mov( $tx, &DWP(0,$d,$x,4));
|
|
|
|
&cmp( $ty, $in);
|
|
&jl( &label("end")); # less than 8 bytes
|
|
|
|
&set_label("start");
|
|
|
|
# filling DELAY SLOT
|
|
&add( $in, 8);
|
|
|
|
&RC4_loop(0,-1,0);
|
|
&RC4_loop(1,0,0);
|
|
&RC4_loop(2,0,0);
|
|
&RC4_loop(3,0,0);
|
|
&RC4_loop(4,0,0);
|
|
&RC4_loop(5,0,0);
|
|
&RC4_loop(6,0,0);
|
|
&RC4_loop(7,1,0);
|
|
|
|
&comment("apply the cipher text");
|
|
# xor the cipher data with input
|
|
|
|
#&add( $out, 8); #moved up into last round
|
|
|
|
&mov( $tx, &swtmp(0));
|
|
&mov( $ty, &DWP(-8,$in,"",0));
|
|
&xor( $tx, $ty);
|
|
&mov( $ty, &DWP(-4,$in,"",0));
|
|
&mov( &DWP(-8,$out,"",0), $tx);
|
|
&mov( $tx, &swtmp(1));
|
|
&xor( $tx, $ty);
|
|
&mov( $ty, &swtmp(2)); # load end ptr;
|
|
&mov( &DWP(-4,$out,"",0), $tx);
|
|
&mov( $tx, &DWP(0,$d,$x,4));
|
|
&cmp($in, $ty);
|
|
&jle(&label("start"));
|
|
|
|
&set_label("end");
|
|
|
|
# There is quite a bit of extra crap in RC4_loop() for this
|
|
# first round
|
|
&RC4_loop(0,-1,1);
|
|
&RC4_loop(1,0,1);
|
|
&RC4_loop(2,0,1);
|
|
&RC4_loop(3,0,1);
|
|
&RC4_loop(4,0,1);
|
|
&RC4_loop(5,0,1);
|
|
&RC4_loop(6,1,1);
|
|
|
|
&set_label("finished");
|
|
&dec( $x);
|
|
&stack_pop(3);
|
|
&mov( &DWP(-4,$d,"",0),$y);
|
|
&movb( &BP(-8,$d,"",0),&LB($x));
|
|
|
|
&function_end($name);
|
|
}
|
|
|