[DELPHI 7 SOURCE] Simple Layered Encryption

[JohnWho 106]

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

[icarusdc 52]

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 1,847]

This is so wrong in so many ways... 

var
  MZ: DWORD;
...
  ReadFile(FileHandle,MZ,2,BytesRead,NIL);
  if MZ<>$5A4D then begin
...

 

[JohnWho 106]

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