Crypt :: Smbhash. Implementação somente de Perl de funções de hash MD4 LANMAN e NT, para uso em entradas SMBPasswd de estilo samba.
Baixe Agora

Crypt :: Smbhash. Classificação e resumo

Crypt :: Smbhash. Tag

Módulo Perl. samba Nt. Funções de hash lanman

Crypt :: Smbhash. Descrição

Implementação somente de perl de funções de hash MD4 LANMAN e NT, para uso em entradas de smbpasswd estilo samba. Crypt :: Smbhash é uma implementação única de perl de funções de hash MD4 Lanman e NT MD4, para uso em entradas SMBPasswd estilo samba.synopsis usar cripto :: smbhash; NTlmgen Scalar, LMSCALAR, NTSCALAR; Este módulo gera hashes de senha do Lanman e NT MD4, usando o código somente de perl para portabilidade. O módulo ajuda na administração de sistemas de estilo samba. Na distribuição do samba, a autenticação é encaminhada para um arquivo smbpasswd privado. As entradas têm formulários semelhantes aos seguintes: Nome de usuário: UnixUid: LM: Ntile LM e NT são hashes de senha unidirecional da mesma senha.ntlmgen gera os hashes dados no primeiro argumento e coloca o resultado no segundo e terceiro argumentos. Exemplo: Para gerar uma entrada SMBPasswd: #! / Usr / local / bin / perl Use Crypt :: Smbhash; $ username = $ argv ; $ password = $ argv ; if (! $ Senha) {Imprimir "Não há argumentos suficientes "; Imprimir" Uso: $ 0 Senha do nome de usuário "; sair 1;} $ UID = (GetPwnam ($ nome de usuário)) ; My ($ Login, UNDEF, $ UID) = GetPwnam ($ argv ); NTLMGen $ Senha, $ lm, $ NT; Printf "% s:% d:% s:% s: : LCT- x ", $ Login, $ uid, $ lm, $ NT," U ", tempo; NTLMGen retorna retorna os valores de hash em um contexto de lista, portanto, o método alternativo de usá-lo é: ($ lm, $ NT) = ntlmgen $ Senha; as funções lmhash e NHHASH são usados pelo NTLMGEN para gerar os hashes e estão disponíveis quando solicitados: use crypt :: smbhash qw (lmhash nthash) $ lm = lmhash ($ PASS); $ NT = NHSHASH ($ PASS); Se a codificação estiver disponível (parte do Perl-5.8), o argumento de $ pass para NTLmgen, lmhash e nmash deve ser uma string perl. Em uso duplo, use a cripta :: smbhash qw (ntlmgen lmhash nmashh); use codificação; ($ lm , $ NT) = Decodo NTlmgen ('ISO-8859-1', $ PASS); $ lm = lmhash (decdode_utf8 ($ PASS), $ PWENC); $ NT = NHSHSH (Decode_utf8 ($ PASS)); o $ PWENC); O parâmetro para lmhash () é opcional e padrão para 'ISO-8859-1'. Ele especifica a codificação a que a senha é codificada antes do hash. Requisitos: · Perl.

Crypt :: Smbhash. Software Relacionado