rc6unit.bas

来自「用visual c++ 编的关于RC6加密算法!」· BAS 代码 · 共 18 行

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

Public Declare Function RC6StrEncrypt Lib "RC6.dll" (ByVal lpInStr As String, ByVal lpKey As String, ByVal lpOutStr As String) As Boolean
Public Declare Function RC6StrDecrypt Lib "RC6.dll" (ByVal lpInStr As String, ByVal lpKey As String, ByVal lpOutStr As String) As Boolean
Public Declare Function RC6FileEncrypt Lib "RC6.dll" (ByVal lpInFile As String, ByVal lpKey As String, ByVal lpOutFile As String) As Boolean
Public Declare Function RC6FileDecrypt Lib "RC6.dll" (ByVal lpInFile As String, ByVal lpKey As String, ByVal lpOutFile As String) As Boolean
Public Declare Function GetVersion Lib "RC6.dll" (ByVal lpVersion As String) As Boolean