HEX

File: D:/web/homefly/tests/simpleclient.asp
<HTML>
<HEAD>

<!--
<OBJECT
  classid="CLSID:F9463571-87CB-4A90-A1AC-2284B7F5AF4E"
  codeBase="/tests/aspencrypt.dll"
  id="XEncrypt">
</OBJECT>
-->

<script language="jscript">
	document.write("<OBJECT id='XEncrypt' " 
		+ "classid='CLSID:F9463571-87CB-4A90-A1AC-2284B7F5AF4E' ");
	if (navigator.cpuClass.toLowerCase() == "x64") {
		document.write("codebase='/common/activex/aspencrypt64.dll'>\n");
	} else {
		document.write("codebase='/common/activex/aspencrypt.dll'>\n");
	}
	document.write("</OBJECT>\n");
</script>

<SCRIPT LANGUAGE="VBSCRIPT">
Sub Encrypt
  Set Context = XEncrypt.OpenContext("mycontainer", False)
  Set Key = Context.GenerateKeyFromPassword("my password")
  Set Blob = Key.EncryptText( document.myForm.txtEncr.Value )
  document.myForm.txtDecr.Value = Blob.Base64
End Sub

Sub Decrypt
  Set Context = XEncrypt.OpenContext("mycontainer", False)
  Set Key = Context.GenerateKeyFromPassword("my password")
  Set Blob = XEncrypt.CreateBlob
  Blob.Base64 = document.myForm.txtDecr.Value
  MsgBox Key.DecryptText(Blob)
End Sub

Sub Decrypt2
  MsgBox "Decrypt2 called 1"
	Set Context = XEncrypt.OpenContext("mycontainer", False)
	Set Msg = Context.CreateMessage(True) ' use 3DES  
  MsgBox "Decrypt2 called 2"
'  MsgBox Msg.DecryptText("MIIBiQYJKoZIhvcNAQcDoIIBejCCAXYCAQAxggEqMIIBJgIBADCBjjB6MR8wHQYJKoZIhvcNAQkBExBpbmZvQHBlcnNpdHMuY29tMQswCQYDVQQGEwJVUzELMAkGA1UECBMCTlkxETAPBgNVBAcTCE5ldyBZb3JrMSowKAYDVQQDEyFQZXJzaXRzIFNvZnR3YXJlIERlbW8gQ0EgTmV3IFlvcmsCEDGnkfNrJEeZQKPmmIubJFcwDQYJKoZIhvcNAQEBBQAEgYBUOmqzqn+txzP2duOqMsT18Yn+HGzugPtO8Qa8oBggogSYIIs03ehRD/MiJEM+Jj6wrrmZXP8t1PYT9UJnwmvxbAUvq1PEVPR6I+Gbtc6UXoF2j5K9oPuUnSadWHPARrXvd3pSMAJJIfoDmDRgONLxhDszEmfgcLKkAswlvmU8HDBDBgkqhkiG9w0BBwEwFAYIKoZIhvcNAwcECGU3uL4QvCobgCB4yCUFvuQYHxdPswYuPEDVu1lKTvx9hvRjd448ansALw==", "")
  MsgBox Msg.DecryptText("MIIBiQYJKoZIhvcNAQcDoIIBejCCAXYCAQAxggEqMIIBJgIBADCBjjB6MR8wHQYJKoZIhvcNAQkBExBpbmZvQHBlcnNpdHMuY29tMQswCQYDVQQGEwJVUzELMAkGA1UECBMCTlkxETAPBgNVBAcTCE5ldyBZb3JrMSowKAYDVQQDEyFQZXJzaXRzIFNvZnR3YXJlIERlbW8gQ0EgTmV3IFlvcmsCEOgGoUAPtTqXQdNwmWdv9rwwDQYJKoZIhvcNAQEBBQAEgYBYxSIlbtYrZBgpGTaGtX/KZ/mTMwdZgSPGRpp67am0Q1SxoWbBCPEXwWVp/pjsm4W1PH2omsHLOllpsEKAOkiPsRn8SqDRiTk+rG9MkqAb2LzeqxgW7kg3WeDax5AfKKy2PNZBhiv4MaA7cZX4RfhVos9JxOalWGXq4nYdxjSezDBDBgkqhkiG9w0BBwEwFAYIKoZIhvcNAwcECOFQX5S/aDkSgCAuJJXhWwdPq24Cj3+MoXjd9/e/DJjUZg2MwOoPq/skCg==", "")
End Sub

Sub Decrypt3
  'MsgBox "Decrypt3 called 1"
  'Set Context = XEncrypt.OpenContextEx("Microsoft Enhanced Cryptographic Provider v1.0", "mycontainer", False)
  Set Context = XEncrypt.OpenContext("mycontainer", False)
  Set Msg = Context.CreateMessage(True) ' use 3DES
  'MsgBox "Decrypt3 called 2"
  MsgBox Msg.DecryptText(document.myForm.txtEncr3.value, "")
End Sub

Sub DummyFunction
End Sub

</SCRIPT>

</HEAD>

<BODY>

<script language="jscript">
	if (navigator.cpuClass.toLowerCase() == "x64") {
		document.write("<h1>This browser is 64 bit\n</h1>");
	} else {
		document.write("<h1>This browser is 32 bit\n</h1>");
	}
</script>
<FORM NAME="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="Decrypt2()" VALUE="Decrypt">
<P>
<TEXTAREA NAME="txtEncr3" ROWS="10" COLS="80">MIICBAYJKoZIhvcNAQcDoIIB9TCCAfECAQAxggGlMIIBoQIBADCBiDBzMQswCQYDVQQGEwJHQjEbMBkGA1UECBMSR3JlYXRlciBNYW5jaGVzdGVyMRAwDgYDVQQHEwdTYWxmb3JkMRowGAYDVQQKExFDT01PRE8gQ0EgTGltaXRlZDEZMBcGA1UEAxMQUG9zaXRpdmVTU0wgQ0EgMgIRAIsgq+evWTWGDr1Avc/02s0wDQYJKoZIhvcNAQEBBQAEggEArMO2t78/oop6ia/nAlGECqD7bTRapaaaNE6vN9AuD7LMM4OKTrAP8DyNTZOfk0y3qwrzWOC3c2iapLCKZBi94xjz3HBtt7AFPCwEqBq72mXRoVBOVvf8VLSRwaNBAy05ESRsSmUY/boRxle/exUVzqtT2dvhh56AwF7glughWHjQP7HPeJogGbfRA9+VD9+DXYfPTsYrh2MFOm+5ydCDurXtWQ8nrPzBj9YiI4mu6CQw38Nfi9m1hFCSKj6vSGzYUVR8g6y4QzuOe99v1Cwnc6ITuY3Fjfy3a47H9y4nEoXt5+DJ+5u0E9yp3G45KBgEa3jcz/hYv32NNr7R2n1tEDBDBgkqhkiG9w0BBwEwFAYIKoZIhvcNAwcECOJDJ97zCV0KgCDHViU0jEfbQJAhRC3QPnnVZKHFnsKFYPxYxrZoRaBMlA==</TEXTAREA><BR>
<INPUT TYPE="BUTTON" OnClick="Decrypt3()" VALUE="Decrypt">
</FORM>
<SCRIPT LANGUAGE="VBScript">
  document.write "123"
	Document.Write "Document.Write test"
</SCRIPT>

</BODY>
</HTML>