夜幕源码

上古之力吊炸天

.版本 2
.支持库 EThread
.支持库 spec

.程序集 登录_程序集

.子程序 _启动子程序, 整数型

加载驱动保护 ()
验证初始化 ()
' 死循环防止退出 ()
返回 (0)

.子程序 验证初始化
.局部变量 是否登录成功, 逻辑型
.局部变量 验证结果文本, 文本型
.局部变量 A111, 整数型

置入代码 (#VM开始)
版本号 ＝ 212
验证_初始化 (字符 (13 ＋ 37) ＋ 到文本 (到整数 (取反 (假)) × 8 ÷ 4) ＋ 字符 (36 ＋ 13) ＋ 字符 (12 ＋ 34) ＋ 到文本 (47 × 0 ＋ 2) ＋ 到文本 (18 × 0 ＋ 2) ＋ 字符 (取代码 (“9”, )) ＋ 字符 (取代码 (“.”, )) ＋ 到文本 (5 × 0 ＋ 1) ＋ 到文本 (644 ÷ 92) ＋ 到文本 (右移 (2560, 9)) ＋ 字符 (右移 (92, 1)) ＋ 到文本 (到整数 (“5”)), 到整数 (字符 (50) ＋ 到文本 (到整数 (取反 (假)) × 728 ÷ 91) ＋ 到文本 (到整数 (“7”)) ＋ 字符 (52) ＋ 到文本 (32 × 0 ＋ 7)), 版本号)

标准输出 (, “欢迎使用夜幕 - 请登录     版本号Ver：” ＋ 到文本 (版本号) ＋ 字符 (10))
标准输出 (, “_________________________________________________________________” ＋ 字符 (10))
标准输出 (, “公告：” ＋ 到文本 (文件_下载服务器文件 (“公告.txt”)) ＋ 字符 (10))
标准输出 (, “_________________________________________________________________” ＋ 字符 (10))

标准输出 (, “卡密粘贴方法：右键上方标题 —— 编辑——粘贴” ＋ 字符 (10))

.如果 (读配置项 (“C:\YeMu.ini”, “程序配置”, “卡号”, ) ≠ “”)
    标准输出 (, “上一次登录的卡号:”)
    标准输出 (, 读配置项 (“C:\YeMu.ini”, “程序配置”, “卡号”, ) ＋ 字符 (10))
    标准输出 (, “回车直接登录上次卡号，如需换卡请输入新卡号并按回车：”)

.否则
    标准输出 (, “输入你购买的卡号，按回车确认：”)
.如果结束

卡号 ＝ 标准输入 ()
.如果真 (取文本长度 (卡号) ≠ 32)
    卡号 ＝ 读配置项 (“C:\YeMu.ini”, “程序配置”, “卡号”, )
.如果真结束

是否登录成功 ＝ 验证_卡登录 (卡号, 验证结果文本)
.如果 (是否登录成功)
    置入代码 (#易之盾开始)  ' 这3句就是企业版防破解代码，  先执行。
    验证_易之盾 ()
    置入代码 (#易之盾结束)  ' 非正常用户，卡死在这。 不会执行下去。
    B1 ＝ 98763312
    ' 登陆成功＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
    写配置项 (“C:\YeMu.ini”, “程序配置”, “卡号”, 卡号)  ' 记住用户
    置现行时间 (到时间 (验证_读验证返回数据 (#验证返回_登录时间)))
    启动线程 (&二次校验, , A111)
    模块_关闭对象 (A111)
    ' 写到文件 (取特定目录 (11) ＋ “必看说明.txt”, 到字节集 (到文本 (文件_下载服务器文件 (“登录成功提示文本.txt”))))
    ' 运行 (“cmd /c start ” ＋ 取特定目录 (11) ＋ “必看说明.txt”, 假, )
    标准输出 (, 字符 (10) ＋ “正在查询充值卡......卡类型：” ＋ 文本_取出中间文本 (验证_查询信息 (卡号), “卡号类型:”, “,激活时间:”, ) ＋ “  到期时间：” ＋ 文本_取出中间文本 (验证_查询信息 (卡号), “到期时间:”, “秒”) ＋ “秒” ＋ 字符 (10) ＋ 字符 (10))
    控制台_置标输出颜色 (1, 真)
    标准输出 (, “初始化成功，请进入游戏，此界面可以最小化，但是不能关闭   :）” ＋ 字符 (10))
    控制台_置标输出颜色 (2, 真)
    标准输出 (, “初始化成功，请进入游戏，此界面可以最小化，但是不能关闭   :）” ＋ 字符 (10))
    控制台_置标输出颜色 (4, 真)
    标准输出 (, “初始化成功，请进入游戏，此界面可以最小化，但是不能关闭   :）” ＋ 字符 (10))

    启动辅助 ()

.否则
    ' 登陆失败＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
    标准输出 (, 验证结果文本)
    标准输入 ()
.如果结束
置入代码 (#VM结束)


.子程序 二次校验
.局部变量 Aaaa, 整数型

置入代码 (#VM开始)

.判断循环首 (Aaaa ≠ -111)
    .计次循环首 (5, )
        .计次循环首 (60, )
            延迟 (1000)
        .计次循环尾 ()
    .计次循环尾 ()


    .如果真 (验证_频率验证 (, 真) ＝ 假)
        置入代码 ({ 93, 184, 1, 1, 0, 0, 186, 0, 3, 254, 127, 255, 18, 194, 8, 0 })
        结束 ()
    .如果真结束

    .如果真 (验证_是否异地登陆 ())
        置入代码 ({ 93, 184, 1, 1, 0, 0, 186, 0, 3, 254, 127, 255, 18, 194, 8, 0 })
        结束 ()
    .如果真结束

.判断循环尾 ()

置入代码 (#VM结束)


.子程序 加载驱动保护
.局部变量 装载DLL句柄, 整数型



提升进程权限D2 ()

' 写到文件 (取运行目录 () ＋ “\Zero.dll”, #Sys)
' 置文件属性 (取运行目录 () ＋ “\Zero.dll”, #隐藏文件)

' 装载DLL句柄 ＝ LoadLibraryA (“Zero.dll”)
.判断开始断 (装载DLL句柄 ≠ 0)
    ' 标准输出 (, “dll装载成功”)
.默认
    ' 标准输出 (, “dll装载失败”)
.判断结束
' 标准输入 ()
' Initialization函数地址 ＝ DLL.取库函数地址 (“Zero.dll”, “Initialization”)
.判断开始断 (DLL.调用库函数2 (Initialization函数地址, 722913, 到数值 (取现行时间 ())) ＝ 1)
    ' ProcessProtect ()
.默认
    ' 标准输出 (, “驱动加载失败”)

.判断结束
' 标准输入 ()



补充内容 (2018-2-27 14:14):
字数太多发图片

版权声明

1、本站提供的一切软件、教程和内容信息仅限用于学习和研究目的

2、不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。

3、本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑或手机中彻底删除上述内容。

4、如果您喜欢该程序，请支持正版，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。敬请谅解！。

本文地址: https://1fzdao.com/thread-17584-1-1.html

孤丶脩

    我真不知道说神魔了，，

上古之力吊炸天

孤丶脩 发表于 2018-2-27 14:00
我真不知道说神魔了，，

为何呢？为何呢？为何呢？

上古之力吊炸天

内容已经被我删除

补充内容 (2018-2-27 14:14):
字数太多了

上古之力吊炸天

.版本 2
.支持库 eAPI
.支持库 spec

.程序集 功能_程序集
.程序集变量 zmDis, 小数型, , "100"
.程序集变量 zmZB, 整数型, , "100"
.程序集变量 窗口X, 整数型
.程序集变量 窗口Y, 整数型
.程序集变量 计次peo, 整数型
.程序集变量 客户区, 矩形_
.程序集变量 键速, 整数型
.程序集变量 exeBase, 整数型
.程序集变量 aimIndex, 整数型
.程序集变量 scrY, 整数型
.程序集变量 scrX, 整数型, , , 1
.程序集变量 总视距, 小数型
.程序集变量 摄像机6, 小数型, , "3"
.程序集变量 摄像机9, 小数型, , "9"
.程序集变量 我的坐标, 小数型, , "3"
.程序集变量 CheckIndex, 整数型
.程序集变量 窗口坐标, 矩形_
.程序集变量 hWnd, 整数型
.程序集变量 je, 字节集
.程序集变量 jnz, 字节集
.程序集变量 游戏窗口句柄, 整数型
.程序集变量 选中, 整数型
.程序集变量 进程ID, 整数型

.子程序 载入辅助
.局部变量 abc, 整数型, , "0"
.局部变量 o, 整数型
.局部变量 i, 整数型
.局部变量 xxx, 模块信息型, , "0"


提升进程权限D2 ()

.判断循环首 (真)
    .如果真 (进程是否存在 (“hyxd.exe”))
        进程ID ＝ 取进程ID (“hyxd.exe”)
        跳出循环 ()
    .如果真结束
    Sleep (500)
.判断循环尾 ()

exeBase ＝ 追风_取模块句柄 (取进程ID (“hyxd.exe”), “hyxd.exe”)


取句柄数组 (abc, “hyxd.exe”, , )
.计次循环首 (取数组成员数 (abc), o)
    .如果真 (寻找文本 (取窗口标题 (abc [o]), “荒野行动”, , 假) ≠ -1)
        游戏窗口句柄 ＝ abc [o]
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

je ＝ { 116 }
jnz ＝ { 117 }
选中 ＝ 1
显示菜单 ＝ 真
显示车辆 ＝ 真
显示方框 ＝ 真
显示距离 ＝ 真
绘制线条 ＝ 真
右键自瞄 ＝ 真
显示空投 ＝ 真
子弹穿图 ＝ 假
显示物品 ＝ 真
方框背景 ＝ 真
D3D透视 ＝ 假
颜色文本 ＝ “蓝红”

刷新窗口 ()
窗口创建 (取窗口宽度 (游戏窗口句柄), 取窗口高度 (游戏窗口句柄), &全局挂接, hWnd)
消息循环 ()

.子程序 刷新窗口

取窗口矩形_ (游戏窗口句柄, 窗口坐标)
取客户区矩形_ (游戏窗口句柄, 客户区)
窗口X ＝ 窗口坐标.左边 ＋ 客户区.左边
窗口Y ＝ 窗口坐标.顶边 ＋ 客户区.顶边

.子程序 全局挂接

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' 保护开始
主挂接 ()
刷新窗口 ()
移动窗口 (hWnd, 窗口坐标.宽度 － 客户区.宽度 － 客户区.左边 － 8, 窗口坐标.高度 － 客户区.高度 － 客户区.顶边 － 30, 客户区.宽度 － 客户区.左边 ＋ 14, 客户区.高度 － 客户区.顶边 ＋ 38, 真)
SetWindowPos (hWnd, -1, 100, 100, 1024, 768, 3)
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' vmp保护标志尾

.子程序 绘制荧光字
.参数 文本, 文本型
.参数 x, 整数型
.参数 y, 整数型
.参数 字色, 整数型
.参数 荧光色, 整数型



绘制文本 (文本, x ＋ 1, y, 荧光色)
' 绘制文本 (文本, x － 1, y, 荧光色)
绘制文本 (文本, x, y ＋ 1, 荧光色)
' 绘制文本 (文本, x, y － 1, 荧光色)
绘制文本 (文本, x, y, 字色)


.子程序 主挂接
.局部变量 当前y, 整数型
.局部变量 当前x, 整数型
.局部变量 time, 整数型
.局部变量 iOK, 整数型
.局部变量 iA, 小数型
.局部变量 iB, 小数型
.局部变量 iSmall, 小数型
.局部变量 计次, 整数型
.局部变量 坐标, 坐标
.局部变量 iOKindex, 整数型


键速 ＝ 键速 ＋ 1
.如果真 (键速 ＞ 6)
    键速 ＝ 0
    热键应用 ()
.如果真结束


.如果 (判断按键状态 (#V键))

    .如果 (系统_是否64位操作系统 ())
        写内存字节集 (进程ID, exeBase ＋ 13049104, je, 1)
        写内存字节集 (进程ID, exeBase ＋ 13049091, jnz, 1)
    .否则

        写内存字节集 (进程ID, exeBase ＋ 13049104, je, 1)
        写内存字节集 (进程ID, exeBase ＋ 13049091, jnz, 1)
    .如果结束

.否则


    .如果 (系统_是否64位操作系统 ())
        写内存字节集 (进程ID, exeBase ＋ 13049104, jnz, 1)
        写内存字节集 (进程ID, exeBase ＋ 13049091, je, 1)
    .否则

        写内存字节集 (进程ID, exeBase ＋ 13049104, jnz, 1)
        写内存字节集 (进程ID, exeBase ＋ 13049091, je, 1)
    .如果结束

.如果结束
.如果 (判断按键状态 (#Q键))
    写内存字节集 (进程ID, exeBase ＋ 6416086, { 243, 15, 88, 200 })

.否则
    写内存字节集 (进程ID, exeBase ＋ 6416086, { 243, 243, 99, 30 })  ' 除草
.如果结束


绘制菜单 ()
CheckIndex ＝ 0
计次peo ＝ 0
附送_人物坐标 ()
摄像机信息 ()
遍历周围对象 ()

iSmall ＝ 160
iOKindex ＝ 1
iA ＝ 0
iB ＝ 0
.如果真 (aimIndex ＝ 0)
    .如果 (CheckIndex ≠ 0)
        .计次循环首 (CheckIndex － 1, 计次)
            iA ＝ zmDis [计次]
            iB ＝ zmDis [计次 ＋ 1]
            .如果 (iA ＞ iB)
                .如果真 (iSmall ＞ iB)
                    iSmall ＝ iB
                    iOKindex ＝ 计次 ＋ 1
                .如果真结束

            .否则
                .如果真 (iSmall ＞ iA)
                    iSmall ＝ iA
                    iOKindex ＝ 计次
                .如果真结束

            .如果结束

        .计次循环尾 ()
        aimIndex ＝ zmZB [iOKindex]
    .否则
        aimIndex ＝ 0
    .如果结束

.如果真结束

MovPos ()

.如果真 (进程是否存在 (“hyxd.exe”) ＝ 假)
    调试输出 (“结束”)
    结束 ()
.如果真结束


Sleep (1)



.子程序 绘制菜单
.局部变量 xd, 整数型
.局部变量 hy, 整数型


xd ＝ 0
hy ＝ 22
' 绘制矩形 (80, 280, 100, 300+pc*py, 2, RGBTOARGB (#黄色))
绘制文本 (“子弹穿图: 菜单开启了后,自瞄锁定的时候自动生效”, 取窗口宽度 (hWnd) ÷ 5, 取窗口高度 (hWnd) × 0.95 － 25, RGBTOARGB (#黄色))
绘制文本 (“激光无后: 切换成拳头,按住V键然后 1 切出枪械,松开V键”, 取窗口宽度 (hWnd) ÷ 5, 取窗口高度 (hWnd) × 0.95 － 5, RGBTOARGB (#黄色))
.如果 (显示菜单)
    绘制图片 (80, 300, 170, 18, RGBTOARGB (#黑色, 160))  ' 标题背景
    绘制矩形 (80, 300, 170, 18, 1, RGBTOARGB (#黑色))  ' 标题栏
    绘制荧光字 (“夜幕 - Hyxd”, 135, 302 ＋ hy × xd, RGBTOARGB (#白色), RGBTOARGB (#黑色))

    绘制图片 (80, 318, 170, 270, RGBTOARGB (#黑色, 160))  ' 功能背景
    绘制矩形 (80, 298 ＋ 选中 × hy, 170, 18, 1, RGBTOARGB (#蓝色, 180))  ' 选择栏
    绘制矩形 (80, 318, 170, 270, 1, RGBTOARGB (#黑色))  ' 功能栏
    xd ＝ xd ＋ 1
    绘制图片 (85, 303 ＋ hy × xd, 8, 8, 选择 (显示方框, RGBTOARGB (#绿色), RGBTOARGB (#红色)))
    绘制荧光字 (“显示方框”, 100, 300 ＋ hy × xd, 选择 (选中 ＝ 1, RGBTOARGB (#天蓝), RGBTOARGB (#白色)), RGBTOARGB (#黑色))
    绘制荧光字 (选择 (显示方框, “打开”, “关闭”), 220, 300 ＋ hy × xd, RGBTOARGB (#白色), RGBTOARGB (#黑色))
    xd ＝ xd ＋ 1
    绘制图片 (85, 303 ＋ hy × xd, 8, 8, 选择 (方框背景, RGBTOARGB (#绿色), RGBTOARGB (#红色)))
    绘制荧光字 (“方框背景”, 100, 300 ＋ hy × xd, 选择 (选中 ＝ 2, RGBTOARGB (#天蓝), RGBTOARGB (#白色)), RGBTOARGB (#黑色))
    绘制荧光字 (选择 (方框背景, “打开”, “关闭”), 220, 300 ＋ hy × xd, RGBTOARGB (#白色), RGBTOARGB (#黑色))
    xd ＝ xd ＋ 1
    绘制图片 (85, 303 ＋ hy × xd, 8, 8, 选择 (显示距离, RGBTOARGB (#绿色), RGBTOARGB (#红色)))
    绘制荧光字 (“显示距离”, 100, 300 ＋ hy × xd, 选择 (选中 ＝ 3, RGBTOARGB (#天蓝), RGBTOARGB (#白色)), RGBTOARGB (#黑色))
    绘制荧光字 (选择 (显示距离, “打开”, “关闭”), 220, 300 ＋ hy × xd, RGBTOARGB (#白色), RGBTOARGB (#黑色))
    xd ＝ xd ＋ 1

上古之力吊炸天

C:\Users\Administrator\Pictures\1先这么多太麻烦了

孤丶脩

  所以 直接文件源码 不就好了