Passphrases using the lan manager hash algorithm
use Authen::Passphrase::LANManager;
$ppr = Authen::Passphrase::LANManager->new(
hash_hex => "855c3697d9979e78ac404c4ba2c66533");
$ppr = Authen::Passphrase::LANManager->new(
passphrase => "passphrase");
$ppr = Authen::Passphrase::LANManager->from_rfc2307(
"{LANMAN}855c3697d9979e78ac404c4ba2c66533");
$hash = $ppr->hash;
$hash_hex = $ppr->hash_hex;
$ppr0 = $ppr->first_half;
$ppr1 = $ppr->second_half;
if($ppr->match($passphrase)) { ...
$userPassword = $ppr->as_rfc2307;
An object of this class encapsulates a passphrase hashed using the Microsoft \s-1LAN\s0 Manager hash function. This is a subclass of Authen::Passphrase, and this document assumes that the reader is familiar with the documentation for that class.
The hash algorithm can be used on up to fourteen Latin-1 characters of passphrase. First the passphrase is folded to uppercase, and zero-padded to fourteen bytes. Then it is split into two halves. Each seven-byte half is used as a 56-bit \s-1DES\s0 key, to encrypt the fixed plaintext block \*(L"\s-1KGS\s0!@#$%\*(R". The eight-byte ciphertexts are concatenated to form the sixteen-byte hash. There is no salt.
Because the two halves of the passphrase are hashed separately, it is possible to manipulate (e.g., crack) a half hash in isolation. See Authen::Passphrase::LANManagerHalf.
Warning: Don't even think about using this seriously. It's an exceptionally weak design, flawed in pretty much every respect.
Generates a new passphrase recogniser object using the \s-1LAN\s0 Manager hash algorithm. The following attributes may be given:
The hash, as a string of 16 bytes.
The hash, as a string of 32 hexadecimal digits.
A passphrase that will be accepted.
Either the hash or the passphrase must be given.
Generates a \s-1LAN\s0 Manager passphrase recogniser from the supplied \s-1RFC2307\s0 encoding. The string must consist of "{\s-1LANMAN\s0}\*(L" (or its synonym \*(R"{\s-1LANM\s0}") followed by the hash in hexadecimal; case is ignored.
Returns the hash value, as a string of 16 bytes. Returns the hash value, as a string of 32 hexadecimal digits. Returns the hash of the first half of the passphrase, as an Authen::Passphrase::LANManagerHalf passphrase recogniser. Returns the hash of the second half of the passphrase, as an Authen::Passphrase::LANManagerHalf passphrase recogniser. These methods are part of the standard Authen::Passphrase interface.
Authen::Passphrase, Authen::Passphrase::LANManagerHalf, Crypt::DES
Andrew Main (Zefram) <[email protected]>
Copyright (C) 2006, 2007, 2009, 2010, 2012 Andrew Main (Zefram) <[email protected]>
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.