doc/
[gpgme.git] / complus / vbtest.vbs
1 ' Demo script to generate a RFC2015 compliant message using Gpgcom
2 Dim gpg, body, crlf
3
4 crlf = chr(10) & chr(13)
5
6 ' Create out Gpgcom object
7 set gpg = CreateObject("Gpgcom.Gpgme")
8 ' We must use the ASCII armor and switch to textmode
9 gpg.armor = true
10 gpg.textmode = true
11
12 ' Set the secret message
13 gpg.plaintext = "This is the secret message."  'or: InputBox('Enter message:")
14
15 ' Set the Recipient.  You may also use a keyID or an fingerprint
16 gpg.AddRecipient "alice"
17
18 ' And encrypt the stuff
19 gpg.encrypt
20
21 ' Build the MIME message
22 body = "Content-Type: multipart/encrypted; boundary=" 
23 body = body & Chr(34) & "=-=-=-=" & Chr(34) & crlf & "    protocol=" & Chr(34)
24 body = body & "application/pgp-encrypted" & Chr(34) & crlf & crlf
25 body = body & "--=-=-=-=" & crlf
26 body = body & "Content-Type: application/pgp-encrypted" & crlf & crlf
27 body = body & "Version: 1" & crlf & crlf
28 body = body & "--=-=-=-=" & crlf
29 body = body & "Content-Type: application/octet-stream" & crlf & crlf
30 body = body & gpg.ciphertext 
31 body = body & "--=-=-=-=--" & crlf 
32
33 ' And display it
34 Print body
35
36 ' output function for the windows scripting host
37 sub Print(x)
38      WScript.Echo x
39 end sub