Версия 6.08 Функция декодирования base64

char A[1000];
strcpy(#A[0], "3fLuIOru7eLl8PLo8O7i4PL8IOIgQmFzZTY0");
char B[1000];
messagebox (base64decode (#A[0], 36, #B[0]));
messagebox (format(#B[0]));

string a="/9j/4AAQSkZJRgABAQEAYABgAAD/4QAiRXhpZgAATU0AKgAA" +
"AAgAAQESAAMAAAABAAEAAAAAAAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAw" +
"YEBAMFBwYHBwcGBwcICQsJCAgKCAcHCg0KCgsMDAwMBwkODw" +
"0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM" +
"DAz/wAARCAAGAAUDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAA" +
"AAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fA" +
"kM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJ" +
"ytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMo" +
"EIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm" +
"6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD7T+Of/BUb4ff8El/ilqnwQ+HPwX+0aX4d8q7vp/7fNn513dRJcE7niuJZsRSQr5krhht8sKEjQ" +
"koor+quEfDLhrE5LhcRWw15ShFu05pXa7KSS9Ekjwc0zzH18ZUrYiq5zlJtyl70m3u23dtvq27n/9k=";


char A[10000];
strcpy(#A[0], a);
char B[10000];
int e=base64decode (#A[0], size(a), #B[0]);
messagebox (format(#B[0]));

if (fopen ("C:\imesas.jpg", "wb")!=0)
{
fwriteb(#B[0], e);
fclose();
}