在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