From 7442e8df460dcd41fcf68bbaff86984558620b77 Mon Sep 17 00:00:00 2001 From: Werner Koch Date: Tue, 31 Jul 2001 12:25:23 +0000 Subject: [PATCH] Added 2 examples --- complus/Makefile.am | 2 +- complus/vbtest.html | 47 +++++++++++++++++++++++++++++++++++++++++++++ complus/vbtest.vbs | 39 +++++++++++++++++++++++++++++++++++++ 3 files changed, 87 insertions(+), 1 deletion(-) create mode 100644 complus/vbtest.html create mode 100644 complus/vbtest.vbs diff --git a/complus/Makefile.am b/complus/Makefile.am index 9da5b4bf..45c3dc42 100644 --- a/complus/Makefile.am +++ b/complus/Makefile.am @@ -24,7 +24,7 @@ # system with an install MIDL and run the command # midl /nocpp gpgcom.idl # Sorry, there is no other way yet. -EXTRA_DIST = gpgcom.idl gpgcom.tlb gpgcom.rc +EXTRA_DIST = gpgcom.idl gpgcom.tlb gpgcom.rc vbtest.html vbtest.vbs # No need to install this because we are cross-compiling anyway. noinst_PROGRAMS = gpgcom tgpgcom diff --git a/complus/vbtest.html b/complus/vbtest.html new file mode 100644 index 00000000..03df4636 --- /dev/null +++ b/complus/vbtest.html @@ -0,0 +1,47 @@ + +g10 code - GPGCOM test + + + + + + + +

Silly Gpgcom test page

+ +
+ +

+Encrypt for + +

+ +

+ +

+ + + + + + diff --git a/complus/vbtest.vbs b/complus/vbtest.vbs new file mode 100644 index 00000000..7ea346da --- /dev/null +++ b/complus/vbtest.vbs @@ -0,0 +1,39 @@ +' Demo script to generate a RFC2015 compliant message using Gpgcom +Dim gpg, body, crlf + +crlf = chr(10) & chr(13) + +' Create out Gpgcom object +set gpg = CreateObject("Gpgcom.Gpgme") +' We must use the ASCII armor and switch to textmode +gpg.armor = true +gpg.textmode = true + +' Set the secret message +gpg.plaintext = "This is the secret message." 'or: InputBox('Enter message:") + +' Set the Recipient. You may also use a keyID or an fingerprint +gpg.addrecipient "alice" + +' And encrypt the stuff +gpg.encrypt + +' Build the MIME message +body = "Content-Type: multipart/encrypted; boundary=" +body = body & Chr(34) & "=-=-=-=" & Chr(34) & crlf & " protocol=" & Chr(34) +body = body & "application/pgp-encrypted" & Chr(34) & crlf & crlf +body = body & "--=-=-=-=" & crlf +body = body & "Content-Type: application/pgp-encrypted" & crlf & crlf +body = body & "Version: 1" & crlf & crlf +body = body & "--=-=-=-=" & crlf +body = body & "Content-Type: application/octet-stream" & crlf & crlf +body = body & gpg.ciphertext +body = body & "--=-=-=-=--" & crlf + +' And display it +Print body + +' output function for the windows scripting host +sub Print(x) + WScript.Echo x +end sub