请高手指教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
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
