请高手指教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 ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
帮我改改 我总觉得有问题
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 ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我有一个数字是从数据库里面取出的，该数据库的字段数字类型是decimal 13,至少要保留4位小数
,我从这个字段取到数后要赋给一个变量fquantity，这个变量我设成single(dim fquantity as single),但是发现有的时候这个 ......
