那位朋友给我个Blowfish的VB代码 着急啊

Question

rt

Answer 1

你去WWW.VBGOOD.COM上面有 下面是代码的一部分 全部代码太长 贴不完
Public Function EncryptString(Text As String, Optional Key As String, Optional OutputInHex As Boolean) As String
    Dim byteArray() As Byte
    byteArray() = StrConv(Text, vbFromUnicode)
    Call EncryptByte(byteArray(), Key)
    EncryptString = StrConv(byteArray(), vbUnicode)
    If OutputInHex = True Then EncryptString = EnHex(EncryptString)
End Function