aboutsummaryrefslogtreecommitdiffstats
path: root/complus/vbtest.html
diff options
context:
space:
mode:
Diffstat (limited to 'complus/vbtest.html')
-rw-r--r--complus/vbtest.html47
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>
-
-
-