Question

我正在尝试加密某些内容然后解密它。下面显示的代码是VB，但我将它与C＃库一起使用。我已经在C＃中尝试了相同的代码，并抛出完全相同的异常。

我正在使用RSA引擎和StreamReader中的私钥文件加密文本。将其写入控制台可以正常工作，但是当我尝试解密它时会抛出无效的块长度异常：

Module Module1

    Sub Main()
        Dim input As String
        Dim output As String

        input = "Feb Twenty-Fourth Two Thousand Ten"
        output = EncryptKey(input)
        Console.WriteLine(DecryptKey(output) <---Error!

    End Sub

    Private Function EncryptKey(ByVal sPlain As String) As String
        Dim enc As New System.Text.UTF8Encoding
        Dim result As Byte()
        result = BouncyCastleCrypto(True, enc.GetBytes(sPlain))
        Return Convert.ToBase64String(result)
    End Function

    Private Function BouncyCastleCrypto(ByVal bForEncryption As Boolean, ByVal input As Byte()) As Byte()
        Dim bValue64 As Byte() = {0}
        Try
            Dim keypair As Greenway.PrimeResearch.Encryption.Crypto.AsymmetricCipherKeyPair
            Dim sr As New StreamReader("C:\Documents and Settings\xxxx\Desktop\test.KEY")
            keypair = New Greenway.PrimeResearch.Encryption.OpenSsl.PemReader(sr).ReadObject
            Dim cryptEngine As New Greenway.PrimeResearch.Encryption.Crypto.Encodings.Pkcs1Encoding(New Greenway.PrimeResearch.Encryption.Crypto.Engines.RsaEngine())
            cryptEngine.Init(bForEncryption, keypair.Private)
            bValue64 = cryptEngine.ProcessBlock(input, 0, input.Length)
        Catch ex As Exception
            Throw ex
        End Try

        Return bValue64
    End Function

    Private Function DecryptKey(ByVal sCipher As String) As String
        Dim enc As New System.Text.ASCIIEncoding
        Dim result As Byte()
        result = BouncyCastleCrypto(False, Convert.FromBase64String(sCipher))
        Return enc.GetString(result)
    End Function
End Module

使用充气城堡图书馆的C＃麻烦

0 个答案: