精易论坛

标题: 利用字节集的卡密生成 [打印本页]

作者: SAHI9099    时间: 2019-8-3 17:05
标题: 利用字节集的卡密生成
本帖最后由 SAHI9099 于 2019-8-3 17:17 编辑

虽然不知道这东西有啥卵用,不过还是按照我的思路给写出来了,给有需要的人



  
数据类型名公开备 注
卡密 
成员名类 型传址数组备 注
卡号文本型  
密钥文本型  

子程序名返回值类型公开备 注
卡密生成  
参数名类 型参考可空数组备 注
起始值整数型
结束值整数型
卡号前缀文本型
密钥长度字节型
混合密钥逻辑型
变量名类 型静态数组备 注
卡密卡密0
temp字节集 
i整数型 
k整数型 
j整数型 
j = 结束值 - 起始值 + 1
重定义数组 (卡密, 假, j)
temp = 取空白字节集 (密钥长度)
计次循环首 (j, i)
卡密 [i].卡号 = 卡号前缀 + 到文本 (起始值 + i - 1)
置随机数种子 ()
计次循环首 (密钥长度, k)
temp [k]多项选择 (选择 (混合密钥, 取随机数 (1, 3), 1), 取随机数 (48, 57), 取随机数 (65, 90), 取随机数 (97, 122))
计次循环尾 ()
卡密 [i].密钥 = 到文本 (temp)
' 输出调试文本 (卡密 [i].卡号 + “ ” + 卡密 [i].密钥)
计次循环尾 ()


作者: 一剑磨十年    时间: 2019-8-3 17:52
支持分享 感谢开源
作者: 枫晨    时间: 2019-8-3 18:58
看看效果如何   
作者: 四叶草接单    时间: 2019-8-3 22:40
你这个卡密完全随机生成呀,内部没有验证位的么,这样不够科学吧
作者: SAHI9099    时间: 2019-8-4 01:38
本帖最后由 SAHI9099 于 2019-8-4 01:43 编辑
四叶草接单 发表于 2019-8-3 22:40
你这个卡密完全随机生成呀,内部没有验证位的么,这样不够科学吧

还有验证位啊,那我闲了给他加进去,可是我也没见到类似源码里有这个验证位啊,具体有啥原理资料可以发我做参考么
作者: SAHI9099    时间: 2019-8-4 03:16
本帖最后由 SAHI9099 于 2019-8-4 03:21 编辑
SAHI9099 发表于 2019-8-4 01:38
还有验证位啊,那我闲了给他加进去,可是我也没见到类似源码里有这个验证位啊,具体有啥原理资料可以发我 ...

刚写好,你瞅瞅是不是你说的那种带标志位的,这样可以省略掉卡号,但是带卡号的也不需要给密码设置标志位啊,可以在卡号前缀里设置

  
子程序名返回值类型公开备 注
密钥生成文本型 
参数名类 型参考可空数组备 注
密钥长度字节型
混合密钥逻辑型
卡密类型字节型0'临时卡 1'日卡 2'周卡 3'月卡 4'年卡 5'终身卡
变量名类 型静态数组备 注
temp字节集 
k整数型 
j整数型 
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))

计次循环尾 ()
返回 (到文本 (temp))


作者: AP小塔    时间: 2019-8-4 08:58
66666666666666
作者: 外星星人    时间: 2019-8-4 13:37
支持分享 感谢开源
作者: 四叶草接单    时间: 2019-8-4 14:35
SAHI9099 发表于 2019-8-4 01:38
还有验证位啊,那我闲了给他加进去,可是我也没见到类似源码里有这个验证位啊,具体有啥原理资料可以发我 ...

具体原理就跟条形码一样,条形码最后一位就是前面各个数字的加和验证位。这样做的作用是可以在对比密钥之前验证密钥是否有效密钥,验证位的算法自己随意选择就行了
作者: SAHI9099    时间: 2019-8-5 07:50
四叶草接单 发表于 2019-8-4 14:35
具体原理就跟条形码一样,条形码最后一位就是前面各个数字的加和验证位。这样做的作用是可以在对比密钥之 ...

了解了,上次研究了一款单机游戏的仓库道具的字节组,原理也比较类似,利用二进制位,随机取两个字节并合并共有十六位,十位做效验,四位做标识,感觉可以秒杀很多的开源呢
作者: SAHI9099    时间: 2019-8-5 08:51
四叶草接单 发表于 2019-8-4 14:35
具体原理就跟条形码一样,条形码最后一位就是前面各个数字的加和验证位。这样做的作用是可以在对比密钥之 ...

一个小东西引发的天坑。。那么问题来了,我该怎么自创效验算法嘞?莫非是要研究一遍密码学么?
作者: SAHI9099    时间: 2019-8-5 09:57
本帖最后由 SAHI9099 于 2019-8-5 10:00 编辑
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 = 效验值)


作者: 四叶草接单    时间: 2019-8-5 20:40
SAHI9099 发表于 2019-8-5 08:51
一个小东西引发的天坑。。那么问题来了,我该怎么自创效验算法嘞?莫非是要研究一遍密码学么?

算法一大堆呀,最基本的就是加减乘除呀,然后就是进制转换啦,再想复杂点就md5,sha256等等编码,反正自己确定就行
作者: tellmesy    时间: 2019-10-20 16:16
看看了      
作者: duisir    时间: 2021-5-5 15:55
66666666666666666666666666666666
作者: BIG牛肉面    时间: 2021-5-7 06:29
感谢分享,很给力!~
作者: zxc599    时间: 2021-5-7 06:42
刚好需要 学习了




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4