diff options
Diffstat (limited to 'complus/vbtest.html')
| -rw-r--r-- | complus/vbtest.html | 47 | 
1 files changed, 0 insertions, 47 deletions
| diff --git a/complus/vbtest.html b/complus/vbtest.html deleted file mode 100644 index 03df4636..00000000 --- a/complus/vbtest.html +++ /dev/null @@ -1,47 +0,0 @@ -<html> -<head><title>g10 code - GPGCOM test</title> - -<object id="gpg" -        classid="CLSID:3811fd40-7f72-11d5-8c9e-0080ad190cd5"> -</object> - -<script language="VBScript"> -Sub encrypt_text -     On error resume next -     Dim TheForm, plain - -     set TheForm = Document.forms ("MyForm") -     gpg.armor = True -     gpg.plaintext = TheForm.clear.value -     gpg.ClearRecipients -     gpg.AddRecipient TheForm.recp.value -     Err.Clear -     gpg.Encrypt -     if Err <> 0 then -         TheForm.encoded.value = "Error: " & CStr(Err.Number) -     else -         TheForm.encoded.value = gpg.ciphertext -     end if -end sub -</script> -</head> -<body> -<h1>Silly Gpgcom test page</h1> - -<form id="MyForm"> -<textarea name="clear" rows = 3 cols=40>Please enter the text here</textarea> -<p> -Encrypt for <input name="recp" value="alice"> -<input type="button" name="MyAction" value="Encrypt"  -       language="VBScript" onclick="encrypt_text()"> -<p> -<textarea name="encoded" rows=10 cols=75></textarea> -</form> - -<p> - -</body> -</html>      - - - | 
