RC2CryptoServiceProvider Class
Assembly: mscorlib (in mscorlib.dll)
'Declaration <ComVisibleAttribute(True)> _ Public NotInheritable Class RC2CryptoServiceProvider Inherits RC2 'Usage Dim instance As RC2CryptoServiceProvider
/** @attribute ComVisibleAttribute(true) */ public final class RC2CryptoServiceProvider extends RC2
ComVisibleAttribute(true) public final class RC2CryptoServiceProvider extends RC2
The RC2CryptoServiceProvider implementation supports key lengths from 40 bits to 128 bits in increments of 8 bits.
The RC2CryptoServiceProvider object is a block cipher that encrypts and decrypts data in blocks of 8 bytes. This class pads the final block of data if it is less than 8 bytes. As a result of this padding, the length of encrypted data could be greater than the original plaintext.
Note that the RC2CryptoServiceProvider object does not use salt.
The following code example encrypts and then decrypts a string.
Imports System Imports System.IO Imports System.Text Imports System.Security.Cryptography Module MyMainModule Sub Main() ' Create a new instance of the RC2CryptoServiceProvider class ' and automatically generate a Key and IV. Dim rc2CSP As New RC2CryptoServiceProvider() Console.WriteLine("Effective key size is {0} bits.", rc2CSP.EffectiveKeySize) ' Get the key and IV. Dim key As Byte() = rc2CSP.Key Dim IV As Byte() = rc2CSP.IV ' Get an encryptor. Dim encryptor As ICryptoTransform = rc2CSP.CreateEncryptor(key, IV) ' Encrypt the data as an array of encrypted bytes in memory. Dim msEncrypt As New MemoryStream() Dim csEncrypt As New CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write) ' Convert the data to a byte array. Dim original As String = "Here is some data to encrypt." Dim toEncrypt As Byte() = Encoding.ASCII.GetBytes(original) ' Write all data to the crypto stream and flush it. csEncrypt.Write(toEncrypt, 0, toEncrypt.Length) csEncrypt.FlushFinalBlock() ' Get the encrypted array of bytes. Dim encrypted As Byte() = msEncrypt.ToArray() ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' This is where the data could be transmitted or saved. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Get a decryptor that uses the same key and IV as the encryptor. Dim decryptor As ICryptoTransform = rc2CSP.CreateDecryptor(key, IV) ' Now decrypt the previously encrypted message using the decryptor ' obtained in the above step. Dim msDecrypt As New MemoryStream(encrypted) Dim csDecrypt As New CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read) Dim fromEncrypt(toEncrypt.Length) As Byte ' Read the data out of the crypto stream. csDecrypt.Read(fromEncrypt, 0, toEncrypt.Length) ' Convert the byte array back into a string. Dim roundtrip As String = Encoding.ASCII.GetString(fromEncrypt) ' Display the original data and the decrypted data. Console.WriteLine("Original: {0}", original) Console.WriteLine("Round Trip: {0}", roundtrip) Console.ReadLine() End Sub End Module
System.Security.Cryptography.SymmetricAlgorithm
System.Security.Cryptography.RC2
System.Security.Cryptography.RC2CryptoServiceProvider
Windows 98, Windows 2000 SP4, Windows CE, Windows Millennium Edition, Windows Mobile for Pocket PC, Windows Mobile for Smartphone, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition
The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.