diff options
Diffstat (limited to '')
| -rw-r--r-- | complus/vbtest.vbs | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/complus/vbtest.vbs b/complus/vbtest.vbs deleted file mode 100644 index 8246b456..00000000 --- a/complus/vbtest.vbs +++ /dev/null @@ -1,39 +0,0 @@ -' 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 |