Question

How to encode and decode a string to base64 in Pascal

Answer 1

program Base64EncodeDecode_Pascal;

uses
  base64;

function Base64Encode(const Str: string): string;
begin
  Base64Encode := EncodeStringBase64(Str);
end;

function Base64Decode(const EncodeStr: string): string;
begin
  Base64Decode := DecodeStringBase64(EncodeStr);
end;

var 
  Base64EncodeStr: string;

begin
  Base64EncodeStr := Base64Encode('pascal programming');
  WriteLn(Base64EncodeStr);

  WriteLn(Base64Decode(Base64EncodeStr));
end.


  
  
(*
run:
 
cGFzY2FsIHByb2dyYW1taW5n
pascal programming
 
*)

 

70+ SQL courses for beginners and professionals