make.asp

来自「供asp使用的md5算法组件。示范如何在delphi中制作asp组件。」· ASP 代码 · 共 38 行

ASP
38 行
字号 
<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>

make.asp - 源码说明

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

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

⌨️ 快捷键说明

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