Base64 functions

Quick.Base64.pas

@@ -0,0 +1,52 @@
+{ ***************************************************************************
+
+  Copyright (c) 2016-2017 Kike Pérez
+
+  Unit        : Quick.Base64
+  Description : Log Api Redis Provider
+  Author      : Kike Pérez
+  Version     : 1.0
+  Created     : 08/11/2017
+  Modified    : 08/11/2017
+
+  This file is part of QuickLib: https://github.com/exilon/QuickLib
+
+ ***************************************************************************
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+  http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+ *************************************************************************** }
+unit Quick.Base64;
+
+interface
+
+uses
+  IdCoderMIME,
+  IdGlobal;
+
+function Base64Encode(const Input: string): string;
+function Base64Decode(const Input: string): string;
+
+implementation
+
+function Base64Encode(const Input: string): string;
+begin
+  Result := TIdEncoderMIME.EncodeString(Input,IndyTextEncoding_OSDefault);
+end;
+
+function Base64Decode(const Input: string): string;
+begin
+  Result := TIdDecoderMIME.DecodeString(Input,IndyTextEncoding_OSDefault);
+end;
+
+end.