📄 make.asp
字号:
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -