- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [分享]RSA 加密解密 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112795)
-- 发布时间：2018/1/3 7:15:00
-- [分享]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))
自己搞定了！
[此贴子已经被作者于2018/1/3 8:32:32编辑过]
-- 发布时间：2018/1/3 9:10:00
--
[此贴子已经被作者于2018/1/3 9:25:15编辑过]