如何给vb代码加密

1 用vb自带的vss管理你的代码 不用的时候签入 不保留本地副本 需要用和看的时候下载下来

2 可以给数据库换后缀名（aabmp换成aadll）并且给数据库加上密码 我还看到有人把数据库的前10位字节取出来 然后读取的时候动态加上这10个字节读取

加密有许多的方法。最基础的一种就是利用对应表。

比如我对应

A 对 B

B 对 D

C 对 E

D 对 C

┇

┇

然后可以把他存在数组里，使用时对应即可。比如

Dim Mi(25) As String

Mi(0)="B"

Mi(1)="D"

：

：

：

如果要加密文字s$，产生新的字符串r$,就可以

s$=UCase(s$)

For i=1 to Len(s$)

r$=r$+Mi(Asc(Mid(s$,i,1)-64)

Next i

也可以使用Xor法。

Xor（异或）有加/解密的功能。

如果

s=p Xor k

则有

p=s Xor k

k为密钥。

以下是根据学号末2位加密、解密的VB程序：

Private Sub Form_Click()

x = Val(Right(Text1Text, 2))     '取学号末2位

'以下是加密

s = Text2Text

s1 = s

For i = 1 To Len(s)

  c = Mid(s1, i, 1)

  Mid(s1, i, 1) = Chr(Asc(c) Xor x)

Next i

Text3Text = s1

'以下是解密

s = s1

For i = 1 To Len(s)

  c = Mid(s, i, 1)

  Mid(s, i, 1) = Chr(Asc(c) Xor x)

Next i

Text4Text = s

End Sub

以上就是关于如何给vb代码加密全部的内容，包括:如何给vb代码加密、vb 加密算法、Vb编程编写一个小程序，可以对输入的一段英文字符串进行加密和解密，加密算法中需要使用到学号后两位等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！