Select Code to Download

use Digest::MD5 'md5_hex';
use Math::BigInt;
...
my $plain  = "abcd1234";
my $digest = Math::BigInt::->from_hex(md5_hex $plain);
print $digest, "\n";

import java.security.MessageDigest;
import java.math.BigInteger;
...
        System.out.println( digest.abs() );
    }
}