blowfishunit.bas

BlowFish加密算法.封装过程按照标准的API形式进行

Attribute VB_Name = "BlowFishUnit"
'{*******************************************************}
'{                                                       }
'{                      BlowFish算法                     }
'{                                                       }
'{         版权所有(C) BieEncrypt安全实验室 2006         }
'{                  版本：V1.0                           }
'{            主页：http://www.bitencrypt.com            }
'{            邮件：[e-mail]                   }
'{                                                       }
'{*******************************************************}

Public Declare Function BlowFishStrEncrypt Lib "BlowFish.dll" (ByVal lpInStr As String, ByVal lpKey As String, ByVal lpOutStr As String) As Boolean
Public Declare Function BlowFishStrDecrypt Lib "BlowFish.dll" (ByVal lpInStr As String, ByVal lpKey As String, ByVal lpOutStr As String) As Boolean
Public Declare Function BlowFishFileEncrypt Lib "BlowFish.dll" (ByVal lpInFile As String, ByVal lpKey As String, ByVal lpOutFile As String) As Boolean
Public Declare Function BlowFishFileDecrypt Lib "BlowFish.dll" (ByVal lpInFile As String, ByVal lpKey As String, ByVal lpOutFile As String) As Boolean
Public Declare Function GetVersion Lib "BlowFish.dll" (ByVal lpVersion As String) As Boolean