[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

No Subject




"No dictator, no invader, can hold an imprisoned population by the force of arms forever. There is no
greater power in the universe than the need for freedom. Against that power governments, and
tyrants, and armies can not stand. The Centauri learned this lesson once. We will teach it to them
again. Though it take a thousand years, we will be free." 

        -- G'Kar in Babylon 5: "The Long, Twilight Struggle"

#!/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]}