(VBScript) PDF File Encoding to Base64

Demonstrates how to encode a PDF file to base64, and then decode.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set pdfData = CreateObject("Chilkat.BinData")

success = pdfData.LoadFile("qa_data/helloWorld.pdf")
If (success <> 1) Then
    outFile.WriteLine("failed to load PDF file.")
    WScript.Quit
End If

' Encode the PDF to base64
' Note: to produce base64 on multiple lines (as it would appear in the MIME of an email),
' pass the string "base64_mime" instead of "base64".
b64 = pdfData.GetEncoded("base64")
outFile.WriteLine(b64)

' Decode from base64 PDF.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set pdfData2 = CreateObject("Chilkat.BinData")
success = pdfData2.AppendEncoded(b64,"base64")
success = pdfData2.WriteFile("qa_output/helloWorld2.pdf")
If (success <> 1) Then
    outFile.WriteLine("failed to write PDF file.")
    WScript.Quit
End If


outFile.Close