# Collection of code snippets by Arne Vajhøj 
# posted to eksperten.dk, usenet and other places (2002-now) 
use Digest::MD4 qw(md4 md4_hex md4_base64);
print md4_hex(md4_hex("password") . lc("user")),"\n";
