81 lines
1.7 KiB
Ruby
Executable File
81 lines
1.7 KiB
Ruby
Executable File
#!/usr/bin/env ruby
|
|
#
|
|
# $Id$
|
|
#
|
|
# This script cracks a NTLM hash based on the case-insensitive LANMAN password
|
|
# Credit to Yannick Hamon <yannick.hamon[at]xmcopartners.com> for the idea/perl code
|
|
#
|
|
# $Revision$
|
|
#
|
|
|
|
msfbase = File.symlink?(__FILE__) ? File.readlink(__FILE__) : __FILE__
|
|
$:.unshift(File.join(File.dirname(msfbase), '..', 'lib'))
|
|
|
|
require 'rex'
|
|
|
|
def usage
|
|
$stderr.puts("\n" + " Usage: #{$0} <options>\n" + $args.usage)
|
|
exit
|
|
end
|
|
|
|
|
|
ntlm = pass = nil
|
|
chal = false
|
|
@challenge = "\x11\x22\x33\x44\x55\x66\x77\x88"
|
|
|
|
|
|
$args = Rex::Parser::Arguments.new(
|
|
"-n" => [ true, "The encypted NTLM hash to crack" ],
|
|
"-p" => [ true, "The decrypted LANMAN password" ],
|
|
"-c" => [ false, "Use NTLM Challenge hashes" ],
|
|
"-h" => [ false, "Display this help information" ])
|
|
|
|
|
|
$args.parse(ARGV) { |opt, idx, val|
|
|
case opt
|
|
when "-n"
|
|
ntlm = val
|
|
when "-p"
|
|
pass = val
|
|
when "-c"
|
|
chal = true
|
|
when "-h"
|
|
usage
|
|
else
|
|
usage
|
|
end
|
|
}
|
|
|
|
if (not (ntlm and pass))
|
|
usage
|
|
end
|
|
|
|
if (chal)
|
|
if(ntlm.length != 48)
|
|
$stderr.puts "[*] NTLM Challenge should be exactly 48 bytes of hexadecimal"
|
|
exit
|
|
end
|
|
else
|
|
if(ntlm.length != 32)
|
|
$stderr.puts "[*] NTLM should be exactly 32 bytes of hexadecimal"
|
|
exit
|
|
end
|
|
end
|
|
|
|
if(pass.length > 14)
|
|
$stderr.puts "[*] LANMAN password should be between 1 and 14 characters"
|
|
exit
|
|
end
|
|
|
|
if(chal)
|
|
done = Rex::Proto::SMB::Crypt.lmchal2ntchal(pass, [ntlm].pack("H*"),@challenge)
|
|
else
|
|
done = Rex::Proto::SMB::Crypt.lm2nt(pass, [ntlm].pack("H*"))
|
|
end
|
|
|
|
if(done)
|
|
puts "[*] Cracked: LANMAN=#{pass} NTLM=#{done}"
|
|
else
|
|
puts "[*] Failed to crack password (incorrect input)"
|
|
end
|