Rocco Caputo schreef op 16 februari 2002:
> I can't seem to get it below 160 characters. This is split
> arbitrarily at 40 characters; it will not work until joined.
>
> sub f{@s[$x,$y]=@s[($y+=$s[$x])%=@s,$x];
> $s[$x]+$s[$y]}@k=pop=~/../g;$y+=hex$k[$x
> %@k],f,$x++for@s=0..255;$x=$y=0;$x++,$x%
> =@s,print chr($s[f()%@s]^ord)for<>=~/./g
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
Eugene
