40 lines
1.1 KiB
Plaintext
40 lines
1.1 KiB
Plaintext
' 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
|