Encryption as confidentiality marker

[Paul Crowley]

Paul Leyland <pleyland@microsoft.com> writes:

>> According to the judgment [snip] the processor was not powerful
>> enough to handle more serious encryption.

> I find that a most remarkable claim.
> 
> I've managed to implement full RC4 in 19 lines of BASIC [...]

I know I should be able to resist, but I'm afraid I can't, quite.
This implementation of CipherSaber (based on RC4) is the fault of me
and Jeff Allen:

#!/usr/local/bin/perl5 -0777i_MUNITION,see_http://ciphersaber.gurus.com
(pop)?read STDIN,$p,10:print$p= ~time;sub S{@s[$x,$y]=@s[$y,$x]}sub
Q{$s[($_[0]+=$_[1])%=@s]}@k=unpack'C*',(pop).$p;for$x(@t=@s=0..255){S
Q$y,$k[$x%@k]+Q$x}$x=$y=0;print map{chr($_^Q S Q$y,Q$x,1)}unpack'C*',<>

-- 
  __
\/ o\ paul@hedonism.demon.co.uk     Got a Linux strategy? \ /
/\__/ Paul Crowley  http://www.hedonism.demon.co.uk/paul/ /~\