一个简单CM

冷血书生

原帖由 冰糖 于 2009-3-20 11:37 发表
Private Sub Command1_Click()
    a = Text1.Text & UCase(Winsock1.LocalHostName)
    For i = 1 To Len(a)
        b = b + Asc(Mid(a, i, 1))
    Next i
    Text2.Text = b
End Sub

膜拜一下！！！！！！

冰糖

上面那个不支持中文名,支持中文名的见这个/:017

科维

楼上的太强啦/:good

xuyang886

高手```

/:L

as3852711

原帖由 科维 于 2009-3-20 11:22 发表
我怎么调试也是不正确．
不知用上面的
leng
1364
能不能进行注册的？是不是每台机子的注册号都是一样的？

你没看到书生写的吗？要每个人的计算机名字，当然每个人的注册码都是不一样的，你想和书生的一样可以问他的计算机名是什么就行了！/:017 /:017 /:017

pepsiguest

我也来个...
00404885    8B00            mov eax,[eax]            真码放在EAX

as3852711

我也来‘依虎画猫’一下，把VB关键的代码还原一下。不过还是太菜了本代码不能支持中文，希望牛人们能指点一二！/:010 /:010

Private Sub Command1_Click()
Dim name As String
Dim i, code As Integer
name = Trim(Text1.Text) + cpname
For i = 1 To Len(name)
code = code + Asc(Mid(name, i, 1))
Next i
Text2.Text = Trim(Str(code))
End Sub

游客，如果您要查看本帖隐藏内容请回复

[ 本帖最后由 as3852711 于 2009-3-21 13:28 编辑 ]

黑暗次序

膜拜楼上各位大牛

as3852711

问题马虎解决了！引入一个字符串型的好像就搞定了！

//////////////////////////////////////////////////
Private Sub Command1_Click()
Dim name As String
Dim i, code As Integer
Dim bArr() As Byte '加上一个字节型；
name = Trim(Text1.Text) + cpname
bArr = StrConv(name, vbFromUnicode) 'StrCon在VB超有用的一个函数；
For i = 0 To UBound(bArr) 'UBound取byte长度；
code = code + bArr(i)
Next i
Text2.Text = Trim(Str(code))
End Sub

unpack

/:good     糖糖很强大啊  我有我支持中文的注册机源码    /:017