acl_utils.ads 534 B

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