在asp中通过vbs类完成rsa加密码与解密的数据

发布时间：2023-09-09 14:40:25 所属栏目：Asp教程来源：

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

本文章有两文件组成

test.asp 测试演示文件

clsrsa.asp 实现rsa加密与解密的vbs类文件

下面是代码:

1. test.asp

复制代码代码如下:

<%

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

本文章有两文件组成

test.asp 测试演示文件

clsrsa.asp 实现rsa加密与解密的vbs类文件

下面是代码:

1. test.asp

复制代码代码如下:

<%

rem 文章标题:在asp中通过vbs类实现rsa加密与解密

rem 收集整理:yanek

rem 联系: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>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!