📄 m25.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=14>
<div align=center class=H1> <font color="#FFFFFF" class="unnamed1">如何对字符串进行加密解密</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <font color="#000000" class="unnamed1">来源：www.vbeden.com<br>
<br>
本人在操作数据库时，考虑到该数据库还有可能被其他软件打开，所以想能否有另外一种方式把数据库中数据进行加密呢，也<br>
就是说，即使别人利用其他的软件打开了该数据库，看到的也是一片乱码，根本不知道数据库进而是什么内容。出于这种情况，本人利用VB中自带<br>
RND（）函数的功能编写了如下加密解密方法。<br>
当RND（）的参数（我们称它为种子）为负值时，同一种子产生同一个随机序列，同时VB还具有强大的二进制技术功能。<br>
这样我们可以按以下方法实现字符串内容的加密解密。<br>
<br>
源程序如下：<br>
<br>
Public Function StringEnDeCodecn(strSource As String, MA) As String<br>
'该函数只对中西文起到加密作用<br>
'参数为：源文件，密码<br>
On Error GoTo ErrEnDeCode<br>
Dim X As Single<br>
Dim CHARNUM As Long, RANDOMINTEGER As Integer<br>
Dim SINGLECHAR As String * 1<br>
Dim strTmp As String<br>
If MA < 0 Then<br>
MA = MA * (-1)<br>
End If<br>
X = Rnd(-MA)<br>
For i = 1 To Len(strSource) Step 1 '取单字节内容<br>
SINGLECHAR = Mid(strSource, i, 1)<br>
CHARNUM = Asc(SINGLECHAR)<br>
g: RANDOMINTEGER = Int(127 * Rnd)<br>
If RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Then GoTo g<br>
CHARNUM = CHARNUM Xor RANDOMINTEGER<br>
strTmp = strTmp & Chr(CHARNUM)<br>
Next i<br>
StringEnDeCodecn = strTmp<br>
Exit Function<br>
ErrEnDeCode:<br>
StringEnDeCodecn = ""<br>
MsgBox Err.Number & "\" & Err.Description<br>
End Function<br>
<br>
使用方法：<br>
tmp=stringEnDecn("中华人民共和国",75)<br>
如果要解密的话，只须键入以下语句：<br>
tmp1=stringendecn(tmp,75)<br>
<br>
如有不妥之处，请与我联系：<br>
Flea_cyp@163.com </font><br>
</p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -