在asp中通过vbs类达成rsa加密与解密的代码
|
在asp中通过vbs类实现rsa加密与解密,建议入精华： 下面是代码: 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> </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> <TD><INPUT name="KeyD" value="<%=Server.HTMLEncode(LngKeyD)%>"></TD> </TR> <TR> <TD>Modulus</TD> <TD><INPUT name="KeyN" value="<%=Server.HTMLEncode(LngKeyN)%>"></TD> </TR> <TR> <TD colspan="3"> Test Message:<BR> <TEXTAREA name="Message" cols="50" rows="7"><%=Server.HTMLEncode(StrMessage)%></TEXTAREA> </TD> </TR> <TR> <TD align="right" colspan="3"> <INPUT type="Submit" name="Action" value="Encrypt"> <INPUT type="Submit" name="Action" value="Decrypt"> </TD> </TR> </TABLE> </FORM> </BODY> </HTML> （编辑：银川站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
