利用字节集的卡密生成

外星星人

支持分享 感谢开源

AP小塔

66666666666666

SAHI9099

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))

.版本 2<br /> <br /> .子程序 密钥生成, 文本型<br /> .参数 密钥长度, 字节型<br /> .参数 混合密钥, 逻辑型, 可空<br /> .参数 卡密类型, 字节型, 可空, 0'临时卡 1'日卡 2'周卡 3'月卡 4'年卡 5'终身卡<br /> .局部变量 temp, 字节集<br /> .局部变量 k, 整数型<br /> .局部变量 j, 整数型<br /> <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 /> <br /> .计次循环尾 ()<br /> 返回 (到文本 (temp))

SAHI9099

四叶草接单 发表于 2019-8-3 22:40
你这个卡密完全随机生成呀，内部没有验证位的么，这样不够科学吧

还有验证位啊，那我闲了给他加进去，可是我也没见到类似源码里有这个验证位啊，具体有啥原理资料可以发我做参考么

四叶草接单

你这个卡密完全随机生成呀，内部没有验证位的么，这样不够科学吧

枫晨

看看效果如何   

一剑磨十年

支持分享 感谢开源