Procedure SerializaCompactaArquivo(Token, bufArquivoBinario)

//Serializar
bufArquivoBinario = Crypt(bufArquivoBinario,Token,cryptAnsi,encodeBASE64)

NomeArquivoTxt is string = "Buffer"+DateSys()+TimeSys() + ".txt"
NomeArquivoZip is string = "Buffer"+DateSys()+TimeSys() + "zip"

fDelete(NomeArquivoTxt)
fDelete(NomeArquivoZip)

fSaveBuffer(NomeArquivoTxt,bufArquivoBinario)

NumZipErr is int

NumZipErr = zipCreate("Pacote", NomeArquivoZip)

IF NumZipErr <> 0 THEN
Error(zipMsgError(NumZipErr))
END

NumZipErr = zipAddFile("Pacote", NomeArquivoTxt, zipNone)

IF NumZipErr <> 0 THEN
Error(zipMsgError(NumZipErr) + "On the file " + zipCurrentFile("Pacote"))
END

zipCompressionLevel("Pacote", 9)

ok is boolean

IF fFileExist(NomeArquivoZip) THEN
ok = True
bufArquivoBinario = fLoadBuffer(NomeArquivoZip)
bufArquivoBinario = Crypt(bufArquivoBinario,Token,cryptAnsi,encodeBASE64)
ELSE
ok = False
bufArquivoBinario = ""
END

fDelete(NomeArquivoTxt)
fDelete(NomeArquivoZip)

RESULT(bufArquivoBinario)