在asp中通过vbs类实现rsa加密与解密,建议入精华

在asp中通过vbs类实现rsa加密与解密,建议入精华
本文章有两文件组成
test.asp 测试演示文件
clsrsa.asp 实现rsa加密与解密的vbs类文件
下面是代码:
1. test.asp
<%
rem 文章标题:在asp中通过vbs类实现rsa加密与解密
rem 收集整理:yanek
rem 联系:[email protected]
%>
<%Option Explicit%>

<%
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
If Not Request.Form = "" Then
    LngKeyE = Request.Form("KeyE")
    LngKeyD = Request.Form("KeyD")
    LngKeyN = Request.Form("KeyN")
    StrMessage = Request.Form("Message")
    
    Set ObjRSA = New clsRSA
    
    Select Case Request.Form("Action")
        Case "Generate Keys"
       Call ObjRSA.GenKey()
       LngKeyE = ObjRSA.PublicKey
       LngKeyD = ObjRSA.PrivateKey
       LngKeyN = ObjRSA.Modulus
        Case "Encrypt"
       ObjRSA.PublicKey = LngKeyE
       ObjRSA.Modulus = LngKeyN
       StrMessage = ObjRSA.Encode(StrMessage)
        Case "Decrypt"
       ObjRSA.PrivateKey = LngKeyD
       ObjRSA.Modulus = LngKeyN
       StrMessage = ObjRSA.Decode(StrMessage)
    End Select