|
.版本 2
.支持库 shell
.程序集 函数
.子程序 汇编加法, 长整数型
.参数 a, 长整数型
.参数 b, 长整数型
置入代码 ({ 139, 69, 8, 3, 69, 16, 139, 85, 12, 19, 85, 20, 201, 194, 16, 0 })
返回 (0)
.子程序 读字节集, 字节集
.参数 内存地址, 长整数型
.参数 数据长度, 整数型
返回 (十六进制到字节集 (dm.ReadDataAddr (进程PID, 内存地址, 数据长度)))
.子程序 读字节型, 字节型
.参数 内存地址, 长整数型
返回 (取字节集数据 (读字节集 (内存地址, 1), #字节型, ))
.子程序 读小数型, 小数型
.参数 内存地址, 长整数型
返回 (取字节集数据 (读字节集 (内存地址, 4), #小数型, ))
.子程序 读整数型, 整数型
.参数 内存地址, 长整数型
返回 (取字节集数据 (读字节集 (内存地址, 3), #整数型, ))
.子程序 读长整数, 长整数型
.参数 内存地址, 长整数型
返回 (取字节集数据 (读字节集 (内存地址, 8), #长整数型, ))
.子程序 读文本型, 文本型
.参数 内存地址, 整数型
返回 (取字节集数据 (读字节集 (内存地址, 16), #文本型, ))
.子程序 写字节集, 整数型, 公开
.参数 PID, 整数型
.参数 地址, 长整数型
.参数 变量, 字节集
dm.VirtualProtectEx (PID, 地址, 取字节集长度 (变量), 0, 0)
返回 (dm.WriteDataAddr (PID, 地址, 字节集到十六进制 (变量)))
.子程序 取模块地址, 长整数型, 公开
.参数 Pid, 整数型
.参数 模块名字, 文本型
dm.OpenProcess (Pid)
dm.SetMemoryHwndAsProcessId (Pid)
返回 (dm.GetModuleBaseAddr (Pid, 模块名字))
.子程序 写长整数型, 长整数型, 公开
.参数 PID, 整数型
.参数 内存地址, 长整数型
.参数 写入地址, 长整数型
返回 (dm.WriteIntAddr (PID, 内存地址, 3, 写入地址))
.子程序 写短整数型, 短整数型, 公开
.参数 PID, 整数型
.参数 内存地址, 长整数型
.参数 写入地址, 长整数型
返回 (dm.WriteIntAddr (PID, 内存地址, 0, 写入地址))
.子程序 汇编减法, 长整数型
.参数 a, 长整数型
.参数 b, 长整数型
置入代码 ({ 139, 69, 8, 43, 69, 16, 139, 85, 12, 27, 85, 20, 201, 194, 16, 0 })
返回 (0)
.子程序 汇编乘法, 长整数型
.参数 a, 长整数型
.参数 b, 整数型
置入代码 ({ 86, 139, 117, 16, 51, 117, 12, 247, 69, 12, 0, 0, 0, 128, 116, 10, 247, 93, 12, 247, 93, 8, 131, 93, 12, 0, 247, 69, 16, 0, 0, 0, 128, 116, 3, 247, 93, 16, 139, 69, 16, 247, 101, 8, 82, 139, 200, 139, 69, 16, 247, 101, 12, 3, 4, 36, 247, 198, 0, 0, 0, 128, 116, 7, 247, 216, 247, 217, 131, 216, 0, 131, 196, 4, 94, 139, 208, 139, 193, 201, 194, 12, 0 })
返回 (0)
.子程序 监视热键, 逻辑型
.参数 键值, 整数型
.如果真 (位与 (GetAsyncKeyState (键值), 1) > 0)
返回 (真)
.如果真结束
返回 (假)
.子程序 强删文件, 逻辑型
.参数 文件名, 文本型
.局部变量 目录, 文本型
.局部变量 安全性结构, 安全性结构_
目录 = 取特定目录 (11) + 到文本 (取启动时间 ())
CreateDirectoryA (目录, 安全性结构)
CreateDirectoryA (目录 + “\....\”, 安全性结构)
MoveFileA (文件名, 目录 + “\....\TemporaryFile”)
MoveFileA (目录 + “\....\”, 目录 + “\TemporaryFile”)
删除目录 (目录)
返回 (取反 (文件是否存在 (文件名)))
|
|