https://yutant.blogspot.com/2017/01/encode-decode-base64-string-on-delphi.html