本文整理匯總了VB.NET中System.Security.Cryptography.RC2CryptoServiceProvider.UseSalt屬性的典型用法代碼示例。如果您正苦於以下問題:VB.NET RC2CryptoServiceProvider.UseSalt屬性的具體用法?VB.NET RC2CryptoServiceProvider.UseSalt怎麽用?VB.NET RC2CryptoServiceProvider.UseSalt使用的例子?那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Security.Cryptography.RC2CryptoServiceProvider
的用法示例。
在下文中一共展示了RC2CryptoServiceProvider.UseSalt屬性的1個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: MyMainModule
' 導入命名空間
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Module MyMainModule
Sub Main()
Dim originalBytes As Byte() = ASCIIEncoding.ASCII.GetBytes("Here is some data.")
'Create a new RC2CryptoServiceProvider.
Dim rc2CSP As New RC2CryptoServiceProvider()
rc2CSP.UseSalt = True
rc2CSP.GenerateKey()
rc2CSP.GenerateIV()
'Encrypt the data.
Dim msEncrypt As New MemoryStream()
Dim csEncrypt As New CryptoStream(msEncrypt, rc2CSP.CreateEncryptor(rc2CSP.Key, rc2CSP.IV), CryptoStreamMode.Write)
'Write all data to the crypto stream and flush it.
csEncrypt.Write(originalBytes, 0, originalBytes.Length)
csEncrypt.FlushFinalBlock()
'Get encrypted array of bytes.
Dim encryptedBytes As Byte() = msEncrypt.ToArray()
'Decrypt the previously encrypted message.
Dim msDecrypt As New MemoryStream(encryptedBytes)
Dim csDecrypt As New CryptoStream(msDecrypt, rc2CSP.CreateDecryptor(rc2CSP.Key, rc2CSP.IV), CryptoStreamMode.Read)
Dim unencryptedBytes(originalBytes.Length - 1) As Byte
'Read the data out of the crypto stream.
csDecrypt.Read(unencryptedBytes, 0, unencryptedBytes.Length)
'Convert the byte array back into a string.
Dim plaintext As String = ASCIIEncoding.ASCII.GetString(unencryptedBytes)
'Display the results.
Console.WriteLine("Unencrypted text: {0}", plaintext)
Console.ReadLine()
End Sub
End Module