极语言7-15 江湖暴破

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键{左键点击(参数)}
否则{处理窗口(窗口,消息,参数,数据)}
结束;
整数 数一=$FC558B2B,数二=$8343;
文本 路径[64];文件框类 文件框(长度=76,路长=64);
小程序 窗体启动

文件框.路径=路径;
文件框.分类 = "程序文件'\0'*.exe'\0'";
按钮复选(窗体,1,1)
桌面.左=窗体
读取消息

结束;
小程序 左键点击(整数 编号)

判断(编号)
为 1{数一=$FC558B2B;数二=$8343}
为 2{数一=$C6834732;数二=$8350}
为 3查找内存

结束;
小程序 查找内存

整数 文件,长度=$400000,缓冲,指针=235,序号
如果(文件选框(文件框))
{文件 = 开文件(路径,2);
缓冲=申请内存(长度);
读文件(文件,缓冲,长度)
序号=检索(缓冲,116,长度)=(数一=#0 而且 数二=#[4])
    如果(序号>0)
    {
    流定位(文件,序号,0)
    写文件(文件,@指针,1)
    信息框(0,"破解成功","提示",$40)    
    }
    否则 信息框(0,"未找到特征码","提示",$10)
释放内存(缓冲)关文件(文件)
}

结束;