SAHI9099 发表于 2019-8-5 08:51
一个小东西引发的天坑。。那么问题来了，我该怎么自创效验算法嘞？莫非是要研究一遍密码学么？

哦了哦了

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

防伪验证 (密钥生成 (真, 1))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
密钥生成	文本型
参数名	类 型	参考	可空	数组	备 注
混合密钥	逻辑型
卡密类型	字节型				0'临时卡 1'日卡 2'周卡 3'月卡 4'年卡 5'终身卡

变量名	类 型	静态	数组	备 注
密钥长度	字节型
temp	字节集
k	整数型
j	整数型
a	长整数型

密钥长度 ＝ 32 － 1
temp ＝ 取空白字节集 (密钥长度)
置随机数种子 ()
计次循环首 (密钥长度, k)
判断 (k ＝ 1)
temp [1] ＝ 取随机数 (50, 选择 (密钥长度 ＞ 9, 57, 密钥长度 ＋ 48))  ' 创建标志位的随机存储地址
j ＝ temp [1] － 48
输出调试文本 (“标志位地址：” ＋ 到文本 (j))
判断 (k ＝ j)
temp [k] ＝ 48 ＋ 卡密类型
输出调试文本 (“标志数值：” ＋ 到文本 (temp [k] － 48))
temp [k] ＝ 多项选择 (选择 (混合密钥, 取随机数 (1, 3), 1), 取随机数 (48, 57), 取随机数 (65, 90), 取随机数 (97, 122))
a ＝ a ＋ temp [k]
计次循环尾 ()
如果真 (a ％ 2 ≠ 0)
a ＝ a × 3
a ＝ a ％ 10
输出调试文本 (“密钥：” ＋ 到文本 (a) ＋ 到文本 (temp))
返回 (到文本 (a) ＋ 到文本 (temp))

子程序名	返回值类型	公开	备 注
防伪验证	逻辑型
参数名	类 型	参考	可空	数组	备 注
密钥	文本型

变量名	类 型	静态	数组	备 注
key	字节集
i	整数型
k	整数型
效验值	字节型

如果 (删全部空 (密钥) ＝ “”)
返回 (假)
key ＝ 到字节集 (密钥)
效验值 ＝ key [1] － 48
key ＝ 取字节集右边 (key, 取字节集长度 (key) － 1)
计次循环首 (取字节集长度 (key), i)
k ＝ k ＋ key [i]
计次循环尾 ()如果真 (k ％ 2 ≠ 0)
k ＝ k × 3
k ＝ k ％ 10
输出调试文本 (“正品密钥：” ＋ 到文本 (k ＝ 效验值))
输出调试文本 (“标记数值：” ＋ 字符 (key [key [1] － 48]))
返回 (k ＝ 效验值)

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 防伪验证 (密钥生成 (真, 1))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 密钥生成, 文本型<br /> .参数 混合密钥, 逻辑型, 可空<br /> .参数 卡密类型, 字节型, 可空, 0'临时卡 1'日卡 2'周卡 3'月卡 4'年卡 5'终身卡<br /> .局部变量 密钥长度, 字节型<br /> .局部变量 temp, 字节集<br /> .局部变量 k, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 a, 长整数型<br /> <br /> 密钥长度 ＝ 32 － 1<br /> temp ＝ 取空白字节集 (密钥长度)<br /> 置随机数种子 ()<br /> .计次循环首 (密钥长度, k)<br />     .判断开始 (k ＝ 1)<br />         temp [1] ＝ 取随机数 (50, 选择 (密钥长度 ＞ 9, 57, 密钥长度 ＋ 48))  ' 创建标志位的随机存储地址<br />         j ＝ temp [1] － 48<br />         输出调试文本 (“标志位地址：” ＋ 到文本 (j))<br />     .判断 (k ＝ j)<br />         temp [k] ＝ 48 ＋ 卡密类型<br />         输出调试文本 (“标志数值：” ＋ 到文本 (temp [k] － 48))<br />     .默认<br />         temp [k] ＝ 多项选择 (选择 (混合密钥, 取随机数 (1, 3), 1), 取随机数 (48, 57), 取随机数 (65, 90), 取随机数 (97, 122))<br />     .判断结束<br />     a ＝ a ＋ temp [k]<br /> <br /> .计次循环尾 ()<br /> .如果真 (a ％ 2 ≠ 0)<br />     a ＝ a × 3<br /> .如果真结束<br /> a ＝ a ％ 10<br /> 输出调试文本 (“密钥：” ＋ 到文本 (a) ＋ 到文本 (temp))<br /> 返回 (到文本 (a) ＋ 到文本 (temp))<br /> <br /> .子程序 防伪验证, 逻辑型<br /> .参数 密钥, 文本型<br /> .局部变量 key, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 效验值, 字节型<br /> <br /> .如果 (删全部空 (密钥) ＝ “”)<br />     返回 (假)<br /> .否则<br />     key ＝ 到字节集 (密钥)<br />     效验值 ＝ key [1] － 48<br />     key ＝ 取字节集右边 (key, 取字节集长度 (key) － 1)<br /> .如果结束<br /> .计次循环首 (取字节集长度 (key), i)<br />     k ＝ k ＋ key <i><br /> .计次循环尾 ()<br /> .如果真 (k ％ 2 ≠ 0)<br />     k ＝ k × 3<br /> .如果真结束<br /> k ＝ k ％ 10<br /> 输出调试文本 (“正品密钥：” ＋ 到文本 (k ＝ 效验值))<br /> 输出调试文本 (“标记数值：” ＋ 字符 (key [key [1] － 48]))<br /> 返回 (k ＝ 效验值)

刚好需要 学习了

感谢分享，很给力！~

66666666666666666666666666666666

看看了      

SAHI9099 发表于 2019-8-5 08:51
一个小东西引发的天坑。。那么问题来了，我该怎么自创效验算法嘞？莫非是要研究一遍密码学么？

算法一大堆呀，最基本的就是加减乘除呀，然后就是进制转换啦，再想复杂点就md5，sha256等等编码，反正自己确定就行

四叶草接单 发表于 2019-8-4 14:35
具体原理就跟条形码一样，条形码最后一位就是前面各个数字的加和验证位。这样做的作用是可以在对比密钥之 ...

一个小东西引发的天坑。。那么问题来了，我该怎么自创效验算法嘞？莫非是要研究一遍密码学么？

四叶草接单 发表于 2019-8-4 14:35
具体原理就跟条形码一样，条形码最后一位就是前面各个数字的加和验证位。这样做的作用是可以在对比密钥之 ...

了解了，上次研究了一款单机游戏的仓库道具的字节组，原理也比较类似，利用二进制位，随机取两个字节并合并共有十六位，十位做效验，四位做标识，感觉可以秒杀很多的开源呢

SAHI9099 发表于 2019-8-4 01:38
还有验证位啊，那我闲了给他加进去，可是我也没见到类似源码里有这个验证位啊，具体有啥原理资料可以发我 ...

具体原理就跟条形码一样，条形码最后一位就是前面各个数字的加和验证位。这样做的作用是可以在对比密钥之前验证密钥是否有效密钥，验证位的算法自己随意选择就行了