twofishunit.bas

来自「TwoFish算法,适用语言极多!有Delphi,Kylix VC & C++ 」· BAS 代码 · 共 18 行

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

Public Declare Function TwoFishStrEncrypt Lib "TwoFish.dll" (ByVal lpInStr As String, ByVal lpKey As String, ByVal lpOutStr As String) As Boolean
Public Declare Function TwoFishStrDecrypt Lib "TwoFish.dll" (ByVal lpInStr As String, ByVal lpKey As String, ByVal lpOutStr As String) As Boolean
Public Declare Function TwoFishFileEncrypt Lib "TwoFish.dll" (ByVal lpInFile As String, ByVal lpKey As String, ByVal lpOutFile As String) As Boolean
Public Declare Function TwoFishFileDecrypt Lib "TwoFish.dll" (ByVal lpInFile As String, ByVal lpKey As String, ByVal lpOutFile As String) As Boolean
Public Declare Function GetVersion Lib "TwoFish.dll" (ByVal lpVersion As String) As Boolean