首页
社区
课程
招聘
请教一个问题~~~请看过《算法注册机编写扫盲》的帮帮忙!~~
发表于: 2005-1-20 11:38 3883

请教一个问题~~~请看过《算法注册机编写扫盲》的帮帮忙!~~

2005-1-20 11:38
3883
找到一个注册码,计算方法如下:(用用户名计算注册码)
用户名:henhao

计算过程:
用户名16进制xor 123456 得出来的数再xor ABCDEF 就是注册码
如:
h=68 xor 1=69 xor A=63 c
e=65 xor 2=67 xor B=6C l
o=6E xor 3=6D xor C=61 a
h=68 xor 4=6C xor D=61 a
a=61 xor 5=64 xor E=6A j
o=6F xor 6=69 xor F=66 f

得出:用户名:henhao  注册码:claajf

请教:如果用VB6.0像《算法注册机编写扫盲》里说的那样,编辑一个注册机,代码该怎么写呢???

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (6)
雪    币: 221
活跃值: (130)
能力值: ( LV8,RANK:130 )
在线值:
发帖
回帖
粉丝
2
踢一脚~~~~~~
2005-1-20 12:23
0
雪    币: 2384
活跃值: (766)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
3
Private Sub Command1_Click()
Dim Name, Sn As String, i, j(6), k(6) As Integer

Name = Text1.Text

If (Len(Name) <= 0) Or (Len(Name) >= 7) Then '判断用户名的长度
MsgBox ("错误,用户名必须长度必须大于0小于7")
Exit Sub

Else
For i = 1 To 6 '初始化123456
  j(i) = 0 + i
Next i

For i = 1 To 6 '初始化ABCDEF
  k(i) = 9 + i
Next i

For i = 1 To Len(Name) '计算注册码
  Sn = Sn + Chr(Asc(Mid(Name, i, 1)) Xor j(i) Xor k(i))
Next i
Text2.Text = Sn
End If
End Sub
2005-1-20 12:23
0
雪    币: 221
活跃值: (130)
能力值: ( LV8,RANK:130 )
在线值:
发帖
回帖
粉丝
4
QQQ~~~老兄,我不懂编程,谢谢你呀~~,呵呵,能不能给我解释一下,那什么:
j(i) = 0 + i

k(i) = 9 + i
语句是什么意思呀???
主要目的是学习~~~为什么要这样编!
2005-1-20 12:59
0
雪    币: 2384
活跃值: (766)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
5
For i = 1 To 6 '初始化123456
  j(i) = 0 + i
Next i
以上几句相当于:
j(1) = 0 + 1 = 1
j(2) = 0 + 2 = 2
........
j(6) = 0 + 6 = 6
最后:
j(1..6) = 123456

For i = 1 To 6 '初始化ABCDEF
  k(i) = 9 + i
Next i
以上几句相当于:
k(1) = 9 + 1 = A
k(2) = 9 + 2 = B
........
k(6) = 9 + 6 = F
最后:
k(1..6) = ABCDEF
以上的语句只要对编程略知一二,基本很容易明白。
2005-1-20 14:34
0
雪    币: 176
活跃值: (117)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
6
连一维数组的使用和for循环也要扫盲了
2005-1-20 15:15
0
雪    币: 229
活跃值: (41)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
:D 扫大了
2005-1-22 14:51
0
游客
登录 | 注册 方可回帖
返回
//