使用VB作出加密，解密并显示密钥

'这是我以前回答别人提问时写的，添加三个文本框，一个按钮。text3文本框中输入要加密的

'文本，在text2中是加密的文本，在text1中是对加密的文本解密。加密和解密用同一个

'过程'Private Function JiaMi(a As String) As String

Private Sub Command1_Click()

Dim a As String

Dim b As String

a = Text3

For i = 1 To Len(a)

b = b & JiaMi(Mid(a, i, 1))

Next i

Text2 = b

a = Text2

b = ""

For i = 1 To Len(a)

b = b & JiaMi(Mid(a, i, 1))

Next i

Text1 = b

End Sub

Private Function JiaMi(a As String) As String

Dim IntAsc As Integer

IntAsc = Asc(a)

If IntAsc Mod 2 Then

IntAsc = IntAsc + 47

If IntAsc > 126 Then IntAsc = IntAsc - 47

Else

IntAsc = IntAsc - 47

If IntAsc < 33 Then IntAsc = IntAsc + 47

End If

JiaMi = Chr(IntAsc)

End Function

注册码生成软件最好是自己写，用公开的加密算法就可以。我用过md5加密生成代码也用过base64加密生成代码。

其实很简单，VB生成随机字符串，然后用加密算法进行计算。把计算结果存起来作为注册码就可以。别说1万个，如果字符串够长的话，几百万个都不会重复，当然，最好是在生成的时候检测一下，不要有重复。

如果限定软件必须连网注册的话就更容易了。

用txt文档生成一个大量注册码的文件，加入到VB程序的资源文件中去。同时在网上建一个数据表。注册时先检查注册码txt文件有没有此注册码，如果有的话，则连网查数据表中此注册码是否已经使用，如果未使用则在数据表中标注注册日期。到此注册成功。

在启动时需要输入注册码才能使用 实现软件注册功能 使一个注册码对应一台机器 比如这个注册码必须在相应的硬盘序列号下才能生效。

ProcessorId)

Next

Print ")

For Each cpu In cpuSet

a = (cpu：", "

For i = 1 To Len(a)

c = c & Asc(Mid(a, i;MyApp1"

End

End If

End Sub

impersonationLevel=impersonate}")InstancesOf("Win32_Processor&quot：

Private Sub Command1_Click()

Dim cpuSet

Dim cpu

Set cpuSet = GetObject(&quot, 1))

Next

Text1 = &quot, "1&quotShow

Else

Call jiance

End If

End Sub

Private Sub jiance()

Dim cpuSet

Dim cpu

Set cpuSet = GetObject(")

以上就是关于使用VB作出加密，解密并显示密钥全部的内容，包括:使用VB作出加密，解密并显示密钥、如何给VB程序预先配置注册码、VB 写了一个程序如何加入注册码，使一个注册码对应一台机器等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！