diff options
Diffstat (limited to 'examples/scripts/Delphi Resources/Project1.exe.vmp')
| -rw-r--r-- | examples/scripts/Delphi Resources/Project1.exe.vmp | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/examples/scripts/Delphi Resources/Project1.exe.vmp b/examples/scripts/Delphi Resources/Project1.exe.vmp new file mode 100644 index 0000000..8045223 --- /dev/null +++ b/examples/scripts/Delphi Resources/Project1.exe.vmp @@ -0,0 +1,31 @@ +<?xml version="1.0" encoding="UTF-8" ?> +<Document> + <Protection InputFileName="Project1.exe" Options="32768" RunParameters=""> + <Folders /> + <Procedures> + <Procedure MapAddress='VMProtectMarker "Test marker"' Options="1" /> + <Procedure MapAddress='string "Correct password"' Options="1" /> + <Procedure MapAddress='string "Incorrect password"' Options="1" /> + </Procedures> + <Messages /> + </Protection> + <DLLBox /> + <Script> + <![CDATA[function OnBeforeSaveFile() + local file = vmprotect:core():outputArchitecture() + local rc_data = file:resources():itemByType(PE.RT_RCDATA) + if (rc_data) then + local names = {} + table.insert(names, "PACKAGEINFO") + table.insert(names, "DVCLAL") + for _, line in ipairs(names) do + local resource = rc_data:itemByName(line) + if (resource) then + print(string.format("Resource \"%s\" is deleted", line)) + resource:destroy() + end + end + end +end]]> +</Script> +</Document> |