Project1

标题: 关于RMMV兑换码的高级设置--接入taptap系统 [打印本页]

作者: zf756268 时间: 2021-9-10 09:17
标题: 关于RMMV兑换码的高级设置--接入taptap系统
首先先祝老师们教师节快乐！

  以下是已经自身亲身实践过的！有问题可以回帖留言！
  实现的功能：1.Excel中生成符合条件的随机数，这样会生成一组兑换码！再经过一系列加密解密算法后，验证兑换码正确与否。
  优点：不再被破解，或者说破解可能性大大减少！独立性，每个兑换码都独立，每人只能领一次，但是还可以多存档使用。

步骤：
1.打开excel，打开excel中的开发工具，里面有个VB编程！
2.以下是代码：’把下面复制黏贴就行了！
Sub Rnd_Number()

Dim i1, i2, i3, i4, i5, i6, i7, i8

On Error Resume Next  '忽略运行过程中可能出现的错误

Set MySheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1

i7 = 1 '初始值，对应列，ABCD列
i8 = 1 '初始值，从第1行开始

For i2 = 1 To 10000    '执行约10000次循环，条件满足就退出
Randomize  '初始化随机数生成器
i1 = Int(Rnd() * 90000000 + 10000000) '生成随机数
i3 = i1 * 268250    '加密算法开始
i4 = i3 + 520862
i5 = i4 Mod 987654
i6 = i5 \ 1000000
If i6 <= 50 Then MySheet1.Cells(i7, i8) = i1 '如果用户输入的I6（这里是随机数I6）符合条件则输出到（i7,i8）单元格
If i8 <= 100 Then i8 = i8 Else i8 = i8 + 1

Dim A, B, C, D '验证兑换码是否符合解密条件
A = MySheet1.Cells(i7, i8)
If (((A * 268250) + 520862) Mod 987654) \ 1000000 Then MySheet1.Cells(i7, i8 + 1) = A
i7 = i7 + 1  '这里确保了单元格的移动
i2 = i2 + 1  '这里确保了i2执行FOR循环
Next
End Sub

3.编辑完成后，按F5运行代码，会生产2列数据。第一列数据是原始数据，符合加密算法的数据。第二列数据是验证第一列数据是否符合加密算法。
4.Excel获得一系列数据后，返回RMMV中。
5.RMV以下操作：
①让用户输入数值，把这个数值保存在一个变量A中
②用IF分支条件，让变量A运行加密算法，这个根据自己的算法来具体看情况。
③如果变量A符合加密算法则.....不正确则.....

1.png (317.77 KB, 下载次数: 11)

作者: zf756268 时间: 2021-9-10 09:22
二、接入taptap

如果你注册了taptap的开发者，那么看这里！
看图就应该知道了吧
注意有一点：步骤1生产的2列数据，只保留1列，复制一下，新建个excel把数据放进去。保存一下，一个新文件。
把新文件上传到taptap兑换码服务器等审核就行了。

还有一点。步骤一中要保存的话，如果还想要vb编程数据，那么要保存为带有宏命令的EXEL

2.png (148.91 KB, 下载次数: 9)

3.png (33.99 KB, 下载次数: 10)

作者: MH-Pride 时间: 2021-9-10 09:57
感觉很厉害
我不知道是怎么样的破解所以只能给出我的思路
如果是我就直接将加密后的激活码上传自己保留未加密的数据
例如激活码是1a1b 用类似MD5之类的加密后d74ca7fe290da8ba 我将d74ca7fe290da8ba上存到数据库
前端验证输入1a1b 后再转换成加密的d74ca7fe290da8ba 或者在后端加密再跟数据库对比就不怕被破解就算被拿到数据库的d74ca7fe290da8ba 在输入后也会被转换一次所以也匹配不上
所以不需要解密值对比加密后数据

作者: zf756268 时间: 2021-9-10 12:27

MH-Pride 发表于 2021-9-10 09:57
感觉很厉害
我不知道是怎么样的破解所以只能给出我的思路
如果是我就直接将加密后的激活码上传自己保留 ...

我说的破解是获取当前地图的兑换码数值。像大千世界的破解版就是用获取数据来破解兑换码的。

然后你说的，我也想过，这里只给出了最简单的功能。变着花玩的话有很多种的。我只给了base。

谢谢

作者: arindlu 时间: 2021-9-10 14:12

作者: ww984957002 时间: 2021-9-11 15:18
taptap需要版号，版号到底如何申请？

作者: zf756268 时间: 2021-9-12 12:32

ww984957002 发表于 2021-9-11 15:18
taptap需要版号，版号到底如何申请？

我发布的是不收费单机，所以不需要这些个吧！
或者在taptap上发布信息，算是借助taptap这个平台引流。
自己建个群，在群里面发布安装包好了！

作者: ww984957002 时间: 2021-9-12 17:17

zf756268 发表于 2021-9-12 12:32
我发布的是不收费单机，所以不需要这些个吧！
或者在taptap上发布信息，算是借助taptap这个平台引流。
自 ...

不收费的也无法发布了，只能设置一个预约。

作者: zf756268 时间: 2021-9-12 21:58

ww984957002 发表于 2021-9-12 17:17
不收费的也无法发布了，只能设置一个预约。

那我就不知道了

作者: 13599299942 时间: 2021-9-30 08:43
研究个连接网络后台开启验证

作者: zf756268 时间: 2021-9-30 08:54

13599299942 发表于 2021-9-30 08:43
研究个连接网络后台开启验证

AXY网络插件有兑换码功能
200大洋一个月

作者: 13599299942 时间: 2021-12-24 14:56
mv里怎么写的

欢迎光临 Project1 (https://rpg.blue/)