|
Cheat Engine The Official Site of Cheat Engine
|
View previous topic :: View next topic |
Author |
Message |
zu007 How do I cheat? Reputation: 0
Joined: 26 Feb 2015 Posts: 5
|
Posted: Wed Jun 03, 2015 3:46 pm Post subject: How to Hide Data in LUA script By Encrypting Data |
|
|
i just find this Lua Script but cann't understand how they Encrypt the Data.
also i cann't UnderStand these Function(bec & bdc).Specially function bdc used to Decoding for Encrypted Data.
Orignal Values which are Encrypted.
===========================================
v[1]=60 9B 03 66 40 65 01 6C 06 65 01 6C 05 65 01 6C 08 65 01 6C 09
v[2]=60 9B 03 66 40 65 01 6C 06 65 01 6C 05 65 01 6C 08 65 01 6C 08
v[3]=6D 06 60 9B 03 66 40 65 01 6C 06 65 01 6C 05 65 01 6C 07 65 01 6C 08
v[4]=6D 06 60 9B 03 66 40 65 01 6C 06 65 01 6C 05 65 01 6C 07 65 01 6C 07
v[5]=AB ?? ?? ?? ?? 00 00 ?? ?? ?? ?? ?? ?? ?? ?? ?? 00 00 ?? 66 ?? ?? ?? ?? ?? ?? ?? ?? ?? 66 ?? ?? ?? ?? ?? ?? ?? ?? 06 ?? ?? ?? ?? ?? ?? ?? ?? 47
v[6]=?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? 0E
v[7]=60 C3 06 66 17 D0 66 E4 4B 46 BE 28 01 46 1D 00 4F
v[8]=25 F9 02 02 02 02 02 02 02 02 02 02 02 02 02 02 4f
v[9]=D1 66 89 34 12 02 00 00 26 48 D1 66 C1 28 60 AD 05 66 D4 22
v[10]=D1 66 ?? ?? 12 02 00 00 27 48 D1 66 ?? ?? 60 ?? ?? 66 ?? ??
v[11]=61 ?? 2a 24 ?? 25 ?? ??
v[12]=61 ?? 2a 24 ?? 25 88 27
============================================
Code: |
-- Decoding Functions use Decrypt Code & Text
function bec(data)
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
function bdc(data)
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
---- already Encrypted Data
v[1]=bdc('NjAgOUIgMDMgNjYgNDAgNjUgMDEgNkMgMDYgNjUgMDEgNkMgMDUgNjUgMDEgNkMgMDggNjUgMDEgNkMgMDk=')
v[2]=bdc('NjAgOUIgMDMgNjYgNDAgNjUgMDEgNkMgMDYgNjUgMDEgNkMgMDUgNjUgMDEgNkMgMDggNjUgMDEgNkMgMDg=')
v[3]=bdc('NkQgMDYgNjAgOUIgMDMgNjYgNDAgNjUgMDEgNkMgMDYgNjUgMDEgNkMgMDUgNjUgMDEgNkMgMDcgNjUgMDEgNkMgMDg=')
v[4]=bdc('NkQgMDYgNjAgOUIgMDMgNjYgNDAgNjUgMDEgNkMgMDYgNjUgMDEgNkMgMDUgNjUgMDEgNkMgMDcgNjUgMDEgNkMgMDc=')
v[5]=bdc('QUIgOTYgMkEgMTIgMDcgMDAgMDAgMjkgRDIgNDYgRjYgMDUgMDAgNzYgMTIgMUQgMDAgMDAgRDAgNjYgOTIgMTcgRDEgQzQgNEYgRjcgMDYgMDEgRDAgNjYgOTIgMTcgNDYgMUQgMDAgMjQgMDAgMEQgMDYgMDAgMDAgRDAgNEYgREIgQTkgMDEgMDAgNDc=')
v[6]=bdc('Pz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gPz8gMEU=')
v[7]=bdc('RDEgNjYgODkgMzQgMTIgMDIgMDAgMDAgMjYgNDggRDEgNjYgQzEgMjggNjAgQUQgMDUgNjYgRDQgMjI=')
v[8]=bdc('RDEgNjYgPz8gPz8gMTIgMDIgMDAgMDAgMjcgNDggRDEgNjYgPz8gPz8gNjAgPz8gPz8gNjYgPz8gPz8=')
v[9]=bdc('NjAgQzMgMDYgNjYgMTcgRDAgNjYgRTQgNEIgNDYgQkUgMjggMDEgNDYgMUQgMDAgNEY=')
v[10]=bdc('MjUgRjkgMDIgMDIgMDIgMDIgMDIgMDIgMDIgMDIgMDIgMDIgMDIgMDIgMDIgMDIgNGY=')
v[11]=bdc('NjEgPz8gMmEgMjQgPz8gMjUgPz8gPz8=')
v[12]=bdc('NjEgPz8gMmEgMjQgPz8gMjUgODggMjc=')
function cyberHacks()
t =
{
{bdc('V29ya3Nob3AgSGFjayBVcGdyYWRlIHdpdGhvdXQgVGhvcml1bQ=='),[[
Luacall(scan(v[1],v[2]))
Luacall(scan(v[3],v[4]))
]]},
{bdc('V29ya3Nob3AgVGltZSBCeXBhc3MgKGVuYWJsZSBhdCA4MSUp'),[[
Luacall(scan( v[5],v[6]))
]]},
{bdc('RXBpYyBUZWNoIChlbmFibGUgYXQgODElKQ=='),[[
Luacall(scan(v[7],v[8]))
]]},
{bdc('VW5sb2NrIExvY2tlZCBVbml0cyBpbiBXb3Jrc2hvcCAoYXQgODElKQ=='),[[
Luacall(scan(v[9],v[10]))
]]},
{bdc('NWsgRGVzaWduKGVuYWJsZSBhdCA4MSUp'),[[
Luacall(scan(v[11],v[12]))
]]},
}
end
function scan(search, change)
aobs = AOBScan(search, "+W")
if(aobs == nil) then
scanCheck=false
else
j = stringlist_getCount(aobs)
for i = 1, j do
address=stringlist_getString(aobs,i-1)
for i = 1, string.len(change), 3 do
z = string.sub(change, i, i+2)
x, y = string.find(z, "%?+")
if (x == nil) then
script=[[
]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
db ]]..z..[[
]]
autoAssemble(script)
end
end
end
object_destroy(aobs);
aobs=nil
scanCheck=true
end
end
|
|
|
Back to top |
|
|
atom0s Moderator Reputation: 198
Joined: 25 Jan 2006 Posts: 8517 Location: 127.0.0.1
|
Posted: Wed Jun 03, 2015 4:26 pm Post subject: |
|
|
Just run the data through the routine like it is and print out the results if you need to read it.
As for how it works, they are just base64 encoding / decoding the data. The functions this uses are taken from:
http://lua-users.org/wiki/BaseSixtyFour _________________
- Retired. |
|
Back to top |
|
|
Fluffer_Nutter Advanced Cheater Reputation: 0
Joined: 26 Feb 2015 Posts: 67
|
Posted: Wed Jun 03, 2015 11:51 pm Post subject: |
|
|
All these War Commander kiddies on the forums lol.
When we wrote that script it is using Base64 encryption like atom0s said. But the issue was it was still easy to see. But if you want to use it just use the print() command and decode / encode it. If you made it that far to take it from our trainer just go a little farther to decrypte it.
But like i said its all in the LUA test so anyone can just look inside and see how it is encrypted and BAM you have the codes. I would suggest just not using Base64 and try something else.
bec = Base64 Encryption Command
bdc = Base64 Decryption Command |
|
Back to top |
|
|
VirtualMind Newbie cheater Reputation: 0
Joined: 04 Apr 2015 Posts: 20
|
Posted: Sun Apr 03, 2016 8:30 am Post subject: |
|
|
Fluffer_Nutter wrote: | All these War Commander kiddies on the forums lol.
When we wrote that script it is using Base64 encryption like atom0s said. But the issue was it was still easy to see. But if you want to use it just use the print() command and decode / encode it. If you made it that far to take it from our trainer just go a little farther to decrypte it.
But like i said its all in the LUA test so anyone can just look inside and see how it is encrypted and BAM you have the codes. I would suggest just not using Base64 and try something else.
bec = Base64 Encryption Command
bdc = Base64 Decryption Command |
why are you including the encryption function if you're not gonna actually use it? seems who made the script is a kiddie himself since he blindly copied the given source code. |
|
Back to top |
|
|
Fluffer_Nutter Advanced Cheater Reputation: 0
Joined: 26 Feb 2015 Posts: 67
|
Posted: Sun Apr 03, 2016 6:08 pm Post subject: |
|
|
It was just for testing, but now others use it and think it locks there trainer. I think the original was found off the Lua help center. But yes the issue is the function is sitting right there, so very easy to crack. Also it uses cipher encryption (depending on how new the code is, original was just base64) but again same issue since it is found and used with just text search with cheat engine.
Here is the link. Credit is given.
http://lua-users.org/wiki/BaseSixtyFour |
|
Back to top |
|
|
facecheats Newbie cheater Reputation: 0
Joined: 12 Jul 2015 Posts: 20
|
Posted: Tue Apr 26, 2016 12:34 pm Post subject: |
|
|
[quote="Fluffer_Nutter"]It was just for testing, but now others use it and think it locks there trainer. I think the original was found off the Lua help center. But yes the issue is the function is sitting right there, so very easy to crack. Also it uses cipher encryption (depending on how new the code is, original was just base64) but again same issue since it is found and used with just text search with cheat engine.
Here is the link. Credit is given.
Code: |
local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
function bec(data)
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
function bdc(data)
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
title = "Property Of Cyber Terminators"
credits=bdc(' ')
blue="0x00ff123"
red1="0x000000FF"
Background="0x00FFD700"
white="0x00000000"
green="0x0043FF00"
--showMessage(bdc(' '))
mt = {}
mt[1]= bdc('RWlvQUFHSUxZZ3RtNmdaZ2xTeG03QzRrQVE9PQ==')
mt[2]= bdc('RWdBQUFHSUxZZ3RtNmdaZ2xTeG03QzRrTlE9PQ==')
mt[3]= bdc('RWlvQUFHSU9ZZzVtNmdaZ2xTeG03QzRrQVE9PQ==')
mt[4]= bdc('RWdBQUFHSU9ZZzVtNmdaZ2xTeG03QzRrTlE9PQ==')
function setHack_Information()
t =
{
{'Instant Construction',[[Luacall(scan(mt[1],mt[2]))]]},
{'Gems on Collect',[[Luacall(scan(mt[3],mt[4]))]]},
}
end
----------------------------------------- MAIN GUI -----------------------------------------
MainGUI = {}
MainGUI[1] = createForm(false)
MainGUI[2] = createPanel(MainGUI[1])
MainGUI[4] = createLabel(MainGUI[2])
MainGUI[5] = createGroupBox(MainGUI[2])
MainGUI[6] = createLabel(MainGUI[5])
MainGUI[7] = createLabel(MainGUI[5])
MainGUI[8] = createLabel(MainGUI[2])
MainGUI[9] = createLabel(MainGUI[5])
MainGUI[10] = createComboBox(MainGUI[5])
MainGUI[11] = createGroupBox(MainGUI[2])
MainGUI[12] = createButton(MainGUI[5])
MainGUI[13] = createLabel(MainGUI[2])
MainGUI[14] = createLabel(MainGUI[11])
MainGUI[15] = createListBox(MainGUI[11])
MainGUI[16] = createButton(MainGUI[11])
MainGUI[17] = createButton(MainGUI[11])
MainGUI[18] = createLabel(MainGUI[11])
MainGUI[19] = createLabel(MainGUI[11])
MainGUI[23] = createButton(MainGUI[11])
MainGUI[24] = createButton(MainGUI[11])
----------------------------------------- PROPERTIES -----------------------------------------
setProperty(MainGUI[1] , "color", red2)
setProperty(MainGUI[1] , "ShowInTaskBar", 'stAlways')
setProperty(MainGUI[1] , "Position", "poScreenCenter")
setProperty(MainGUI[1] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[2] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[2] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[10] , "ReadOnly", "True")
FontHeight = getProperty(MainGUI[4] , "Font")
setProperty(FontHeight , "Style", "[fsBold, fsitalic]")
setProperty(FontHeight , "Height", "26")
setProperty(FontHeight , "Color", white)
FontHeight = getProperty(MainGUI[5] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", white)
FontHeight = getProperty(MainGUI[8] , "Font")
setProperty(FontHeight , "Style", "[fsBold, fsitalic]")
setProperty(FontHeight , "Height", "26")
setProperty(FontHeight , "Color", white)
FontHeight = getProperty(MainGUI[9] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "16")
setProperty(FontHeight , "Color", white)
FontHeight = getProperty(MainGUI[10] , "Font")
setProperty(FontHeight , "Height", "18")
FontHeight = getProperty(MainGUI[12] , "Font")
setProperty(FontHeight , "Height", "13")
FontHeight = getProperty(MainGUI[13] , "Font")
setProperty(FontHeight , "Style", "[fsBold, fsitalic]")
setProperty(FontHeight , "Height", "16")
setProperty(FontHeight , "Color", white)
setProperty(MainGUI[13], "Cursor", "-21")
FontHeight = getProperty(MainGUI[14] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", white)
FontHeight = getProperty(MainGUI[15] , "Font")
setProperty(FontHeight , "Height", "18")
FontHeight = getProperty(MainGUI[18] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", white)
FontHeight = getProperty(MainGUI[19] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", white)
-----------------------------------------SIZE + POS -----------------------------------------
control_setSize(MainGUI[1], 425, 512)
x,y = control_getSize(MainGUI[1])
control_setSize(MainGUI[2], x,y)
control_setSize(MainGUI[5], 404, 129)
control_setSize(MainGUI[10], 255, 21)
control_setSize(MainGUI[11], 404, 279)
control_setSize(MainGUI[12], 107, 28)
control_setSize(MainGUI[15], 255, 106)
control_setSize(MainGUI[16], 107, 26)
control_setSize(MainGUI[17], 107, 26)
control_setSize(MainGUI[23], 107, 26)
control_setSize(MainGUI[24], 107, 26)
control_setPosition(MainGUI[4], 15, 10)
control_setPosition(MainGUI[5], 10, 35)
control_setPosition(MainGUI[6], 10, 5)
control_setPosition(MainGUI[8], 15, 175)
control_setPosition(MainGUI[9], 10, 75)
control_setPosition(MainGUI[10], 10, 35)
control_setPosition(MainGUI[11], 10, 205)
control_setPosition(MainGUI[12], 280, 35)
control_setPosition(MainGUI[13], 12, 490)
control_setPosition(MainGUI[14], 10, 5)
control_setPosition(MainGUI[15], 10, 35)
control_setPosition(MainGUI[16], 280, 35)
control_setPosition(MainGUI[17], 280, 76)
control_setPosition(MainGUI[18], 10, 155)
control_setPosition(MainGUI[19], 11, 180)
control_setPosition(MainGUI[23], 280, 116)
control_setPosition(MainGUI[24], 280, 160)
----------------------------------------- CAPTION -----------------------------------------
control_setCaption(MainGUI[1], title.." Trainer")
control_setCaption(MainGUI[4], title.." Trainer")
control_setCaption(MainGUI[6], "Select your browser. Make sure the game is loaded.")
control_setCaption(MainGUI[8], "Available hacks for this game")
control_setCaption(MainGUI[9], "Attached to PID: waiting...")
control_setCaption(MainGUI[12], "Select")
control_setCaption(MainGUI[13], " facebookhax.net " ..credits)
control_setCaption(MainGUI[14], "Enable hacks before starting a new game.")
control_setCaption(MainGUI[16], 'Enable selected')
control_setCaption(MainGUI[17], 'Enable all')
control_setCaption(MainGUI[18],"Description:")
control_setCaption(MainGUI[19],"no hack selected")
control_setCaption(MainGUI[23], 'Reset all')
control_setCaption(MainGUI[24], 'Donate')
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)
----------------------------------------- PROGRESSBAR -----------------------------------------
MainGUI[20] = createProgressBar(MainGUI[11])
control_setPosition(MainGUI[20], 11, 180)
control_setSize(MainGUI[20], 255, 14)
control_setVisible(MainGUI[20], false)
MainGUI[21] = createLabel(MainGUI[11])
FontHeight = getProperty(MainGUI[21] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", white)
control_setPosition(MainGUI[21], 10, 155)
control_setVisible(MainGUI[21], false)
MainGUI[22] = createLabel(MainGUI[11])
FontHeight = getProperty(MainGUI[22] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
control_setPosition(MainGUI[22], 10, 205)
control_setVisible(MainGUI[22], false)
----------------------------------------- COMBOBOX CONTENT -----------------------------------------
setHack_Information()
al = combobox_getItems(MainGUI[10])
strings_clear(al)
strings_add(al, 'Browser list...')
strings_add(al, 'Firefox')
strings_add(al, 'Google Chrome')
strings_add(al, 'Firefox(Unity Game)')
strings_add(al, 'Maxthon')
strings_add(al, 'Internet Explorer')
strings_add(al, 'Internet Explorer Windows XP')
setProperty(MainGUI[10] , "ItemIndex", "0")
all_enabled = 0
success = 1
TeL = listbox_getItems(MainGUI[15])
TempSave = {}
strings_clear(TeL)
check = 0
i = 0
repeat
if t[i+1]==nil then
check = 1
else
i = i+1
strings_add(TeL, t[i][1])
TempSave[i] = {}
TempSave[i][1] = t[i][1]
TempSave[i][2] = t[i][2]
TempSave[i][3] = t[i][3]
TempSave[i][4] = 2
TempSave[i][5] = 0
check = 0
end
until check == 1
errorOnLookupFailure(false)
alreadycheckedPIDS={}
openNextProcTimer = createTimer(nil,false)
timer_setInterval(openNextProcTimer, 1000)
timer_onTimer(openNextProcTimer,
function(sender)
local tempPIDtable = getPids()
if #tempPIDtable == 0 then return end
timer_setEnabled(sender,false)
openProcess(tempPIDtable[1])
end)
----------------------------------------- CHECKPROCESS / PIDS -----------------------------------------
function checkProcessMajor()
reinitializeSymbolhandler()
if getAddress("pepflashplayer.dll")~=0 or getAddress("AdobeCPGetAPI") ~=0 then
return true
end
return false
end
function getPids()
local SL=createStringlist()
getProcesslist(SL)
local tempPIDtable={}
for i=0,strings_getCount(SL)-1 do
local entry = strings_getString(SL,i)
local processname = entry:sub(10,255)
local PID = tonumber('0x'..entry:sub(1,8))
if processname == "chrome.exe" then
if alreadycheckedPIDS[PID]~=true then
table.insert(tempPIDtable,PID)
end
end
end
object_destroy(SL)
return tempPIDtable
end
function checkProcess(sender)
timer_setEnabled(sender,false)
alreadycheckedPIDS[getOpenedProcessID()]=true
if checkProcessMajor() then
timer_setEnabled(openNextProcTimer,false)
alreadycheckedPIDS={}
enableHacks()
else
timer_setEnabled(openNextProcTimer,true)
end
end
checkProcessTimer = createTimer(nil,false)
timer_setInterval(checkProcessTimer, 100)
timer_onTimer(checkProcessTimer, checkProcess)
function onOpenProcess()
if success == 1 then return end
timer_setEnabled(checkProcessTimer,true)
end
----------------------------------------- BROWSER SELECT -----------------------------------------
function scanBrowser()
AttachItems = combobox_getItems(MainGUI[10])
AttachIndex = combobox_getItemIndex(MainGUI[10])
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
local font = getProperty(MainGUI[9] , "Font")
setProperty(font, "Color", white)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Scanning Process, Please wait...")
processMessages()
if AttachIndex == -1 then return end
if AttachIndex == 0 then
control_setCaption(MainGUI[9], "Attached to PID: " .. "no Browser selected.")
return
end
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Google Chrome' then
success = 0
local test = openProcess("chrome.exe")
if test == nil then
setProperty(font , "Color", orange1)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Chrome not found.")
timer_setEnabled(openNextProcTimer,false)
return
end
strings_add(getAutoAttachList(),"chrome.exe")
timer_setEnabled(openNextProcTimer,true)
return
end
if check == 'Firefox' or check == 'Internet Explorer' or check == 'SeaMonkey Windows 7' then openProcess("FlashPlayerPlugin") end
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
setProperty(font , "Color", green)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Flash player plugin not found")
else
local PID=getOpenedProcessID()
setProperty(font, "Color", green)
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - flash player plugin")
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
end
if check == 'Firefox(Unity Game)' or check == 'Internet Explorer Windows XP' or check == 'SeaMonkey Windows XP' then openProcess("plugin-container.exe") end
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
setProperty(font , "Color", red)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Flash player plugin not found")
else
local PID=getOpenedProcessID()
setProperty(font, "Color", green)
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - flash player plugin")
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
end
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Maxthon' then
success = 0
local test = openProcess("Maxthon.exe")
if test == nil then
setProperty(font , "Color", red1)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Maxthon not found.")
timer_setEnabled(openNextProcTimer,false)
return
end
strings_add(getAutoAttachList(),"Maxthon.exe")
timer_setEnabled(openNextProcTimer,true)
return
end
end
local function browser(text, key)
return text:gsub("%a", function(t)
local base = (t:lower() == t and string.byte('a') or string.byte('A'))
local r = t:byte() - base
r = r + key
r = r%26 -- works correctly even if r is negative
r = r + base
return string.char(r)
end)
end
local function PIDD(text, key)
return browser(text, -key)
end
Scanning = {
browser = browser,
PIDD = PIDD,
}
----------------------------------------- ENABLE HACKS -----------------------------------------
function enableHacks()
setProperty(getProperty(MainGUI[9] , "Font"), "Color", white)
local PID=getOpenedProcessID()
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Firefox' or check == 'Internet Explorer' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - flash player plugin")
local font = getProperty(MainGUI[9] , "Font")
setProperty(font, "Color", green)
elseif check == 'Google Chrome' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - chrome.exe")
local font = getProperty(MainGUI[9] , "Font")
setProperty(font, "Color", green)
elseif check == 'Maxthon' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - Maxthon.exe")
local font = getProperty(MainGUI[9] , "Font")
setProperty(font, "Color", green)
elseif check == 'SeaMonkey' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - SeaMonkey")
local font = getProperty(MainGUI[9] , "Font")
setProperty(font, "Color", green)
end
success = 1
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
end
----------------------------------------- PROGRESS BAR -----------------------------------------
function show_progressbar()
control_setPosition(MainGUI[22], 10, 205)
control_setCaption(MainGUI[22], '')
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], true)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], true)
progressbar_setPosition(MainGUI[20], 0)
end
function hide_progressbar()
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], false)
control_setVisible(MainGUI[22], false)
control_setVisible(MainGUI[18], true)
control_setVisible(MainGUI[19], true)
end
----------------------------------------- EXECUTE HACKS -----------------------------------------
function ExecuteHacks()
HLS = listbox_getItemIndex(MainGUI[15])
LIST = listbox_getItems(MainGUI[15])
if HLS == -1 then return end
i = HLS+1
font=getProperty(MainGUI[21], 'Font')
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], false)
if t[i][2]==nil then
setProperty(font, 'Color', white)
control_setCaption(MainGUI[21], "You already enabled this hack !")
return
end
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setCaption(MainGUI[21], "Executing hack...")
control_setVisible(MainGUI[22], true)
control_setCaption(MainGUI[22], '')
control_setPosition(MainGUI[22], 10, 250)
strings_setString(LIST, HLS, t[i][1])
processMessages()
if TempSave[i][4] == 2 then
Asm = autoAssemble(t[i][2])
font=getProperty(MainGUI[22], 'Font')
control_setCaption(MainGUI[21], "Executing hack. Finished.")
unpause()
if scanCheck~=true then
TempText = t[i][1]..' - Failed'
TempSave[i][5] = t[i][1]..' - Failed'
strings_setString(LIST, HLS, TempText)
setProperty(font, 'Color', red1)
control_setCaption(MainGUI[22], 'Failed to enable ')
else
TempText = t[i][1]..' - Enabled'
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, HLS, TempText)
setProperty(font, 'Color', green)
control_setCaption(MainGUI[22], 'Hack enabled. Enjoy it !')
t[i][2] = nil
TempSave[i][4] = 1
end
end
if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
end
----------------------------------------- EXECUTE ALL HACKS -----------------------------------------
function ExecuteAllHacks()
font=getProperty(MainGUI[21], 'Font')
if all_enabled == 1 then
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], false)
setProperty(font, 'Color', white)
control_setCaption(MainGUI[21], "You allready enabled all hacks !")
return
end
lb = listbox_getItems(MainGUI[15])
LIST = listbox_getItems(MainGUI[15])
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)
show_progressbar()
progressbar_setMax(MainGUI[20], strings_getCount(lb))
for i = 1, strings_getCount(lb) do
strings_setString(LIST, i-1, t[i][1])
end
count = 0
for i = 1, strings_getCount(lb) do
control_setCaption(MainGUI[21], "Executing hack: "..t[i][1])
progressbar_setPosition(MainGUI[20], i)
processMessages()
if TempSave[i][4] == 2 then
Asm = autoAssemble(t[i][2])
if scanCheck~=true then
TempSave[i][5] = t[i][1]..' - Failed'
strings_setString(LIST, i-1, TempSave[i][5])
else
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, i-1, TempSave[i][5])
t[i][2] = nil
TempSave[i][4] = 1
count = count + 1
end
else
count = count + 1
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, i-1, TempSave[i][5])
end
if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
end
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
control_setCaption(MainGUI[21], "Executing hack. Finished ! ")
font=getProperty(MainGUI[22], 'Font')
if count == strings_getCount(lb) then
setProperty(font, 'Color', white)
control_setCaption(MainGUI[22], 'All hacks enabled. Enjoy it !')
all_enabled = 1
else
diff = strings_getCount(lb) - count
if diff == 1 then
text = "hack"
else
text = "hacks"
end
setProperty(font, 'Color', red1)
control_setCaption(MainGUI[22], 'Failed to enable ' .. diff .. ' ' .. text .. ' !')
end
end
----------------------------------------- RESET HACKS -----------------------------------------
function ResetAllHacks()
lb = listbox_getItems(MainGUI[15])
ct = strings_getCount(lb)
for i = 1, ct do
strings_setString(lb, i-1, t[i][1])
TempSave[i][4] = 2
t[i][2]= TempSave[i][2]
end
all_enabled = 0
hide_progressbar()
control_setVisible(MainGUI[19], false)
control_setCaption(MainGUI[18], 'All hacks reseted.')
end
----------------------------------------- AOB SWAP -----------------------------------------
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
if IN<1 then
OUT=0
return OUT
end
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.fmod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end
function scan(enter, exit)
pretemp1 =Scanning.PIDD(enter,12)
pretemp2 =Scanning.PIDD(exit,12)
temp1 = bdc(pretemp1)
temp2 = bdc(pretemp2)
temp3 = Scanning.PIDD(temp1,12)
temp4 = Scanning.PIDD(temp2,12)
search = bdc(temp3)
change = bdc(temp4)
aobs = AOBScan(search, "+W")
if(aobs == nil) then
scanCheck=false
else
j = stringlist_getCount(aobs)
for i = 1, j do
address=stringlist_getString(aobs,i-1)
for i = 1, string.len(change), 3 do
z = string.sub(change, i, i+2)
x, y = string.find(z, "%?+")
if (x == nil) then
script=[[
]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
db ]]..z..[[
]]
autoAssemble(script)
end
end
end
object_destroy(aobs);
aobs=nil
scanCheck=true
end
end
----------------------------------------- HACK DESCRIPTION -----------------------------------------
function HackDescriptionsChange()
hide_progressbar()
control_setCaption(MainGUI[18], 'Description:')
HLS = listbox_getItemIndex(MainGUI[15])
if HLS == -1 then return end
i = HLS+1
if t[i][3]~='' and t[i][3]~=nil then
control_setCaption(MainGUI[19] ,t[i][3])
else
control_setCaption(MainGUI[19], "no description available.")
end
end
---------------------------------------- KONGHACK / EXIT -----------------------------------------
function OpenKonghack()
shellExecute(" ")
end
function Donate()
shellExecute(" ")
end
function CloseTrainer()
form_hide(MainGUI[1])
closeCE()
end
----------------------------------------- ONCLICK EVENTS -----------------------------------------
control_onClick(MainGUI[12], scanBrowser)
control_onClick(MainGUI[13], OpenKonghack)
control_onClick(MainGUI[16], ExecuteHacks)
control_onClick(MainGUI[17], ExecuteAllHacks)
control_onClick(MainGUI[23], ResetAllHacks)
control_onClick(MainGUI[24], Donate)
setMethodProperty(MainGUI[15], 'OnSelectionChange', HackDescriptionsChange)
form_onClose(MainGUI[1], CloseTrainer)
form_show(MainGUI[1]) |
_________________
dved rvrdv vrevr rvrve |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
|
|