VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 二进制数据用异或法加解密过程
发表评论(0)作者:网狐, 平台:VB5.0+Win95, 阅读:11451, 日期:2001-04-15
Public Sub Crypt(Bytes() As Byte, Optional sKey As String = "k")
注释:二进制数据用异或法加解密过程
注释:作者:网狐 http://vbyes.ccoo.com/
注释:由于用异或法加解密的算法是一样的,也就是说这是一种对称加密法,故采用同一函数
Dim i, bKey() As Byte, KeyLen&, LBound_bKey&
Dim Pos&
注释:begin ========================
LBound_bKey& = LBound(Bytes)
bKey = StrConv(sKey, vbFromUnicode)
KeyLen& = UBound(bKey) - LBound_bKey& + 1
Pos = 0
For i = LBound(Bytes) To UBound(Bytes)
Bytes(i) = Bytes(i) Xor bKey((i - LBound_bKey&) Mod KeyLen)
Next i
End Sub