在asp中通過vbs類實現rsa加密與解密,建議入精華

在asp中通過vbs類實現rsa加密與解密,建議入精華
本文章有兩檔案組成
test.asp 測試示範檔案
clsrsa.asp 實現rsa加密與解密的vbs類檔案
下面是代碼:
1. test.asp
<%
rem 文章標題:在asp中通過vbs類實現rsa加密與解密
rem 收集整理:yanek
rem 聯絡:aspboy@263.net
%>
<%Option Explicit%>
<!--#INCLUDE FILE="clsRSA.asp"-->
<%
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