加壳原理与简单实现加壳

最新推荐文章于 2025-05-12 10:04:45 发布

iiprogram

最新推荐文章于 2025-05-12 10:04:45 发布

阅读量1.7k

点赞数

分类专栏：病毒汇编和调试逆向技术加脱壳 vcbcbdelphi的window编程文章标签： integer file button 加密 image byte

本文链接：https://blog.youkuaiyun.com/iiprogram/article/details/2654074

版权

该博客介绍了一种简易的PE文件加壳方法，通过修改EXE文件的启动入口点，增加壳头代码并进行加密操作。代码示例展示了如何在Delphi环境下实现这个过程，包括增加新的区块、填充数据、修改入口点和区段属性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

{*****************************************************************
AddShell（）源自于前一段时间有写的addsection（）新增区段代码，
在增加区段代码的基础上，追加了
1.修改启动入口点位置
2.增加一段壳头xor $50的代码function AttachStart-function AttachEnd
这一段代码是先填充，再被修改成合适原EXE的壳头
3.修改原启动代码入口点所在区段的段属性可写并进行xor $50运算加密

不支持addshell（）处理已经过addshell的exe
*****************************************************************}

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1 : TForm1;

implementation

{$R *.dfm}
function AttachStart: dword; stdcall;   //我们定义的待填充数据
asm
       pushfd
       pushad
       mov eax,$12345678      //将会被自动计算并修改为加密初始地址
       mov ebx,$1234          //将会被自动计算并修改为加密大小
       mov ecx,0
       @AA:
       xor byte ptr[eax],$50
       inc eax
       inc ecx
       cmp ecx,ebx
       jbe @aa
       popad
       popfd
       push $12345678        //将会被自动计算并修改为原OEP
       ret
end;

function AttachEnd: dword; stdcall;
begin
end;

{-------------------------增加区块并实现简易加壳--------------------------------}
procedure AddShell(lFileName: string; lBackup: boolean); //打开exe文件,是否备份
var
hFile             : THandle;          //文件句柄
ImageDosHeader    : IMAGE_DOS_HEADER; //DOS部首
ImageNtHeaders    : IMAGE_NT_HEADERS; //映象头
ImageSectionHeader: IMAGE_SECTION_HEADER; //块表
lPointerToRawData : dword;            //指向文件中的偏移
lVirtualAddress   : dword;            //指向内存中的偏移
i                 : integer;          //循环变量
BytesRead, ByteSWrite: Cardinal;

最低0.47元/天解锁文章