^{<noscript id="1mjdg"></noscript>}

在asp中通過vbs類實(shí)現(xiàn)rsa加密與解密的代碼

2024-05-04 11:01:51

字體：大中小

供稿：網(wǎng)友

在asp中通過vbs類實(shí)現(xiàn)rsa加密與解密,建議入精華

本文章有兩文件組成
test.asp 測試演示文件
clsrsa.asp 實(shí)現(xiàn)rsa加密與解密的vbs類文件
下面是代碼:

1. test.asp

復(fù)制代碼代碼如下:
<%
rem 文章標(biāo)題:在asp中通過vbs類實(shí)現(xiàn)rsa加密與解密
rem 收集整理:yanek
rem 聯(lián)系:aspboy@263.net

%>
<%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

    Set ObjRSA = Nothing

End If
%>
<HTML>
    <HEAD>
        <TITLE>RSA Cipher Demonstration</TITLE>

上一篇：asp之字符串操作函數(shù)

下一篇：asp分頁的一個類