@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+use Digest::MD4 qw(md4_hex);
+use Encode qw(encode);
+chomp(my $pw = <STDIN>);
+print uc(md4_hex(encode("UTF-16LE", $pw))), "\n";