RSA in 3 lines of perl (thing)

(all of RSA in 3 lines of perl, there is 1 more in this node)

(thing) by Cid Highwind (3.7 y) Thu Apr 27 2000 at 15:11:05
Common .signature file for people who oppose the idiotic restrictions on cryptography imposed by the United States government.
The magic script is unreadable to any but the most advanced perl guru, but it does work.

!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj
$/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1
lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=pack('H*',/((..)*)$/)