Android Question Decode & decompress to get from php json to B4A, i need the inverse

    $gzdata = base64_encode(gzcompress(json_encode($return_arr)));
    echo $gzdata;

Sub decode(texto As String) As String
    Dim strResult As String
    Dim cs As CompressedStreams   
    Dim su As StringUtils
    Dim bt() As Byte
    Dim bc As ByteConverter
    Try
        bt = su.DecodeBase64(texto)
        bt = cs.DecompressBytes(bt, "zlib")
        strResult = bc.StringFromBytes(bt, "UTF8")
        Return strResult
    Catch
        Log(LastException)
        Return ""
    End Try
End Sub

Sub encode(texto As String) As String
...