在asp中经过vbs类实现rsa加密与解密的代码
|
在asp中通过vbs类实现rsa加密与解密,建议入精华 本文章有两文件组成 test.asp 测试演示文件 clsrsa.asp 实现rsa加密与解密的vbs类文件 下面是代码: 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 Set ObjRSA = Nothing End If %> <HTML> <HEAD> <TITLE>RSA Cipher Demonstration</TITLE> （编辑：汽车网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
