如何用VB对汉字进行加密

发布网友

我来回答

共5个回答

热心网友

加减时，用截取当时，最好，我有现成的模块，要的话，我可以发给你
Public Function jiemi(str As String) As String
Dim j As Integer
For j = 1 To Len(str)
jiemi = jiemi & Chr(Asc(Mid(str, j, 1)) + (j Mod 11 + 5))
Next j
End Function
Public Function jiami(str As String) As String
Dim j As Integer
For j = 1 To Len(str)
jiami = jiami & Chr(Asc(Mid(str, j, 1)) - (j Mod 11 + 5))
Next j
End Function

热心网友

你可以试用ASCW这个函数将所对应的汉字转换之后，在进行加密，如果没记错的话，上面的函数转换的码是unicode码。正好符合汉字的特性。

热心网友

建议使用异或加密。

热心网友

呵呵 为什么不用BASE编码呢？ 这个可是很成熟的 吧任何字符甚至文件转换成英文字符
要不放心 就再加密英文字母一次

热心网友

不知道你的加密算法是什么,如果是对ascii的话应该没什么问题的