encrypt.asp

来自「用于加解密的源码」· ASP 代码 · 共 28 行

ASP
28
字号
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
		<%
        Dim Str1
        Dim Str2     
		Dim objCryptTest
		Set objCryptTest = Server.CreateObject("CRYPTIT.Cryptor")
		
		objCryptTest.PassPhrase = "Password 9999999"
		objCryptTest.StringToCrypt = "Credit Card Number: 1234564378659877"
		objCryptTest.DoCrypting
		
		Str1 = objCryptTest.ReturnCrypted
		
	    Response.write Str1
	    
        Set objCryptTest = Nothing
        %>
 <BODY>
	<P>Encryption Complete !</P>

</BODY>
</HTML>

⌨️ 快捷键说明

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