From: Werner Koch Date: Tue, 31 Jul 2001 12:25:23 +0000 (+0000) Subject: Added 2 examples X-Git-Tag: gpgme-0-2-3~8 X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=7442e8df460dcd41fcf68bbaff86984558620b77;p=gpgme.git Added 2 examples --- diff --git a/complus/Makefile.am b/complus/Makefile.am index 9da5b4b..45c3dc4 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 0000000..03df463 --- /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 0000000..7ea346d --- /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