主题：[分享]RSA 加密解密

Dim rsa   = new System.Security.Cryptography.RSACryptoServiceProvider()
Dim ByteConverter As New UnicodeEncoding()
Dim dataToEncrypt As Byte() = ByteConverter.GetBytes("ww我wData to Encrypt")
Dim encryptedData() As Byte
Dim decryptedData() As Byte
Dim gs As String = rsa.ToXmlString(False) '生成 公匙
Dim ss As String = rsa.ToXmlString(True) ''生成 私匙
rsa.FromXmlString(gs) '公匙
encryptedData = RSA.Encrypt(DataToEncrypt, False)
output.show("加密后:" & ByteConverter.GetString(encryptedData ))

rsa.FromXmlString(ss)
decryptedData= RSA.Decrypt(encryptedData, False)
output.show("解密后: " & ByteConverter.GetString(decryptedData))


自己搞定了！

如果指定了 密钥怎么修改下程序呢？