给任意EXE文件加Q群验证

.判断开始 (源文件 ≠ { })
映像基址 ＝ 取映像基址 (源文件)
映像大小 ＝ 取映像大小 (源文件)
加区段 (源文件, “.nx”, 取空白字节集 (取字节集长度 (#Load) ＋ 取字节集长度 (验证数据)), #区段属性_包含可执行代码, 区段)
写PE数据 (源文件, 区段.实际地址, { 104 } ＋ 到字节集 (到整数 (映像基址 ＋ 区段.内存地址 ＋ 15 ＋ 取字节集长度 (#Load)))) ' push dll
写PE数据 (源文件, 区段.实际地址 ＋ 5, { 232 } ＋ 到字节集 (到整数 (－(映像基址 ＋ 映像大小 ＋ 15) ＋ 映像基址 ＋ 区段.内存地址 ＋ 20))) ' call load
写PE数据 (源文件, 区段.实际地址 ＋ 10, { 233 } ＋ 到字节集 (到整数 (－(映像基址 ＋ 映像大小 ＋ 15) ＋ 映像基址 ＋ 取入口地址 (源文件)))) ' jmp 入口
写PE数据 (源文件, 区段.实际地址 ＋ 15, #Load)
写PE数据 (源文件, 区段.实际地址 ＋ 15 ＋ 取字节集长度 (#Load), 验证数据)
置入口地址 (源文件, 区段.内存地址)
.判断开始 (写到文件 (“验证已加.exe”, 源文件) ＝ 真)
编辑框1.内容 ＝ “已加验证，请查看当前目录”
.默认
编辑框1.内容 ＝ “防护失败”
易语言给任意EXE文件加Q群验证例子。