ASP VBSCRIPT VBA RSA 公钥加密私钥解密私钥签名公钥验签

最新推荐文章于 2022-04-30 11:06:42 发布

todaygods

最新推荐文章于 2022-04-30 11:06:42 发布

阅读量2.2k

点赞数 3

CC 4.0 BY-SA版权

文章标签： c# rsa 加密解密 openssl base64

本文链接：https://blog.csdn.net/todaygods/article/details/109383438

<% 
'@title: Class_Crypt_Rsa
'@author: ekede.com
'@date: 2020-10-28
'@description: RSA 公钥加密->私钥解密 , 私钥签名->公钥验签
Class Class_Crypt_Rsa
		Private TAsc,objRsa
		Private PrivateKey_,PublicKey_
        '@PrivateKey: Your personal private key.  Keep this hidden. Need C# format.
		Public Property Get PrivateKey
			PrivateKey = PrivateKey_
		End Property
		Public Property Let PrivateKey(Value)
			PrivateKey_ = Value
			objRsa.FromXmlString (PrivateKey_)
            PublicKey_ = objRsa.ToXmlString(False)
		End Property
        '@PublicKey: Key for others to encrypt data with.
		Public Property Get PublicKey
			PublicKey = PublicKey_
		End Property
		Public Property Let PublicKey(Value)
			PublicKey_ = Value
			objRsa.FromXmlString (PublicKey_)
		End Property
		Private Sub Class_Initialize()
			Set TAsc = Server.CreateObject("System.Text.UTF8Encoding")
			Set objRsa = Server.CreateObject("System.Security.Cryptography.RSACryptoServiceProvider")
			CreateKey()
		End Sub
		Private Sub Class_Terminate()
			Set objRsa = Nothing
			Set TAsc = Nothing
		End Sub
		Public Sub CreateKey()
			PrivateKey_ = objRsa.ToXmlString(True)
			PublicKey_ = objRsa.ToXmlString(False)
		End Sub
		'@Encrypt(ByRef Str): 公钥加密
		Public Function Encrypt(ByRef Str)
			Dim Bytes
			Bytes = TAsc.GetBytes_4(Str)
			Encrypt = Bytes2Base64(RsaEncrypt((Bytes)))
		End Function
		Private Function RsaEncrypt(ByRef Bytes)
			RsaEncrypt = objRsa.Encrypt((Bytes),False)
		End Function
		'@Decrypt(ByRef Bytes): 私钥解密
		Public Function Decrypt(ByRef Str)
			Dim Bytes
			Bytes=RsaDecrypt(Base642Bytes(Str))
			Decrypt = TAsc.GetString((Bytes))
		End Function
		Private Function RsaDecrypt(ByRef Bytes)
			 RsaDecrypt = objRsa.