📄 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 md5,encbase64,decbase64,blowfishenc,blowfishdec,desdec,desenc
Set DelphiASPObj = Server.CreateObject("md5.make")
md5=ucase(DelphiASPObj.rivestStr(now))
encbase64=delphiaspobj.MimeEncodeString(md5)
decbase64=delphiaspobj.MimeDecodeString(encbase64)
call delphiaspobj.blowfish_init(now)
'blowfishenc=delphiaspobj.blowfish_en(delphiaspobj.blowfish_convert("0123456789"))
blowfishenc=delphiaspobj.blowfish_en(123456789)
blowfishdec=delphiaspobj.blowfish_dn(blowfishenc)
desenc=delphiaspobj.encrystrhex("test test !","75118")
desdec=delphiaspobj.decrystrhex(desenc,"75118")
set delphiASPObj = nothing
response.write "md5="&md5&"<br>"
response.write "<br>" & "encbase64="&encbase64&"<br>"
response.write "<br>" & "decbase64="&decbase64&"<br>"
response.write "<br>" & "<br>" & "blowfishenc=" & cstr(blowfishenc) & "<br>"
'response.write "blowfishdec=" & StrReverse(cstr(blowfishdec)) & "<br>"
response.write "blowfishdec=" & cstr(blowfishdec) & "<br>"
response.write "<br>" & "desenc=" & desenc
response.write "<br>" & "desdec=" & desdec & "<br>"
%>
<HR>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -