шифровать RSA длинными частями текста - PullRequest
Новая
       7

шифровать RSA длинными частями текста

0 голосов
/ 23 марта 2020

Добрый день, есть ли у кого-нибудь решение для шифрования большого текста в блоках с использованием алгоритма RSA. В приведенном ниже примере это работает для маленьких текстов, чем больше я пытаюсь, тем больше больших текстов выдает ошибку. 

Dim RSA = New RSACryptoServiceProvider(1024)

        Dim dataToEncrypt() As Byte = Encoding.UTF8.GetBytes("2010-05-18;2010-05-18T15:25;FAC 001/19;75.00;")

        Dim privKey = RSA.ExportParameters(True)
        Dim pubKey = RSA.ExportParameters(False)
        RSA.ImportParameters(pubKey)
        Dim encryptedData As Byte() = RSA.Encrypt(dataToEncrypt, False)
        RSA.ImportParameters(privKey)
        Dim EncryptedResult As String = System.Convert.ToBase64String(encryptedData)
        Dim EncrypetdResult As String = System.Text.Encoding.[Default].GetString(encryptedData)
        Dim decryptedData As Byte() = RSA.Decrypt(encryptedData, False)
        Dim texto = Encoding.UTF8.GetString(decryptedData)

С наилучшими пожеланиями, omateus

...