.版本 2
 
.局部变量 字节集, 字节集
.局部变量 DLL, 字节集
.局部变量 映像基址, 整数型
.局部变量 映像大小, 整数型
.局部变量 区段, 区段信息
 
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
    字节集 ＝ 读入文件 (编辑框1.内容)
    DLL ＝ 读入文件 (编辑框2.内容)
    映像基址 ＝ 取映像基址 (字节集)
    映像大小 ＝ 取映像大小 (字节集)
    加区段 (字节集, “.test”, 取空白字节集 (取字节集长度 (#PELoad) ＋ 取字节集长度 (DLL)), #IMAGE_SCN_MEM_EXECUTE, 区段)
    ' push dll
    写PE数据 (字节集, 区段.实际地址, { 104 } ＋ 到字节集 (到整数 (映像基址 ＋ 区段.内存地址 ＋ 15 ＋ 取字节集长度 (#PELoad))))
    ' call load
    写PE数据 (字节集, 区段.实际地址 ＋ 5, { 232 } ＋ 到字节集 (到整数 (－(映像基址 ＋ 映像大小 ＋ 15) ＋ 映像基址 ＋ 区段.内存地址 ＋ 20)))
    ' jmp  入口
    写PE数据 (字节集, 区段.实际地址 ＋ 10, { 232 } ＋ 到字节集 (到整数 (－(映像基址 ＋ 映像大小 ＋ 15) ＋ 映像基址 ＋ 取入口地址 (字节集))))
 
    写PE数据 (字节集, 区段.实际地址 ＋ 15, #PELoad)
 
    写PE数据 (字节集, 区段.实际地址 ＋ 15 ＋ 取字节集长度 (#PELoad), DLL)
 
    置入口地址 (字节集, 区段.实际地址)
 
    ' 写出新的注入后的EXE文件
 
    .如果 (写到文件 (“注入后.exe”, 字节集))
        信息框 (“注入成功”, 0, , )
    .否则
        信息框 (“注入失败”, 0, , )
    .如果结束
 
.否则
    信息框 (“请填写相关资料”, #信息图标, “注入提示”, )