Browse Source

Added nt-hash-pass.pl

Dmitry Yu Okunev 4 years ago
parent
commit
d8933570be
1 changed files with 5 additions and 0 deletions
  1. 5 0
      nt-hash-pass.pl

+ 5 - 0
nt-hash-pass.pl

@@ -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";