能力值:
(RANK:210 )
|
-
-
2 楼
|
|
-
-
3 楼
|
能力值:
( LV4,RANK:50 )
在线值:

|
-
-
4 楼
哇,真快.下次加点简单算法
|
能力值:
( LV3,RANK:20 )
|
-
-
5 楼
0040D85E . 52 push edx [auth.code]
|
能力值:
( LV2,RANK:10 )
|
-
-
6 楼
cjq611
294-996366
|
能力值:
( LV2,RANK:10 )
在线值:

|
-
-
7 楼
可以看到注册码,但是不知道怎么找他的算法
|
能力值:
( LV8,RANK:130 )
|
-
-
8 楼
 搞错的地方请高手指教~~~
1 2 3 4 5 6 7 8 9 10 11 12 13 | Dim Name, Code As String
Dim A, L As Long
Name = CStr(Text1.Text)
L = Len(Name)
If L = 0 Then
Text2.Text = "Input your name,Please!"
Else
For i = 1 To L
A = A + (Asc(Mid(Name, i, 1)) Xor 100)
Next i
Code = A & "-" & A * 3389
Text2.Text = Code
End If
|
|
能力值:
( LV8,RANK:130 )
|
-
-
9 楼
 才发现,,用户名超过9位不行
|
能力值:
( LV2,RANK:10 )
在线值:

|
-
-
10 楼
凑个热闹..呵呵
|
能力值:
( LV2,RANK:10 )
在线值:

|
-
-
11 楼
我找到注册码了,为什么点Check it 没反应啊
|
能力值:
( LV6,RANK:90 )
|
-
-
12 楼
我也来玩玩!注册机就写不了!
|
能力值:
( LV9,RANK:140 )
|
-
-
13 楼
|
能力值:
( LV2,RANK:10 )
在线值:

|
-
-
14 楼
别都只贴结果啊,说下过程啊,Nice对话框怎么出不来啊
|
能力值:
( LV2,RANK:10 )
|
-
-
15 楼
想办法在调试的时候别关闭程序,运行到一定的时候,就可以重新输入注册码了。你可以截图了。程序不能从OD里关掉,关掉这个注册号就没用了。
|
能力值:
( LV2,RANK:10 )
在线值:

|
-
-
16 楼

如果输入正确,在rtcMsgBox处的call不是应该调用对话框吗?
|
|
|