易语言PE永久注入

511遇见

易语言PE永久注入源码:

.版本 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, , )
    .如果结束
 
.否则
    信息框 (“请填写相关资料”, #信息图标, “注入提示”, )

教程获取下载:


发布日期:

所属分类: 易语言 标签: