Open Cheat Tables

Code: Select all

Module=process
-- target

NearFirstStringAOB='72 5F 69 6D 67 75 69 5F 73 63 61 6C 65 00 00 00'
-- start address as aob

EndStringBlockAOB = '90 D2 12 06 F7 7F 00 00 80 67 12 06 F7 7F 00 00'
-- end address as aob

GetStringList = {'r_','t_','vid_','s_','cf_','g_','r_','test_','i_','inst_','shd_','ui_'}
-- prepare to find strings that begins with... (prefix)

DEBUG_TEXT = 0
-- additional print output, default 0 == off

jump = 8
-- Check intervals (How far "jump near(forward)" if expected string at given location is not to be found)

block = 0x140
-- Calculate MAX string block (...)

StringMaxLenght = 32
-- Must be set. If catches wrong strings (example ??Z?r_), enter lower number

STRING_TO_SYMBOL = 1
-- default off == 0 , registers matched strings into user defined symbols

NearFirstStringAddress = AOBScanModuleUnique(Module,NearFirstStringAOB)
if (NearFirstStringAddress==nil) then print("CRUCIAL: COULDNT FIND FIRST ADDRESS STRING AOB SIG") return end
-- Get First Address

EndStringAddress=AOBScanModuleUnique(Module,EndStringBlockAOB)
if (EndStringAddress==nil)then print("CRUCIAL: COULDNT FIND END ADDRESS STRING AOB SIG") return end
-- Get Last Address

NearFirstStringAddressString=readString(NearFirstStringAddress,StringMaxLenght)
EndAddressString=readString(EndStringAddress,StringMaxLenght)
-- Get First and last string


-- (below being used for calculations and print func)

found_strings=0
-- calculates how many found in given range

not_found_strings=0
-- calculates how many NOT found in given range

-- Below Function part

-- Search for strings
function checkstring()
         for i, v in ipairs(GetStringList)
             do
              if (DEBUG_TEXT==1) then print(i, v) end
                 if string.find(tempstring,v)
                    then

                    if (DEBUG_TEXT==1) then print(TXT_LINE);print(TXT_FOUND,tempstring);print(TXT_ATADR,temp);print(TXT_LINE);end
					 -- then found inform
					
					if (STRING_TO_SYMBOL==1) then registerSymbol(tempstring,temp) else end
					
						found_strings=found_strings+1
						-- add found info for later
						
						temp=temp+block
						-- jump block away
						
						tempstring=readString(temp,StringMaxLenght)
						-- prepare to read a new string
						
                    return
                else
             end
         end
         if (DEBUG_TEXT==1) then print (TXT_NOT,temp,TXT_W,tempstring) end
         not_found_strings=not_found_strings+1
		 
         temp = temp + jump
		 -- prepare to read a new address
		 
         tempstring=readString(temp,StringMaxLenght)
		 -- prepare to read a new string
end

-- First Initialize Block scan
function checkblock()

     if (DEBUG_TEXT==1) then debug_text() else end
	 -- check if additional custom logging is enabled
	 
     temp = NearFirstStringAddress
	 -- load first address into  check
	 
     tempstring = NearFirstStringAddressString
	 -- load first address STRING into check
	 
     while (temp < EndStringAddress)
           do
		   
             checkstring()
			 -- call strings check fx
			 
             if (DEBUG_TEXT==1) then print (TXT_SEARCH,temp,TXT_STOP,EndStringAddress) end
           end
		   
     checkstring()
	 -- run one more time.
	 
     if (DEBUG_TEXT==1) then print (TXT_TOTAL,found_strings,TXT_ANDNOT,not_found_strings) end

end

function debug_text()
TXT_LINE="---"
TXT_FOUND="FOUND STRING:"
TXT_ATADR="AT ADDRESS:"
TXT_TOTAL="TOTAL EXPECTED STRINGS FOUND:"
TXT_ANDNOT="AND SKIPPED:"
TXT_NOT="STRING WAS NOT FOUND AT:"
TXT_W="WHILE STRING IS"
TXT_SEARCH='SEARCHING STRINGS.. ADDRESS:'
TXT_STOP="STOP ADDRESS:"
end
-- Displays additional text if enabled

checkblock()
-- call this function