- package ACL_Utils is
- -- The following two functions are required due to Ada Crypto Library
- -- not producing the "expected" output from Encode_Base64()
-
- -- This function converts 0-63 to the respective base64 character literals
- -- and Integer'Last to '='
- function To_Base64 (Input: Integer) return Character;
- -- This function iterates through Input and returns a String formed from
- -- the output of the above applied to every element.
- function To_Base64 (Input: String) return String;
- end ACL_Utils;
|