--
CUTIE INVITED OF WHISKERS
VARSITY HOP PARTY A FLOP
GUY FULL Burma-Shave
Our very own Timothy C. May appeared on The Learning Channel
(a US cable channel) recently, on a program called, I believe,
Quantum.
Very strange finally to put a face and voice with the name!
--
Kevin Martin <can...@nic.com> <brass...@compuserve.com>
The person demoing PGP and the `munitions' shirt was Blaine Price, an
OU lecturer (http://www-cs.open.ac.uk/~doc/).
For a gif of the shirt shown on the program, see:
http://www.dcs.ex.ac.uk/~aba/uk-shirt.html
The shirt has this code on it:
#!/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)
which is an implementation of RSA (the public key crypto system used
in PGP, with a bit of work you can even get it to use 1024 bit PGP
generated pubic keys).
Since the current batch of shirts were printed, the program has grown
shorter:
#!/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*',/((..)*)$/)
(I've still got lots of shirts left if anyone must have that shirt!
(ship to anywhere as I'm in the UK and am not restricted by the ITAR
nonsense))
Also (may be cheaper if you are in the US or Japan), see:
http://www.obscura.com/~shirt/
for links to other producers of similar shirts with the same code on them.
Adam
--
http://www.dcs.ex.ac.uk/~aba/
#!/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*',/((..)*)$/)