关于RMMV兑换码的高级设置--接入taptap系统

zf756268

首先先祝老师们教师节快乐！

  以下是已经自身亲身实践过的！有问题可以回帖留言！
  实现的功能：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符合加密算法则.....不正确则.....

zf756268

二、接入taptap

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


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

MH-Pride

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

zf756268

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

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

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

谢谢

arindlu

ww984957002

taptap需要版号，版号到底如何申请？

zf756268

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

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

ww984957002

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

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

zf756268

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

那我就不知道了

13599299942

研究个连接网络后台开启验证