VB2008工程代码-加密汉字 字符串

VB2008工程代码-加密汉字 字符串 Public Function StringEnDeCodecn(ByVal strSource As String, ByVal MA As Long) As String '该函数只对中西文起到加密作用 '参数为：源文件，密码 On Error GoTo ErrEnDeCode Dim X As Single Dim CHARNUM As Long, RANDOMINTEGER As Integer Dim SINGLECHAR As String '* 1 Dim strTmp As String = "" If MA < 0 Then MA = MA * (-1) End If X = Rnd(-MA) For i = 1 To Len(strSource) Step 1 '取单字节内容 SINGLECHAR = Mid(strSource, i, 1) CHARNUM = Asc(SINGLECHAR) g: RANDOMINTEGER = Int(127 * Rnd())