"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]}