Select Code to Download

#! /usr/local/bin/perl -w
use strict;
...
print "\nprimes: $p, $q\n" ;
print "n: $n; (p-1)(q-1): $b\n" ;
print "rand: $r; key: $k\n"

#! /usr/local/bin/perl -w
use strict;
...
        return pack($tmpl, @d) ;     
    }
}