Вроде сдалал.
Кодирование производится функцией encode_string,
декодирование - функцией decode_string
JAVA:
public static String encode_string(String data);
public static String decodes_tring(String data);
PASCAL:
function encode_string(data:string):string;
function decode_string(data:string):string;
Пример использования:
program Base64v3Test;
uses base64v3;
var
s1:string;
s:string;
begin
s1:='string строка /*+-=data';
drawText(s1,0,0);
s:=encode_string(s1);
drawText(s,0,20);
s:=decode_string(s);
drawText(s,0,40);
repaint;
delay(2000);
end.
Библиотека в первом посте.