"Risk: You cannot discover new oceans unless you have the courage
to lose sight of the shore."
-----------------------------------------------------------------------
Chris Hind (chind@juno.com) Upward, Outward, ACTION!
Email attachments: (bholat@earthlink.net)
NeoReality (Personal) http://www.geocities.com/CapeCanaveral/6810/
Ethereal Outlook (Extropian)
http://www.geocities.com/CapeCanaveral/6810/outlook.htm
-----------------------------------------------------------------------
#!/usr/local/bin/perl-0777---export-a-crypto-system-sig-RC4-3-lines-PERL
@k=unpack('C*',pack('H*',shift));for(@t=@s=0..255){$y=($k[$_%@k]+$s[$x=$_
]+$y)%256;&S}$x=$y=0;for(unpack('C*',<>)){$x++;$y=($s[$x%=256]+$y)%256;
&S;print pack(C,$_^=$s[($s[$x]+$s[$y])%256])}sub S{@s[$x,$y]=@s[$y,$x]}