File: D:/web/homefly/tests/vbscript.asp
<HTML>
<HEAD>
<TITLE>VBScript Test</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
Function TestFunc
MsgBox "TestFunc"
End Function
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="myForm">
<INPUT TYPE="TEXT" NAME="txtEncr" SIZE="60" VALUE="Text to encrypt">
<INPUT TYPE="BUTTON" OnClick="TestFunc()" VALUE="Encrypt">
</FORM>
<OBJECT classid="CLSID:F9463571-87CB-4A90-A1AC-2284B7F5AF4E"
codeBase="https://www.homefly.com/tests/aspencrypt.dll"
id="XEncrypt">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
document.write "The VBScript syntax allows you to " &_
"concatenate multiple lines together, so that they " &_
"appear joined together seamlessly"
</script>
<br>
<SCRIPT LANGUAGE="VBScript">
'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
on error resume next
err.number=0
cnum = Msg.DecryptText("MIIBiQYJKoZIhvcNAQcDoIIBejCCAXYCAQAxggEqMIIBJgIBADCBjjB6MR8wHQYJKoZIhvcNAQkBExBpbmZvQHBlcnNpdHMuY29tMQswCQYDVQQGEwJVUzELMAkGA1UECBMCTlkxETAPBgNVBAcTCE5ldyBZb3JrMSowKAYDVQQDEyFQZXJzaXRzIFNvZnR3YXJlIERlbW8gQ0EgTmV3IFlvcmsCEDGnkfNrJEeZQKPmmIubJFcwDQYJKoZIhvcNAQEBBQAEgYBUOmqzqn+txzP2duOqMsT18Yn+HGzugPtO8Qa8oBggogSYIIs03ehRD/MiJEM+Jj6wrrmZXP8t1PYT9UJnwmvxbAUvq1PEVPR6I+Gbtc6UXoF2j5K9oPuUnSadWHPARrXvd3pSMAJJIfoDmDRgONLxhDszEmfgcLKkAswlvmU8HDBDBgkqhkiG9w0BBwEwFAYIKoZIhvcNAwcECGU3uL4QvCobgCB4yCUFvuQYHxdPswYuPEDVu1lKTvx9hvRjd448ansALw==", "")
If err.number = 0 then
cnumarr = Split(cnum, "&")
else
Document.Write "!!!" & err.description & "!!!"
end if
on error goto 0
if IsArray(cnumarr) then Document.Write "<br>" & cnumarr(0)
'if IsArray(cnumarr) then MsgBox cnumarr(0)
if IsArray(cnumarr) then
if UBOUND(cnumarr)>=1 then Document.Write "<br>" & cnumarr(1)
end if
if IsArray(cnumarr) then
if UBOUND(cnumarr)>=2 then Document.Write "<br>" & cnumarr(2)
end if
</SCRIPT>
</BODY>
</HTML>