关于vpm壳授权作弊问题处理方案

墨影0620

前排提示：仅供新人学习，大神绕道！
取网络时间源码（此源码理论上windows倒闭的那天才会失效）：

  

窗口程序集名	保 留	保 留	备 注
取网络时间
变量名	类 型	数组	备 注
m_Data	文本型
m_ret	文本型

子程序名	返回值类型	公开	备 注
时间_取网络时间	日期时间型		直接调用系统获取网络时间的来获取最新的网络时间，不要频繁获取会卡的。建议每次获取间隔5秒左右。作者：祁辛

变量名	类 型	静态	数组	备 注
Eval	文本型
现行时间	日期时间型

httpWEB (“http://time.windows.com/”, m_ret)
' 调试输出 (m_ret)
m_Data ＝ 文本_取中间文本 (m_ret, “Date:”, “Content-Length:”)
m_Data ＝ 删首尾空 (m_Data)
' 输出调试文本 (m_Data)
Eval ＝ 子文本替换 ( #JS语句代码_网络时间, “[要替换的数据]”, m_Data, , , 真)
Eval ＝ 子文本替换 (Eval, #换行符, 字符 (32), , , 真)
' 调试输出 (Eval)
' 调试输出 (JavaScript取值 (Eval))
现行时间 ＝ 获取网络时间 (JavaScript取值 (Eval))
返回 (现行时间)

子程序名	返回值类型	公开	备 注
JavaScript取值	长整数型		返回时间戳
参数名	类 型	参考	可空	数组	备 注
EVAL	文本型

变量名	类 型	静态	数组	备 注
script	对象
returns	变体型

script.创建 (“scriptcontrol”, )
script.写属性 (“Language”, “JScript”)
script.通用方法 (“ExecuteStatement”, EVAL)
returns ＝ script.通用方法 (“Run”, “getmy”)
返回 (returns.取数值 ())

子程序名	返回值类型	公开	备 注
文本_取中间文本	文本型		根据指定内容返回中间文本
参数名	类 型	参考	可空	数组	备 注
src	文本型				原文本需要寻找的文本
left	文本型				要寻找的文本的左边
right	文本型				要寻找文本的右边

变量名	类 型	静态	数组	备 注
retstr	文本型
leftlen	整数型			左边文本的位置
rightlent	整数型			右边文本的位置

retstr ＝ “”
如果 (是否为空 (right))
rightlent ＝ 取文本长度 (src)  ' 如果未提供右边的文本那么默认到文本末尾
rightlent ＝ 寻找文本 (src, right, 1, 真)
leftlen ＝ 寻找文本 (src, left, 1, 真)
如果真 (leftlen ≠ -1 且 rightlent ≠ -1)
retstr ＝ 取文本中间 (src, leftlen ＋ 取文本长度 (left), rightlent ��� (leftlen ＋ 取文本长度 (left)))
返回 (retstr)

子程序名	返回值类型	公开	备 注
获取网络时间	日期时间型
参数名	类 型	参考	可空	数组	备 注
网络时间戳	长整数型

变量名	类 型	静态	数组	备 注
网络时间	日期时间型

网络时间 ＝ 增减时间 ([1970年1月1日8时], #秒, 网络时间戳 ÷ 1000)
' 调试输出 (网络时间)
返回 (网络时间)

子程序名	返回值类型	公开	备 注
httpWEB	字节集
参数名	类 型	参考	可空	数组	备 注
地址	文本型
返回的协yi头	文本型

变量名	类 型	静态	数组	备 注
httpObj	对象
Object	变体型
源代码	字节集

CoInitialize (0)
httpObj.创建 (“WinHttp.WinHttpRequest.5.1”, )
httpObj.方法 (“settimeouts”, 3000, 3000, 3000, 3000)
httpObj.通用方法 (“Open”, “GET”, 地址, 假, )
httpObj.方法 (“SetRequestHeader”, “Accept”, “application/json, text/javascript, */*”)
httpObj.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3”)
httpObj.方法 (“setRequestHeader”, “Charset”, “gb2312”)
httpObj.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko”)
httpObj.方法 (“Send”, )
如果真 (取反 (是否为空 (返回的协yi头)))
返回的协yi头 ＝ httpObj.读文本属性 (“GetAllResponseHeaders”, )
源代码 ＝ httpObj.读属性 (“responseBody”, ).取字节集 ()
httpObj.清除 ()
CoUninitialize ()
返回 (源代码)

.版本 2<br /> <br /> .程序集 取网络时间<br /> .程序集变量 m_Data, 文本型<br /> .程序集变量 m_ret, 文本型<br /> <br /> .子程序 时间_取网络时间, 日期时间型, 公开, 直接调用系统获取网络时间的来获取最新的网络时间，不要频繁获取会卡的。建议每次获取间隔5秒左右。作者：祁辛<br /> .局部变量 Eval, 文本型<br /> .局部变量 现行时间, 日期时间型<br /> <br /> httpWEB (“http://time.windows.com/”, m_ret)<br /> ' 调试输出 (m_ret)<br /> m_Data ＝ 文本_取中间文本 (m_ret, “Date:”, “Content-Length:”)<br /> m_Data ＝ 删首尾空 (m_Data)<br /> ' 输出调试文本 (m_Data)<br /> Eval ＝ 子文本替换 (#JS语句代码_网络时间, “[要替换的数据]”, m_Data, , , 真)<br /> Eval ＝ 子文本替换 (Eval, #换行符, 字符 (32), , , 真)<br /> ' 调试输出 (Eval)<br /> ' 调试输出 (JavaScript取值 (Eval))<br /> 现行时间 ＝ 获取网络时间 (JavaScript取值 (Eval))<br /> 返回 (现行时间)<br /> <br /> <br /> .子程序 JavaScript取值, 长整数型, , 返回时间戳<br /> .参数 EVAL, 文本型<br /> .局部变量 script, 对象<br /> .局部变量 returns, 变体型<br /> <br /> script.创建 (“scriptcontrol”, )<br /> script.写属性 (“Language”, “JScript”)<br /> script.通用方法 (“ExecuteStatement”, EVAL)<br /> returns ＝ script.通用方法 (“Run”, “getmy”)<br /> 返回 (returns.取数值 ())<br /> <br /> .子程序 文本_取中间文本, 文本型, , 根据指定内容返回中间文本<br /> .参数 src, 文本型, , 原文本需要寻找的文本<br /> .参数 left, 文本型, , 要寻找的文本的左边<br /> .参数 right, 文本型, 可空, 要寻找文本的右边<br /> .局部变量 retstr, 文本型<br /> .局部变量 leftlen, 整数型, , , 左边文本的位置<br /> .局部变量 rightlent, 整数型, , , 右边文本的位置<br /> <br /> retstr ＝ “”<br /> .如果 (是否为空 (right))<br />     rightlent ＝ 取文本长度 (src)  ' 如果未提供右边的文本那么默认到文本末尾<br /> .否则<br />     rightlent ＝ 寻找文本 (src, right, 1, 真)<br /> .如果结束<br /> leftlen ＝ 寻找文本 (src, left, 1, 真)<br /> .如果真 (leftlen ≠ -1 且 rightlent ≠ -1)<br />     retstr ＝ 取文本中间 (src, leftlen ＋ 取文本长度 (left), rightlent － (leftlen ＋ 取文本长度 (left)))<br /> .如果真结束<br /> 返回 (retstr)<br /> <br /> .子程序 获取网络时间, 日期时间型<br /> .参数 网络时间戳, 长整数型<br /> .局部变量 网络时间, 日期时间型<br /> <br /> 网络时间 ＝ 增减时间 ([1970年1月1日8时], #秒, 网络时间戳 ÷ 1000)<br /> ' 调试输出 (网络时间)<br /> 返回 (网络时间)<br /> <br /> .子程序 httpWEB, 字节集<br /> .参数 地址, 文本型<br /> .参数 返回的协yi头, 文本型, 参考 可空<br /> .局部变量 httpObj, 对象<br /> .局部变量 Object, 变体型<br /> .局部变量 源代码, 字节集<br /> <br /> CoInitialize (0)<br /> <br /> httpObj.创建 (“WinHttp.WinHttpRequest.5.1”, )<br /> httpObj.方法 (“settimeouts”, 3000, 3000, 3000, 3000)<br /> httpObj.通用方法 (“Open”, “GET”, 地址, 假, )<br /> httpObj.方法 (“SetRequestHeader”, “Accept”, “application/json, text/javascript, */*”)<br /> httpObj.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3”)<br /> httpObj.方法 (“setRequestHeader”, “Charset”, “gb2312”)<br /> httpObj.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko”)<br /> httpObj.方法 (“Send”, )<br /> .如果真 (取反 (是否为空 (返回的协yi头)))<br />     返回的协yi头 ＝ httpObj.读文本属性 (“GetAllResponseHeaders”, )<br /> .如果真结束<br /> 源代码 ＝ httpObj.读属性 (“responseBody”, ).取字节集 ()<br /> httpObj.清除 ()<br /> CoUninitialize ()<br /> 返回 (源代码)

下面觉大部分人应该清楚了，既然修改系统时间可以绕过授权验证。
那好！我不允许你系统时间和网络时间误差大于一小时。
（正常用电脑谁会允许自己电脑时间误差这么大呢）
比较损的办法就是自动同步网络时间，也就是过一段时间自动给他设置本机时间为网络时间。。。。
【反正我个人不建议使用这种方法】

至于如何防止被反编译。。。
咳咳，你确定你搞明白你是在问什么了么？vmp是干嘛的？就是防止反编译的啊喂！

原教程贴：https://bbs.125.la/forum.php?mod=viewthread&tid=13761829

@405817530 【此人估计已经退坑了】



补充内容 (2019-11-12 11:40):
然而我还是不会用。。。。

tclz720

66666666666666666666

嗯先生！

学习了            

立青

观摩，，，，，，，

丿低调彡

仅供新人学习