JohnWho 107 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 Share this post Link to post
icarusdc 52 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. Share this post Link to post
kao 1,949 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 Share this post Link to post
JohnWho 107 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 Share this post Link to post