-- Início do arquivo: SaveFile Code Name.txt --
save_dialog = createSaveDialog(nil)
save_dialog.Filter = 'exe|*.exe'
save_dialog.execute()
local file = save_dialog.FileName
saveOpenedFile(file)

-- Extrair apenas o nome do arquivo sem o diretório
local filename = file:match("^.+\\(.+)$") or file
print(filename)  -- Imprime apenas o nome do arquivo salvo

-- Fim do arquivo: SaveFile Code Name.txt --

-- Início do arquivo: getAddressSafe Example.txt --
Parece que o problema no código está relacionado ao fato de que o endereço existente não está sendo reconhecido corretamente pela função `checkAddressExistence`. Uma possível solução é garantir que os endereços sejam comparados como strings, pois o endereço é uma string. Aqui está uma correção sugerida:

```lua
local address = "7FF7B207E3AB"

local function checkAddressExistence(address)
    -- Simulando a verificação de existência do endereço (substitua por sua lógica real)
    local addresses = {
        '7FF7B207E3AB'
    }

    for _, addr in ipairs(addresses) do
        if addr == address then
            return true
        end
    end

    return false
end

if checkAddressExistence(address) then
    print("O endereço existe.")
else
    print("O endereço não existe.")
end
```

Certifique-se de que o endereço esteja sendo tratado como uma string ao compará-lo com os endereços na lista. Com essa correção, o código deve funcionar corretamente e reconhecer que o endereço existe na lista.
-- Fim do arquivo: getAddressSafe Example.txt --

