String$ = "Это тестовая строка!"

; Кодировка строки в формате UTF-8
*Text = UTF8(String$)
Encoded$ = Base64Encoder(*Text, StringByteLength(String$, #PB_UTF8))
Debug "Закодировано: " + Encoded$

*DecodedBuffer = AllocateMemory(1024)
Base64Decoder(Encoded$, *DecodedBuffer, 1024)
Debug "Декодировано: '" + PeekS(*DecodedBuffer, - 1, #PB_UTF8) + "'"

FreeMemory(*Text)
FreeMemory(*DecodedBuffer)