Кодирование файлов в текст для последующей передачи, реально ли это на PureBasic?

DataSection
  Test:
  Data.a $00, $01, $02, $03, $04, $05, $06, $07
  Data.a $08, $09, $0A, $0B, $0C, $0D, $0E, $0F
  TestEnd:
EndDataSection
 
Size = (?TestEnd - ?Test) * 1.35
If Size < 64
  Size = 64
EndIf
 
*EncodeBuffer = AllocateMemory(Size)
Size = Base64EncoderBuffer(?Test, ?TestEnd - ?Test, *EncodeBuffer, MemorySize(*EncodeBuffer))
Encoded$ = PeekS(*EncodeBuffer, Size, #PB_Ascii)
Debug Encoded$
 
*DecodeBuffer = AllocateMemory(Size)
Size = PokeS(*EncodeBuffer, Encoded$, StringByteLength(Encoded$, #PB_Ascii), #PB_Ascii|#PB_String_NoZero)
Size = Base64DecoderBuffer(*EncodeBuffer, Size, *DecodeBuffer, MemorySize(*DecodeBuffer))
ShowMemoryViewer(*DecodeBuffer, Size)

ReadFile(0,"test.txt")
length = Lof(0)                            
*MemoryID = AllocateMemory(length)
bytes = ReadData(0, *MemoryID, length)
CloseFile(0)
  Size1 = bytes * 1.5
  If Size1 < 64
    Size1 = 64
  EndIf
  
  *EncodeBuffer = AllocateMemory(Size1*1.5)
  Size3 = Base64EncoderBuffer(*MemoryID, Size1, *EncodeBuffer, MemorySize(*EncodeBuffer))
  Encoded$ = PeekS(*EncodeBuffer, Size3, #PB_UTF8)
  Debug Encoded$
  
  *DecodeBuffer = AllocateMemory(Size3)
  Size = PokeS(*EncodeBuffer, Encoded$, StringByteLength(Encoded$, #PB_UTF8), #PB_UTF8|#PB_String_NoZero)
  Size = Base64DecoderBuffer(*EncodeBuffer, Size, *DecodeBuffer, MemorySize(*DecodeBuffer))
  ShowMemoryViewer(*DecodeBuffer, Size)