make.asp

来自「网上很少有供asp使用的rsa算法组件」· ASP 代码 · 共 57 行

ASP
57 行
字号 
<HTML>
<BODY>
<TITLE> Testing Delphi ASP </TITLE>
<CENTER>
<H3> You should see the results of your Delphi Active Server method below </H3>
</CENTER>
<HR>
<%
   dim decstring,encstring,GenKey,rsae,rsan,rsad
   dim rsakey
   
   Set DelphiASPObj = Server.CreateObject("rsasvr.make") 
   
   GenKey   = DelphiASPObj.Genkey
 
   rem result:=e1+'|'+d1+'|'+n1;
   rsakey=split(GenKey,"|",-1,1)
   rsae=rsakey(0)
   rsad=rsakey(1)
   rsan=rsakey(2)
   
   encstring= DelphiASPObj.RsaEnc(rsae,rsan,now)
   decstring= DelphiASPObj.RsaDec(rsad,rsan,encstring)
   
   set delphiaspobj =nothing
   
   response.write "encstring=[ "&encstring&" ]"&"<br>"&"decstring=[ "&decstring&" ]"&"<br>"
   response.write "GenKey=[ "&GenKey&" ]"&"<br>"
   response.write "rsae=[ "&rsae&" ]"&"<br>"
   response.write "rsad=[ "&rsad&" ]"&"<br>"
   response.write "rsan=[ "&rsan&" ]"&"<br>"      

%>
<HR>
</BODY>
</HTML>

make.asp - 源码说明

本页面展示了「网上很少有供asp使用的rsa算法组件」中的 make.asp 源码文件，采用 ASP 编程语言编写，共 57 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?