------------------------------------------------------------------------
.                 Elijah Wright, elw9354@tntech.edu
.	                   TTU Box 6539
.	      http://www.midtenn.net/~ewright/index.html
.              3994 Long Lane Rd., Cookeville TN 38506
--
#!/bin/perl -s-- -export-a-crypto-system-sig -RSA-3-lines-PERL
$m=unpack(H.$w,$m."\0"x$w),$_=`echo "16do$w 2+4Oi0$d*-^1[d2%Sa
2/d0<X+d*La1=z\U$n%0]SX$k"[$m*]\EszlXx++p|dc`,s/^.|\W//g,print
pack('H*',$_)while read(STDIN,$m,($w=2*$d-1+length$n&~1)/2)
------------------------------------------------------------------------