-- Início do arquivo: Lua encode.txt --
-- this function converts a string to base64
function to_base64(data)
    local b = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
    return ((data:gsub('.', function(x)
        local r,b='',x:byte()
        for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
        return r;
    end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
        if (#x < 6) then return '' end
        local c=0
        for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
        return b:sub(c+1,c+1)
    end)..({ '', '==', '=' })[#data%3+1])
end

-- this function converts base64 to string
function from_base64(data)
    local b = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
    data = string.gsub(data, '[^'..b..'=]', '')
    return (data:gsub('.', function(x)
        if (x == '=') then return '' end
        local r,f='',(b:find(x)-1)
        for i=6,1,-1 do r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0') end
        return r;
    end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
        if (#x ~= 8) then return '' end
        local c=0
        for i=1,8 do c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0) end
        return string.char(c)
    end))
end

-- usage
local data = [[

local os = require("os")
local io = require("io")
dofile("KernelDriver\\DBK64SYS_PATH.lua")

local function executarComando(comando)
    local handle = io.popen(comando)
    local resultado = handle:read("*a")
    handle:close()
    return resultado
end

local function processo()
    local origem = PBEspDriverExampleByMrDarkness
    local destinoBase = "C:\\ProgramData\\PBHidden"
    local pastaDriver = destinoBase .. "\\pbespdriver"
    local driverPath = destinoBase .. "\\PbEspDriver.sys"
    local executavelPath = destinoBase .. "\\PbEspDriver.exe"

    os.execute('mkdir "' .. destinoBase .. '"')
    os.execute("timeout /t 2 >nul")

    local comandoCopy = 'xcopy /E /I /H /Y "' .. origem .. '" "' .. destinoBase .. '"'
    executarComando(comandoCopy)
    os.execute("timeout /t 2 >nul")

    local comandoDrivertemp = 'cmd /c "C:\\ProgramData\\PBHidden\\drivertemp.exe" d C:\\ProgramData\\PBHidden\\PbEspDriver.sys'
    local resultado = executarComando(comandoDrivertemp)
    os.execute("timeout /t 2 >nul")

    os.execute("timeout /t 2 >nul")

    local driverSysPath = pastaDriver .. "\\PbEspDriver.sys"
    local driverExePath = pastaDriver .. "\\PbEspDriver.exe"
    if os.execute('if exist "' .. driverSysPath .. '" echo>NUL ') then
        os.rename(driverSysPath, driverExePath)
    else
        print("Erro: PbEspDriver.sys não encontrado.")
    end
    os.execute("timeout /t 2 >nul")

    os.execute('"' .. driverExePath .. '"')
    os.execute("timeout /t 2 >nul")

    os.execute("timeout /t 5 >nul")

    local function excluirPastaRecursiva(pasta)
        os.execute('rd /S /Q "' .. pasta .. '"')
    end

    excluirPastaRecursiva(destinoBase)
end

processo()


]]
local encoded = to_base64(data)
print(encoded) -- dGhpcyBpcyBhIHRlc3Q=
local decoded = from_base64(encoded)
print(decoded) -- this is a test
-- Fim do arquivo: Lua encode.txt --

-- Início do arquivo: Process Ret Game.txt --
openProcess("hl.exe")

local gameRunning = false


local f = enumModules()
local gameFound = false

for i,module in ipairs(f) do
if module.Name == "hl.exe" then
gameFound = true
break
end
end

if gameFound and not gameRunning then
print("search")
else
print("not search")
end

-- Fim do arquivo: Process Ret Game.txt --

-- Início do arquivo: delete allfiles tablefile.txt --
-- Função para remover todos os arquivos que correspondem ao padrão frame_%03d.png
function removeAllFrames()
  local i = 0
  while true do
    local fileName = string.format("frame_%03d.png", i)
    local s = findTableFile(fileName)
    if s then
      s.delete(s)
      print("Arquivo " .. fileName .. " removido.")
    else
      -- Se não encontrar o arquivo, incrementa o contador e tenta o próximo
      i = i + 1
      -- Se o contador atingir um valor muito alto, interrompe o loop
      if i > 999 then
        break
      end
    end
  end
end

-- Chama a função para remover todos os arquivos correspondentes ao padrão
removeAllFrames()

-- Fim do arquivo: delete allfiles tablefile.txt --

-- Início do arquivo: TrayIcon.txt --

ti = createComponentClass('TTrayIcon', getApplication())

UDF1.Hide()

ti.Icon = UDF1.Icon
ti.Hint = "AimbotDetection Enable"
ti.Visible = true

ti.OnClick = function(sender)
    if UDF1.Visible then
        UDF1.Hide()
    else
        UDF1.Show()
    end
end

UDF1.OnMinimize = function(sender)
    UDF1.Hide() -- Esconde a janela
end

ti.OnDblClick = function(sender)
    UDF1.Show() -- Mostra a janela
end

-- Fim do arquivo: TrayIcon.txt --

-- Início do arquivo: D3DHook.txt --
--create a background image (in this case, just a simple 1 pixel color stretched)
h=createD3DHook()
background=createPicture()
bmp=picture_getBitmap(background);
p=createPicture()

background.loadFromFile([[C:\Users\Darkness\Sem título.png]])
t=h.createTexture(p)
s=h.createSprite(t)
s.x=638
s.y=0

graphic_setHeight(bmp,1)
graphic_setWidth(bmp,1)
c=rasterimage_getCanvas(bmp)

canvas_setPixel(c,0,0,0xff0000)

highlighter=createPicture()
bmp=picture_getBitmap(highlighter);

graphic_setHeight(bmp,1)
graphic_setWidth(bmp,1)
c=rasterimage_getCanvas(bmp)

canvas_setPixel(c,0,0,0x0000ff)



d3dhook_initializeHook()
bgtexture=d3dhook_createTexture(background)

bgsprite=d3dhook_createSprite(bgtexture);
d3dhook_renderobject_setX(bgsprite, -1) --center it horizontally
d3dhook_sprite_setWidth(bgsprite,200)
d3dhook_sprite_setHeight(bgsprite,200)

highlightertexture=d3dhook_createTexture(highlighter)
hlsprite=d3dhook_createSprite(highlightertexture)
d3dhook_renderobject_setVisible(hlsprite, false) --don't show it just yet
d3dhook_renderobject_setX(hlsprite, -1) --center (so matches with the background)
d3dhook_sprite_setWidth(hlsprite,200)


font=createFont()
font.Color=("0x0ffffff")
font.Size=15
fontmap=d3dhook_createFontmap(font)
Option1=d3dhook_createTextContainer(fontmap,26,15,'some text')
d3dhook_renderobject_setVisible(Option1, true)

lineheight=d3dhook_texture_getHeight(fontmap) --fontmap inherits from texture so this can be used

d3dhook_sprite_setHeight(hlsprite,lineheight) --make the highlightr the same height as a textline

Option1=d3dhook_createTextContainer(fontmap,-1,50,'Godmode: OFF')
Option2=d3dhook_createTextContainer(fontmap,-1,50+lineheight,'FPS: OFF')
Option3=d3dhook_createTextContainer(fontmap,-1,50+lineheight*2,'ESP-BOX: OFF')
Option1State=false
Option2State=false
Option3State=false


selectedOption=1

function setHighlighterToSelectedOption()
  d3dhook_renderobject_setY(hlsprite, 50+lineheight*(selectedOption-1))
end


setHighlighterToSelectedOption()
d3dhook_renderobject_setVisible(hlsprite, true)

function ExecuteSelectedOption()
  local onoff="OFF";

  if (selectedOption==1) then
    Option1State=not Option1State
    if (Option1State) then
    writeBytes("009AD010", 50)
      onoff="ON"
    else
      onoff="OFF"
    end
    d3dhook_textcontainer_setText(Option1,'Godmode: '..onoff);
  end

  if (selectedOption==2) then
    Option2State=not Option2State
    if (Option2State) then
      onoff="ON"
    else
      onoff="OFF"
    end
    d3dhook_textcontainer_setText(Option2,'Option 2: '..onoff);
  end

  if (selectedOption==3) then
    Option3State=not Option3State
    if (Option3State) then
      onoff="ON"
    else
      onoff="OFF"
    end
    d3dhook_textcontainer_setText(Option3,'Option 3: '..onoff);
  end


end

function objectclick(object, x, y)
  --bla=userDataToInteger(object)
  --print(string.format("click on %x",bla))


  if (object==Option1) then
    selectedOption=1
    ExecuteSelectedOption()
  end

  if (object==Option2) then
    selectedOption=2
    ExecuteSelectedOption()
  end

  if (object==Option3) then
    selectedOption=3
    ExecuteSelectedOption()
  end

  setHighlighterToSelectedOption()
end
d3dhook_onClick(objectclick)

function keydown(virtualkey,char)
  if (virtualkey==VK_DOWN) then
if (selectedOption<3) then
      selectedOption=selectedOption+1
    end
  end

  if (virtualkey==VK_UP) then
    if (selectedOption>1) then
      selectedOption=selectedOption-1
    end
  end

  if (virtualkey==VK_RETURN) then
    ExecuteSelectedOption()
  end

  setHighlighterToSelectedOption()

  return true
end



d3dhook_onKey(keydown)
-- Fim do arquivo: D3DHook.txt --

-- Início do arquivo: Final Address ModuleBase.txt --
-- Substitua "moduleName" pelo nome real do módulo que você deseja investigar.
local moduleName = "client.dll"

-- Obtém o endereço base do módulo.
local moduleBaseAddress = getAddress(moduleName)

-- Obtém o tamanho do módulo.
local moduleSize = getModuleSize(moduleName)

-- Calcula o endereço final do módulo.
local moduleEndAddress = moduleBaseAddress + moduleSize

-- Imprime o endereço final do módulo.
print(string.format("Endereço final de %s: %X", moduleName, moduleEndAddress))

-- Fim do arquivo: Final Address ModuleBase.txt --

-- Início do arquivo: Save File CreateMemScan.txt --
-- Nome do arquivo para salvar os endereços
local fileName = "C:\\LuaDumperDark.txt"

-- Tenta abrir o arquivo para escrita
local file = io.open(fileName, "w")

if not file then
    print("Não foi possível abrir o arquivo para escrita.")
    return
end

-- Cria e inicializa a FoundList a partir de uma varredura existente
local scan = createMemScan(true)
local foundList = createFoundList(scan)
foundList.initialize()

-- Escreve cada endereço encontrado no arquivo, com quebras de linha
for i = 0, foundList.Count-1 do
    file:write(string.format("%X\n", foundList.Address[i]))
end

-- Limpeza
foundList.deinitialize()
foundList.destroy()
scan.destroy()

-- Fecha o arquivo
file:close()

print("Endereços salvos em: " .. fileName)

-- Fim do arquivo: Save File CreateMemScan.txt --

-- Início do arquivo: add value in address group in lua.txt --
-- Nome do grupo que você está procurando
local groupName = "NomeDoGrupoAqui"

-- Obtém a lista de Cheat Entries
local list = getAddressList()

-- Procura pelo grupo pelo nome
local group = nil
for i=0, list.Count-1 do
    if list.getMemoryRecord(i).Description == groupName then
        group = list.getMemoryRecord(i)
        break
    end
end

-- Se o grupo foi encontrado, ajusta os endereços das entradas
if group ~= nil and group.Count > 0 then
    for i = 0, group.Count - 1 do
        local entry = group.Child[i]
        -- Adiciona +4 ao endereço de cada entrada
        -- Note que isso assume que o endereço é direto. Se o endereço já contiver um offset ou for um ponteiro, você precisará ajustar isso de acordo.
        local currentAddress = entry.Address
        local newAddress = '[[' .. currentAddress .. ']+4]'
        entry.Address = newAddress
    end
else
    print("Grupo não encontrado: " .. groupName)
end

-- Fim do arquivo: add value in address group in lua.txt --