小生我怕怕
发表于 2008-9-18 20:50:49
这个注册码可真忽悠人的!
nietsme
发表于 2008-9-18 21:19:31
原帖由 夜冷风 于 2008-9-18 20:34 发表 https://www.chinapyg.com/images/common/back.gif
蚊香妹妹真厉害啊！！！:loveliness: :loveliness: ＶＢ注册码丢出来学习下
蚊香：我是爷们，跟你说过多少次了~
夜冷风
发表于 2008-9-18 21:31:03
原帖由 nietsme 于 2008-9-18 21:19 发表 https://www.chinapyg.com/images/common/back.gif
蚊香：我是爷们，跟你说过多少次了~
我经常失意啊!!你要经常提醒我!!:loveliness:
月之精灵
发表于 2008-9-18 22:03:38
蚊香是爷们？头次听说呢/:018
magic659117852
发表于 2008-9-18 22:09:36
/:001 再次说明：本人男性
不完美的KG源码（VB Code）：Dim Name, Code As String
Dim L, i As Integer
Name = CStr(Text1.Text)
L = Len(Name)
If L = 0 Then
Text2.Text = "请输入用户名"
Else
For i = 1 To L
Code = Code & Chr(Asc(Mid(Name, i, 1)) + i)
Next
Text2.Text = Code
End If
杨家将
发表于 2008-9-18 22:18:03
你那个头像，人家以为你是MM
yoan
发表于 2008-9-18 22:56:33
nietsme
发表于 2008-9-19 01:36:50
原帖由 杨家将 于 2008-9-18 22:18 发表 https://www.chinapyg.com/images/common/back.gif
你那个头像，人家以为你是MM
再加上那个名字~
看到有个贴里他说自己是性别男之前，我都认为他是个mm:lol: :lol:
cao2109
发表于 2008-9-19 11:01:55
LZ，我解压缩，机子吼病毒了。/:L
ZHOU2X
发表于 2008-9-19 11:32:31
偶没有分析，只是看了楼上几位的注册码，好事，就贴个E注册机源码
.版本 2
.局部变量 注册名长度, 整数型
.局部变量 循环变量, 整数型
.局部变量 注册名代码, 字节型
.局部变量 注册码, 文本型
注册名长度 ＝ 取文本长度 (编辑框1.内容)
.计次循环首 (注册名长度, 循环变量)
注册名代码 ＝ 取代码 (编辑框1.内容, 循环变量)
注册码 ＝ 注册码 ＋ 字符 (注册名代码 ＋ 循环变量)
.计次循环尾 ()
编辑框2.内容 ＝ 注册码