1) 在asp中通过vbs类达成rsa加密与破解,建议入精华
发布时间:2023-08-03 14:45:03 所属栏目:Asp教程 来源:
导读:在asp中通过vbs类实现rsa加密与解密,建议入精华
本文章有两文件组成
test.asp 测试演示文件
clsrsa.asp 实现rsa加密与解密的vbs类文件
下面是代码:
1. test.asp
<%
rem 文章标题:在asp中
本文章有两文件组成
test.asp 测试演示文件
clsrsa.asp 实现rsa加密与解密的vbs类文件
下面是代码:
1. test.asp
<%
rem 文章标题:在asp中
在asp中通过vbs类实现rsa加密与解密,建议入精华 本文章有两文件组成 test.asp 测试演示文件 clsrsa.asp 实现rsa加密与解密的vbs类文件 下面是代码: 1. test.asp <% rem 文章标题:在asp中通过vbs类实现rsa加密与解密 rem 收集整理:yanek rem 联系:[email protected] %> <%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> </head> <body> <h1>rsa cipher demonstration</h1> <p> you will first need to generate your public/privage key-pair before you can encrypt/decrypt messages. </p> <form method="post"> <table> <tr> <td>public key</td> <td><input name="keye" value="<%=server.htmlencode(lngkeye)%>"></td> <td rowspan="3"> <input type="submit" name="action" value="generate keys"> </td> </tr> <tr> <td>private key</td> &nbs (编辑:聊城站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
推荐文章
站长推荐