JohnWho Posted January 2, 2018 Posted January 2, 2018 I have been working on a EXE protector for a looooooooooooong time and in the process i have coded a lot of test functions, here is a first and very basic version of one of them. Instead of just sharing the code snippets i put the functions to use by showing it in action. The example does: 1). Add a new section to a 32-bit .exe 2). Change entry point to new section, 3). Add variables to layer encrypted function and encrypt the 5 layers 4). Write layer encrypted function to new section When target file is executed the 5 layers is decrypted, on last layer OEP is decrypted and jump is taken to OEP. All is simple xor encryption. Download: http://rgho.st/6br5xNtkL SimpleLayeredEncryption[DELPHI_7_SRC].rar 2
icarusdc Posted January 3, 2018 Posted January 3, 2018 I always got Error Invalid .exe. I compiled the source in Delphi 7. the target is clean x32 Delphi 7 app. my OS in win 7 x64. Salam.
kao Posted January 3, 2018 Posted January 3, 2018 This is so wrong in so many ways... var MZ: DWORD; ... ReadFile(FileHandle,MZ,2,BytesRead,NIL); if MZ<>$5A4D then begin ... 3 1
JohnWho Posted January 3, 2018 Author Posted January 3, 2018 7 hours ago, kao said: This is so wrong in so many ways... var MZ: DWORD; ... ReadFile(FileHandle,MZ,2,BytesRead,NIL); if MZ<>$5A4D then begin ... Oops, i rewrote a few things before uploading, hadn't slept for a long time 8 hours ago, icarusdc said: I always got Error Invalid .exe. I compiled the source in Delphi 7. the target is clean x32 Delphi 7 app. my OS in win 7 x64. Salam. Should be a quick fix looking at kao's reply 1
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now