Help for this page

Select Code to Download


  1. or download this
    #! /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"
    
  2. or download this
    #! /usr/local/bin/perl -w
    use strict;
    ...
            return pack($tmpl, @d) ;     
        }
    }