Dmitry Yu Okunev лет назад: 8
Родитель
Сommit
d8933570be
1 измененных файлов с 5 добавлено и 0 удалено
  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";