Need some help converting this VB function to PHP

[Robbrad]

Can anyone help me convert this VB function to PHP

- I know php but no idea where to start

  Public Function Decompress(ByVal compressedString As String) As String
        'Dim gzBuffer As Byte() = Convert.FromBase64String(compressedString)
        Dim gzBuffer As Byte() = HexToByte(compressedString)

        Using stream As New GZipStream(New MemoryStream(gzBuffer), CompressionMode.Decompress)
            Const size As Integer = 4096
            Dim buffer As Byte() = New Byte(size - 1) {}
            Using memory As New MemoryStream()
                Dim count As Integer = 0
                Do
                    count = stream.Read(buffer, 0, size)
                    If count > 0 Then
                        memory.Write(buffer, 0, count)
                    End If
                Loop While count > 0
                Return Encoding.UTF8.GetString(memory.ToArray())
            End Using
        End Using

    End Function

[Jessica]

I'd start with the first line, then go from there.

[boompa]

Maybe gzuncompress would work?

[Robbrad]

Ok here I go

 

<?php

$string='0x1F8B0800000000000000654E316EC3300CEC5CA07FE0D6AD909D1628E0A1C8D01F74E422CB94CD46A11C4A6E5018F97B6967EC72381EC9BB5B516B6CD04BE11DC23C36ED5B8B03C5E8364C5EC6C61D0E2BC62CB5F6C988C358AE5C0AC6592F2DC630792D541D1C957DEA6E76D260144EFF57B7A7C715434E59CD0A3A541A1C8E4A240EFBB490EBEC027F98AE2796E11597D0E0EC75C013D1BC8360F1EF0EC316B115695BF89A08CE390B70816ABC571EA74AA542EEBF295460D975642B069F5EEBF45C6CB27707E5F4FBB14558EC1D83D9EEEC28D9BE142E8B59719697BB6C051FFE00D09796A337010000';

Function decompressRtf($string)
        
        gzBuffer = hexdec($string);

        size = (int)4096;

//Stuck on this next part       
buffer As Byte() = New Byte(size - 1) {}
        
    Using memory As New MemoryStream()
                Dim count As Integer = 0
                Do
                    count = stream.Read(buffer, 0, size)
                    If count > 0 Then
                        memory.Write(buffer, 0, count)
                    End If
                Loop While count > 0
                Return Encoding.UTF8.GetString(memory.ToArray())
            End Using
        End Using

    End Function

$output = decompressRtf($string);

?>