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> - - - |