From 4700e982d416886d3a947a779264b9bfef825a10 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 2 Aug 2018 13:10:12 +0000
Subject: [PATCH] * Fix bug ID #0034071

git-svn-id: trunk@39551 -
---
 packages/fcl-base/src/base64.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/base64.pp b/packages/fcl-base/src/base64.pp
index 48715fae70..449ddee018 100644
--- a/packages/fcl-base/src/base64.pp
+++ b/packages/fcl-base/src/base64.pp
@@ -420,11 +420,15 @@ end;
 function DecodeStringBase64(const s:string;strict:boolean=false):String;
 
 var 
+  SD : String;
   Instream, 
   Outstream : TStringStream;
   Decoder   : TBase64DecodingStream;
 begin
-  Instream:=TStringStream.Create(s);
+  SD:=S;
+  while Length(Sd) mod 4 > 0 do 
+    SD := SD + '=';
+  Instream:=TStringStream.Create(SD);
   try
     Outstream:=TStringStream.Create('');
     try