呼叫

Question

好家伙需要帮助，我有一些代码的md5做隐窝，现在解密此代码，我把它放在模块，需要从形式叫我怎么能做到这一点（vb.net）

Imports System.Security.Cryptography 
Imports System.Text 

Module Crypt 
    Public Function Encrypt(ByVal toEncrypt As String, ByVal key As String, ByVal useHashing As Boolean) As String 
     Dim keyArray As Byte() 
     Dim toEncryptArray As Byte() = UTF8Encoding.UTF8.GetBytes(toEncrypt) 

     If useHashing = True Then 
      Dim hashmd5 As New MD5CryptoServiceProvider() 
      keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(key)) 
     Else 
      keyArray = UTF8Encoding.UTF8.GetBytes(key) 
     End If 

     Dim tdes As New TripleDESCryptoServiceProvider() 
     tdes.Key = keyArray 
     tdes.Mode = CipherMode.ECB 
     tdes.Padding = PaddingMode.PKCS7 

     Dim cTransform As ICryptoTransform = tdes.CreateEncryptor() 
     Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length) 

     Return (Convert.ToBase64String(resultArray, 0, resultArray.Length)) 
    End Function 
    Public Function Decrypt(ByVal toDecrypt As String, ByVal key As String, ByVal useHashing As Boolean) As String 
     Dim keyArray As Byte() 
     Dim toEncryptArray As Byte() = Convert.FromBase64String(toDecrypt) 

     If useHashing = True Then 
      Dim hashmd5 As New MD5CryptoServiceProvider() 
      keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(key)) 
     Else 
      keyArray = UTF8Encoding.UTF8.GetBytes(key) 
     End If 

     Dim tdes As New TripleDESCryptoServiceProvider() 
     tdes.Key = keyArray 
     tdes.Mode = CipherMode.ECB 
     tdes.Padding = PaddingMode.PKCS7 

     Dim cTransform As ICryptoTransform = tdes.CreateDecryptor() 
     Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length) 

     Return UTF8Encoding.UTF8.GetString(resultArray) 
    End Function 
End Module 

Answer 1

模块=静态类

静态=在vb.net共用

NotInheritable Class SecurityModule 

    Private Sub New() 

    End Sub 

    Public Shared Function Encrypt(parameters) As String 
     // Your implementation 
    End Function 

    Public Shared Function Decrypt(parameters) As String 
     // Your implementation 
    End Function 

End Class 

NotInheritable是等密封。共享就像静态类的方法。

要调用

SecurityModule.Encrypt(...) 

希望这有助于！