Code:
 Dim sReturn As String
    Dim sFileData As String
    
    Open Left(sFileName, Len(sFileName) - 4) & ".wnc" For Binary As #1
    sFileData = Input(LOF(1), #1)
    sReturn = sDecompress(sFileData)
    Close #1
    Debug.Print Len(sReturn), Len(sFileData)
    
    Open Left(sFileName, Len(sFileName) - 4) & "2" & Right(sFileName, 4) For Output As #1
    Print #1, sReturn;
    Close #1
Can some code that exact thing for me in PHP? I had someone do it but they must have left out some part and I don't understand VB at ALL. Please and thank you! ^^