Re: RC4 < 182 bytes

[Andrew . Savige]

Eugene van der Pijll schreef op 17 februari 2002:
> 151:
>
> sub f{@s[$x,$y]=@s[($y+=$s[$x])%=@s,$x];
> $s[$x++]+$s[$y]}@k=pop=~/../g;$y+=hex$k[
> $x%@k],f for@s=0..255;$x=1;$y=0;$x%=@s,p
> rint$_^chr$s[f()%@s]for<>=~/./g

I haven't got a clue about RC4, but inspecting Eugene's
masterpiece, can you save a stroke by replacing:

rint$_^chr$s[f()%@s]for<>=~/./g
with:
rint$_^chr$s[255&f]for<>=~/./g

/-\ndrew