将加密从VB6转换为.NET

Question

我在VB6中使用ChilkatCrypt2进行登记。现在在.NET中我想使用System.Security.Cryptography。

我用过：

Public Function Encripta(pTexto As String, pChave As String, pModo As Byte) As String
    Dim vMD5 As New ChilkatCrypt2
    vMD5.UnlockComponent "..................."
    vMD5.Charset = "utf-8"
    vMD5.KeyLength = 128
    vMD5.CryptAlgorithm = "rijndael"
    vMD5.SecretKey = vMD5.GenerateSecretKey(pChave)
    vMD5.EncodingMode = "hex"
    If pModo = 1 Then
        Encripta = vMD5.EncryptStringENC(pTexto)
    Else
        Encripta = vMD5.DecryptStringENC(pTexto)
    End If
    Set vMD5 = Nothing
End Function

任何人都可以帮我在.NET（VB或C＃）中重写它，以便现有的加密值正确解密。我无法弄清楚参数的等价性。

Answer 1

就像jac说的那样 注意：.NET组件可以实现它。