#!/usr/bin/perl

use Authen::Passphrase::LANManager;
use Authen::Passphrase::NTHash;

$u = 0;
while ($p = <>) {
	next if ($p =~ /^#!comment/);
	chomp $p;
	$lm = Authen::Passphrase::LANManager->new(passphrase =>
		length($p) <= 14 ? $p : "");
	$nt = Authen::Passphrase::NTHash->new(passphrase => $p);
	print "u$u:$u:", $lm->hash_hex, ":", $nt->hash_hex, ":$p", "::\n";
	$u++;
}