#!/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