HEX
Server: Microsoft-IIS/10.0
System: Windows NT ITPWINWEBSVR22 10.0 build 20348 (Windows Server 2022) AMD64
User: www.conferencesearch.co.uk (0)
PHP: 8.3.30
Disabled: NONE
Upload Files
File: D:/web/homefly/tests/simpleclientjs.asp
<HTML>
<HEAD>

<TITLE>08_simple_js.htm</TITLE>

<OBJECT
  CLASSID="CLSID:F9463571-87CB-4A90-A1AC-2284B7F5AF4E"
  CODEBASE="https://www.homefly.com/tests/aspencrypt.dll"
  ID="XEncrypt">
</OBJECT>

<SCRIPT LANGUAGE="JavaScript">

function Encrypt()
{
  alert("Encrypt 1");
  var Context = XEncrypt.OpenContext("", false);
  alert("Encrypt 2");
  var Key = Context.GenerateKeyFromPassword("my password");
  alert("Encrypt 3");
  var Blob = Key.EncryptText( document.forms[0].txtEncr.value );
  alert("Encrypt 4");
  document.forms[0].txtDecr.value = Blob.Base64;
  alert("Encrypt 5");
}

function Decrypt()
{
  var Context = XEncrypt.OpenContext("", false);
  var Key = Context.GenerateKeyFromPassword("my password");
  var Blob = XEncrypt.CreateBlob();
  Blob.Base64 = document.forms[0].txtDecr.value;

  document.forms[0].txtOriginal.value = Key.DecryptText(Blob);
}

</SCRIPT>

</HEAD>


<BODY>



<FORM NAME="myForm" ID="myForm">
<INPUT TYPE="TEXT" NAME="txtEncr" SIZE="60" VALUE="Text to encrypt">
<INPUT TYPE="BUTTON" OnClick="Encrypt()" VALUE="Encrypt">
<P>
<INPUT TYPE="TEXT" NAME="txtDecr" SIZE="60">
<INPUT TYPE="BUTTON" OnClick="Decrypt()" VALUE="Decrypt">
<P>
<INPUT TYPE="TEXT" NAME="txtOriginal" SIZE="60">

</FORM>

</BODY>
</HTML>