[已解决]哪位高手能破解密码?

ww0000 · 发表于 2010-9-13 11:06

哪位高手能破解密码?

已经破解了VBA代码，也找到了注册信息那张工作表，但就是不知道注册码是多少！

注册信息：722206651

Public Sub 权限验证()
   Dim num As String, r As String, m As Integer
    r = GetSetting("S111.net", "Xiaomishu", "Zhucema", "Anonymous")
If Sheets("注册信息").Cells(7, 2) = r Or Mid(r, 4, 1) = 2 Then
      Sheets("注册信息").Cells(8, 2) = Val(Mid(r, 4, 1)) + Val(Mid(r, 5, 1)) + Val(Mid(r, 6, 1))
      If Sheets("注册信息").Cells(7, 2) = "" Then
          Sheets("注册信息").Cells(7, 2) = r
          MsgBox "升级成功！", 0 + 64, "小秘书提示"
      End If
Else
      If Sheets("注册信息").Cells(7, 2) = "" Then
        MsgBox "本软件未注册，每次最多只能统计5个班级！请与作者联系注册！", 0 + 48, "小秘书提示"
      Else
        Sheets("注册信息").Cells(7, 2) = ""
        MsgBox "非授权用户使用本软件，每次最多只能统计5个班级！请与作者联系注册！", 0 + 16, "小秘书警告"
      End If
      Sheets("注册信息").Cells(8, 2) = 5

End If
End Sub

最佳答案

月排行榜 / 总排行榜

wayy

2010-9-13 12:07

QUOTE:

以下是引用ww0000在2010-9-13 12:03:00的发言：

虽然提示注册成功,但在用时,仍然不能超过班级的数量限制!

U1oR9Won.rar (160.86 KB, 下载次数: 240)

ww0000 · 发表于 2010-9-13 11:07

忘记传附件了

HIvOopkA.rar (158.27 KB, 下载次数: 16)

wayy · 发表于 2010-9-13 11:21

将 If q = 0 Then　改为 if q <>0 then ....

在注册码的位置可以改一下，然后就可以随便注册了。

wayy · 发表于 2010-9-13 11:27

'        If Mid(num, 4, 1) <> 2 Then q = -1
'        If Val(Mid(num, 2, 2)) > Day(Now()) + Month(Now()) + 10 Then q = -1
'
'        If Val(Right(num, 2)) < Day(Now()) + 49 Then q = -1
'           For i = 1 To 9
'                s = s + Val(Mid(num, i, 1))
'           Next
'        If Right(s, 1) <> 1 Then q = -1

这部分就是验证注册码的。

wayy · 发表于 2010-9-13 11:29

4zTcksAE.rar (155.25 KB, 下载次数: 41)

ww0000 · 发表于 2010-9-13 12:03

虽然提示注册成功,但在用时,仍然不能超过班级的数量限制!

wayy · 发表于 2010-9-13 12:07

QUOTE:

以下是引用ww0000在2010-9-13 12:03:00的发言：

虽然提示注册成功,但在用时,仍然不能超过班级的数量限制!

U1oR9Won.rar (160.86 KB, 下载次数: 240)

wayy · 发表于 2010-9-13 12:41

直接给你个注册机吧

iMOtV2Sx.rar (8.14 KB, 下载次数: 31)

静s听w风q雨 · 发表于 2010-9-13 13:38

厉害啊，我也拿回去，呵呵，谢谢

tkgg93 · 发表于 2010-9-13 14:27

注册机好

		自动登录	找回密码
密码			注册