<%@ Language=VBScript %> <% Option Explicit %> <% Response.Expires = -1%> <% Dim objCrypto, strData, strEncrypt, strKey strKey = Request.Form("Key") strData =Request.Form("Data") IF Len(strKey)=0 OR Len(strData) =0 THEN Response.Redirect "input.asp" 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 strEncrypt = objCrypto.Encrypt (strData,strKey) %>

Hex of Encrypted Data	Key used to encrypt
readonly>	readonly>

 

<% End IF %>