请高手指教VB程序加密的详细步骤！ - VB / 非技术类
请高手指教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 = strTmp & Chr(CHARNUM)
Next i
StringEnDeCodecn = strTmp
Exit Function
ErrEnDeCode:
StringEnDeCodecn = ""
MsgBox "错误发生：" & Err.Number & "\" & Err.Description
End Function
'主界面
'建立一个Text控件和Command控件
'主界面代码：
Private Sub Command1_Click()
tmp = StringEnDeCodecn(Text1.Text, 75)
Text1.Text = tmp
End Sub
最简单的是用CHR和ASC进行ASCII码加密或反加密。
用XOR函数，加密或反加密不容易破解：
XOR加密代码如下：
'加密、反加密模块
Public Function StringE
相关问答：
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
帮我改改 我总觉得有问题
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 ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
在网上下载了speechsdk51LangPack安装后，用vb可以发音（中文），里面有个girl xiaokun的发音，对中文很好听。但是这个speechsdk51LangPack有100多M，我的vb项目打包后，怎么才可以装到其他机子上也能用？？总不能每 ......
