
17 Dec
2003
17 Dec
'03
11:17 p.m.
<http://www2.clinet.fi/~msihvo/files/crossbows.html> "If you don't learn how to beat your plowshares into swords before they outlaw swords, then you sure as HELL ought to learn before they outlaw plowshares too. " --Chuck Hammill #!/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]}
7808
Age (days ago)
7808
Last active (days ago)
0 comments
1 participants
participants (1)
-
Anonymous