-- TANSTAAFL!!!Michael Lorrey ------------------------------------------------------------ President retroman@tpk.net Northstar Technologies Agent Lorrey@ThePentagon.com Inventor of the Lorrey Drive Silo_1013@ThePentagon.com
Website: http://www.tpk.net/~retroman/ Now Featuring: My Own Nuclear Espionage Agency (MONEA) MIKEYMAS(tm): The New Internet Holiday Transhumans of New Hampshire (>HNH) ------------------------------------------------------------ Transhumanist, Inventor, Webmaster, Ski Guide, Entrepreneur, Artist, Outdoorsman, Libertarian, Arms Exporter-see below. ------------------------------------------------------------ #!/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]}