Re: basic implimentation of des

Lee Sonko (lee@networks.bgs.com)
Tue, 29 Apr 1997 19:26:51 -0400 (EDT)


> Does anyone know of a implimentation in basic. It for an art project. Or a
> appleII binary would be fine!
> thanks
> paonia

I don't have DES but I can give you this:

#!/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*',/((..)*)$/)

This is a perl program which implements RSA encryption and decryption.
Note that exporting this bit of code, which is short enough to act as
your signature is a federal offense. Being the law abiding citizen
I am, I would never make this program a part of my signature and email
friends in other countries.

For more info about this code, see:
http://www.dcs.ex.ac.uk/~aba/rsa/