<%@ Language=VBScript %> <% Option Explicit %> <% Response.Expires = -1%> <% Dim objCrypto, strData, strEncrypt, strKey stop strEncrypt = Request.Form("Hex") strKey =Request.Form("Key") IF Len(strKey)=0 OR Len(strEncrypt) =0 THEN Response.Redirect "input.htm" END IF %> <% On Error Resume Next Set objCrypto = Server.CreateObject("Crypto.SimpleCrypt") If Err.number <> 0 Then Response.Write "Fail to create Crypto object
" Else strData = objCrypto.Decrypt (strEncrypt, strKey) Response.Write "The decrypted data: " & strData End If %>