VB怎么加密呢？
如题，谢谢了
"VB怎么加密呢?" 你指算法加密字符还是做好软件后的加密保护？
算法加密字符就看你怎么写， “ ABC -> 换算后得到 $2^ ” （解密就反过来)
做好软件后的加密保护，找个加壳软件就最容易不过了。
同上，要说清楚是加密什么
你要加密什么，是你的VB程序，还是程序中的数据
是要加密程序吧，读取硬件信息做成序列号加密，不过还是用加密狗加密比较好
通常的加密方法就是异或累加和等方法很多。
你是要对什么进行加密呢？说的详细点吧，涉及到加密的算法，内容很多。说的详细点吧。
最简单的是用CHR和ASC进行ASCII码加密或反加密。
用XOR函数，加密或反加密不容易破解：
XOR加密代码如下：
'加密、反加密模块
Public Function StringEnDeCodecn(strSource As String, MA) As String
On Error GoTo ErrEnDeCode
Dim X As Single, CHARNUM As Long, RANDOMINTEGER As Integer, SINGLECHAR As String * 1
Dim strTmp As String
If MA < 0 Then MA = MA * (-1)
X = Rnd(-MA)
For i = 1 To Len(strSource) Step 1 '取单字节内容
SINGLECHAR = Mid(strSource, i, 1)
CHARNUM = Asc(SINGLECHAR)
g: RANDOMINTEGER = Int(127 * Rnd)
If RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Then GoTo g
CHARNUM = CHARNUM Xor RANDOMINTEGER
strTmp =
相关问答：
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
在网上下载了speechsdk51LangPack安装后，用vb可以发音（中文），里面有个girl xiaokun的发音，对中文很好听。但是这个speechsdk51LangPack有100多M，我的vb项目打包后，怎么才可以装到其他机子上也能用？？总不能每 ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
