在asp中通過vbs類實現rsa加密與解密,建議入精華
本文章有兩文件組成
test.asp測試演示文件
clsrsa.asp實現rsa加密與解密的vbs類文件
下面是代碼:
1.test.asp
複製代碼代碼如下:
<%
rem文章標題:在asp中通過vbs類實現rsa加密與解密
rem收集整理:yanek
rem聯繫:[email protected]
%>
<%OptionExplicit%>
<!--#INCLUDEFILE="clsRSA.asp"-->
<%
DimLngKeyE
DimLngKeyD
DimLngKeyN
DimStrMessage
DimObjRSA
IfNotRequest.Form=""Then
LngKeyE=Request.Form("KeyE")
LngKeyD=Request.Form("KeyD")
LngKeyN=Request.Form("KeyN")
StrMessage=Request.Form("Message")
SetObjRSA=NewclsRSA
SelectCaseRequest.Form("Action")
Case"GenerateKeys"
CallObjRSA.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)
EndSelect
SetObjRSA=Nothing
EndIf
%>
<HTML>
<HEAD>
<TITLE>RSACipherDemonstration</TITLE>