Help for this page

Select Code to Download


  1. or download this
    use Digest::MD5 qw(md5_hex);
sub r {uppp&md5_hex$_.PQcUv}
print "$_: ", 0+r(), "\n" for (qw(I V X L C D M));
  2. or download this
    VLD=~$_*5+IXCM=~$_."E@-"    # Perl
10**(7&5045e8/ord)%2857     # Perl (64-bit)
IXCMVLD=~$_;"1E@-"%9995     # Perl
XCMVLD=~$_;"1E@+"%9995      # Perl (Grimy improvement)
uppp&md5_hex$_.PQcUv        # Perl (needs Digest::MD5 module)