FearLess Cheat Engine

Code: Select all

function generateSymbolListDef()
	local sList = getMemoryViewForm().frmSymbolhandler.ListView1.Items
	local numSymbols = sList.Count - 1
	local symbolList = createStringList()
	for i = 0,numSymbols do
		local name = sList[i].Caption
		local base = getAddressSafe(name)
		local addrName = getNameFromAddress(base,true,false)
		local AOB = generateWildcardAOB(base)
		symbolList.add("local "..name.."AOB = {\'"..AOB[1].."\'")
	end
	print(symbolList.text)
	symbolList.destroy()
end
function generateSymbolListRet()
	local sList = getMemoryViewForm().frmSymbolhandler.ListView1.Items
	local numSymbols = sList.Count - 1
	local symbolList = createStringList()
	symbolList.add("local AOBList = {")
	for i = 0,numSymbols do
		local name = sList[i].Caption
		local base = getAddressSafe(name)
		local addrName = getModuleName(base)
		if i == numSymbols then name = name.."AOB	}"
		else name = "{"..name.."AOB,\'"..name.."\',\'"..addrName.."\'}" end
		symbolList.add(name)
	end
	symbolList.add("return AOBList")
	print(symbolList.text)
	symbolList.destroy()
end
function getModuleName(base)
	local name = getNameFromAddress(base,true,false)
	local modules = enumModules()
	local currentModule = nil
	local i
	for k = 1,#modules do 
		local startPoint = modules[k].Address
		local endPoint = getModuleSize(modules[k].Name)
		if base > startPoint and base < startPoint+endPoint then 
			currentModule = modules[k]
			break
		end
	end
	if currentModule then return currentModule.Name end
	return nil
end
function checkAOB(bytes,curModule)
	local base = nil
	if curModule then base = curModule.Address else base = 0x0 end
    local moduleStrSize = getModuleSize(curModule)
	--moduleStrSize = moduleStrSize and 0x7fffffffffff
	moduleStrSize = moduleStrSize and moduleStrSize or 0x7fffffffffff
	local memScanner = createMemScan()
	local memFoundList = createFoundList(memScanner)
	memScanner.firstScan(
	soExactValue,vtByteArray,rtRounded,bytes,nil,
	base,base+moduleStrSize,"",
	fsmNotAligned,"",true,false,false,false)
	memScanner.waitTillDone()
	memFoundList.initialize()
	local foundAdder = nil
	if memFoundList.Count == 1 then
		foundAdder = true
	end
	memScanner.destroy()
	memFoundList.destroy()
	return foundAdder
end
-------------MESSAGEBOX-------------
function MessageBox(title,text,uType)
 return executeCodeLocalEx("user32.MessageBoxA", MainForm.Handle, text, title, uType)
end
-------------
function generateWildcardAOB(base)
	local name = getNameFromAddress(base,true,false)
	local modules = enumModules()
	local currentModule = nil
	local i
	for k = 1,#modules do 
		local startPoint = modules[k].Address
		local endPoint = getModuleSize(modules[k].Name)
		if base > startPoint and base < startPoint+endPoint then 
			currentModule = modules[k]
			break
		end
	end
	if currentModule == nil then MessageBox("Generate AOB", "Unable to find unique AOB", 0);return end
    local minLen = 2
    local maxLen = 120
	local wCardFormat = '??'
	local addSpace = true
	local AOB = createStringList()
    local AOBWildCard
	local current = 0
    local isX64
	if currentModule then isX64 = currentModule.Is64Bit else isX64 = targetIs64Bit() end
	local done = false
	maxLen = maxLen + minLen
	for i = 1,maxLen do
		local size = getInstructionSize(base+current)
        local byteVal = readBytes(base+current,1)
        local byte = string.format('%02X',byteVal)
		byte = byte=='CC' and wCardFormat or byte
		AOB.add(byte)
        if isX64 and checkOpCode(byteVal) then
        	current = current + 1
            size = size - 1
            byte = string.format('%02X',readBytes(base+current,1))		
            if addSpace then AOB.add(' ') end
			AOB.add(byte)
        end
        AOBWildCard = string.gsub(AOB.text, "%c", "")
        if i > minLen then if checkAOB(AOBWildCard,currentModule) then done = true;break end end
		current = current + size
		if addSpace then AOB.add(' ') end
		for j = 1,size-1 do AOB.add(wCardFormat);if addSpace then AOB.add(' ') end end
	end
    AOBWildCard = string.gsub(AOB.text, "%c", "")
    AOB.destroy()
--	if not done then print("Unable to find unique AOB");return nil end
    if not done then MessageBox("Generate AOB", "Unable to find unique AOB", 0);return nil end
	if currentModule == nil then name = nil
	else name = currentModule.Name end
	writeToClipboard(AOBWildCard)
	--print(AOBWildCard)
	MessageBox("Generate AOB", "AOB SCAN DONE", 0)
	return {AOBWildCard,name}
end
function checkOpCode(byteVal)
    if byteVal >= 0x40 and byteVal <=0x49 then return true end
	if byteVal == 0x0F then return true end
    return false
end
function findComponentByName(parent,name)
	local count = parent.ComponentCount
	for i = 0,count do if parent.Component[i].Caption == name then return parent.Component[i] end end
	return nil
end
function addGenerateAOBMenu()
	local parent = findComponentByName(getMemoryViewForm(),'Tools')

	generateAOBmenuitem = createMenuItem(parent)
	parent.add(generateAOBmenuitem)
	generateAOBmenuitem.Caption = 'Generate AOB'
	generateAOBmenuitem.OnClick = function() createThread( function(th) generateWildcardAOB(getMemoryViewForm().DisassemblerView.SelectedAddress) end) end
	generateAOBmenuitem.Shortcut = 'Ctrl+NumPlus'
	generateAOBmenuitem.ImageIndex = 9
end
addGenerateAOBMenu()