Jump to content
Tuts 4 You

[DELPHI 7 SOURCE] Simple Layered Encryption


JohnWho

Recommended Posts

Posted

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

  • Like 2
Posted

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.

Posted

This is so wrong in so many ways... :kick:

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

 

  • Like 3
  • Thanks 1
Posted
7 hours ago, kao said:

This is so wrong in so many ways... :kick:


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 :D

 

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 :P

  • Thanks 1

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...