Re: [MacPerl] PGP

[Terje Bless <link@tss.no>]

>On Mon, 30 Dec 1996, Chris Nandor wrote:
>
>> Has anyone had any luck using MacPGP with MacPerl, with the PGP module or
>> otherwise?
>
>I'm not sure ... but I think I saw it (the algorithm) in someone's
>signature on this list.  Either that or the sig had a factoring
>alogrithm (in perl) in it.

Where you perhaps thinking of:

#!/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)


That one is UNIX specific (it uses a pipe to 'dc').




--
Party? Party, lord? Yes, lord. Right away, lord.
        - Beopunk Cyberwulf