Total PHP Script

[pudge1]

So I found this Visual Basic Program source code. I then converted it to PHP as you can see below. Somewhere along the way I messed up. If you find out where I messed up (I think it may be multiple places) I'll pay you $5. PM! me the new source do NOT post it here.

PHP Code

<?
function Mid($str,$start,$length)
{
$array = explode('',$str);
$number = $start;
while($length > $number)
{
$return .= $array[$number];
$number++;
}
return $return;
}

function Asc($str)
{
ord($str);
}

function Left($str, $length)
{
return substr($str, 0, $length);
}

function Right($str, $length)
{
 $array = explode('',$str);
 while($length > -1)
 {
 $return .= $array[$length];
 $length = $length - 1;
 }
}

function CLng($str)
{
$array = explode('.',$str);
return $array[0];
}

function Len($str)
{
strlen($str);
}

function Decompress($DecompData)
{
    if (Len($DecompData) > 4)
    {
        $ControlCount = Asc(Left($DecompData, 1)) *16777216 + Asc(Mid($DecompData, 2, 1)) *65536 + Asc(Mid($DecompData, 3, 1)) *256 + Asc(Mid($DecompData, 4, 1));
        $DataCount = Asc(Mid($DecompData, 5, 1)) *16777216 + Asc(Mid($DecompData, 6, 1)) *65536 + Asc(Mid($DecompData, 7, 1)) *256 + Asc(Mid($DecompData, 8, 1)) + 9;
        $Decompress = Mid($DecompData, $DataCount, 4);
        $DataCount = $DataCount + 4;
        $ControlBitPos = 0;
        $ControlPos = 9;
    }
    else
    {
    }


        $DataPost = 1;

        while($DataPos < $ControlCount)
        {
            if(pow(2, $ControlBitPos) == (ord(substr($DecompData, $ControlPos, 1))) && pow(2, $ControlBitPos))
            {
                $DecompStart = Len($Decompress) - (CLng(Asc(Mid($DecompData, $DataCount, 1))) *256 + CLng(Asc(Mid($DecompData, $DataCount + 1, 1)))) + 1;
                $DecompLen = Asc(Mid($DecompData, $DataCount + 2, 1));
                $Decompress = $Decompress & Mid($Decompress, $DecompStart, $DecompLen);
                $DataCount = $DataCount + 3;
               }
            else
            {
                $Decompress = $Decompress . Mid($DecompData, $DataCount, 1);
                $DataCount++;
            }

            $ControlBitPos++;


            if($ControlBitPos = 8)
            {
                $ControlBitPos = 0;
                $ControlPos++;
            }
            else
            {
            $Decompress = $DecompData;
            }
            $DataPos++;
        }
}

$FileName = 'test.bin';
$FName = $FileName;

$string56 = array_merge(range('0', '9') , range('a' , 'z'));
$string56 = array_merge($string56 , range('A' , 'Z'));
$zero = '0';
while($zero < 6) { $full .= $string56[rand('0' , count($string56))]; $zero++; }

$data = file_get_contents($FileName);
$return = Decompress($FileName);

$file = fopen($full . '.jpg','w');
fwrite($file,$return);
fclose($file);

echo $return . '<br /><br />';
echo $full . '.jpg';
?>

Visual Basic Code

Public Function sDecompress(sDecompData As String) As String

    Dim lControlCount As Long
    Dim lControlPos As Long
    Dim bControlBitPos As Byte
    Dim lDataCount As Long
    Dim lDataPos As Long
    Dim lDecompStart As Long
    Dim lDecompLen As Long
    

    If Len(sDecompData) > 4 Then
        lControlCount = Asc(Left(sDecompData, 1)) * &H1000000 + Asc(Mid(sDecompData, 2, 1)) * &H10000 + Asc(Mid(sDecompData, 3, 1)) * &H100 + Asc(Mid(sDecompData, 4, 1))
        lDataCount = Asc(Mid(sDecompData, 5, 1)) * &H1000000 + Asc(Mid(sDecompData, 6, 1)) * &H10000 + Asc(Mid(sDecompData, 7, 1)) * &H100 + Asc(Mid(sDecompData, 8, 1)) + 9
        sDecompress = Mid(sDecompData, lDataCount, 4)
        lDataCount = lDataCount + 4
        bControlBitPos = 0
        lControlPos = 9


        For lDataPos = 1 To lControlCount


            If 2 ^ bControlBitPos = (Asc(Mid(sDecompData, lControlPos, 1)) And 2 ^ bControlBitPos) Then
                lDecompStart = Len(sDecompress) - (CLng(Asc(Mid(sDecompData, lDataCount, 1))) * &H100 + CLng(Asc(Mid(sDecompData, lDataCount + 1, 1)))) + 1
                lDecompLen = Asc(Mid(sDecompData, lDataCount + 2, 1))
                sDecompress = sDecompress & Mid(sDecompress, lDecompStart, lDecompLen)
                lDataCount = lDataCount + 3
            Else
                sDecompress = sDecompress & Mid(sDecompData, lDataCount, 1)
                lDataCount = lDataCount + 1
            End If

            bControlBitPos = bControlBitPos + 1


            If bControlBitPos = 8 Then
                bControlBitPos = 0
                lControlPos = lControlPos + 1
            End If

        Next

    Else
        sDecompress = sDecompData
    End If

End Function

'Put a two command buttons (Command1 and
'     Command2) on to a form and paste the fol
'     lowing on to it as well:
Option Explicit
Private Const sFileName = "c:\compressthis.exe" ' the file To be compressed


Private Sub Command1_Click() 'Compress the file

    Dim sReturn As String
    Dim sFileData As String
    
    Open sFileName For Binary As #1
    sFileData = Input(LOF(1), #1)
    Close #1
    sReturn = sCompress(sFileData)
    Debug.Print Len(sReturn), Len(sFileData)
    
    Open Left(sFileName, Len(sFileName) - 3) & "wnc" For Output As #1
    Print #1, sReturn;
    Close #1
End Sub



Private Sub Command2_Click() 'Decompress the file

    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
End Sub

[Nightwalker83]

What does the code do?

[visualAd]

I suggest you start by learning PHP. Go to www.php.net. Look specifically at functions such as ord(), substr() and data type casting.

In addition, please to not post the same question multiple times.

[penagate]

Moved to Project Requests

[pudge1]

I suggest you start by learning PHP. Go to www.php.net. Look specifically at functions such as ord(), substr() and data type casting.

In addition, please to not post the same question multiple times.

I know PHP just fine. That is how I converted that whole entire VB script to PHP. However I made an error somewhere so that the script runs through but doesn't do what it was supposed to.

It is a LZSS Decompresser. So if someone could find where I made an error that would be great. (Not like a syntax error).

[visualAd]

I know PHP just fine. That is how I converted that whole entire VB script to PHP. However I made an error somewhere so that the script runs through but doesn't do what it was supposed to.

It is a LZSS Decompresser. So if someone could find where I made an error that would be great. (Not like a syntax error).

What error messages do you receive? What is the expected output? It is very difficult to debug code if you have not explained how it works and reinvented the wheel by recreating functions that already exist in PHP.

If you can supply me with a quick explanation of what the code is doing (in the form of comments; linked to a specification if possible) and a sample input and the expected output, I will be happy to assist.

It seems apparent to me that if you have consulted the PHP manual you would have known of the existence of the string manipulation functions and how to express a hexadecimal R-Value in the code.

[pudge1]

There are no erorrs the code just isn't working right. I already know one of the problems is that you can't explode('',$array).

[visualAd]

If you cannot provide me with an input file then I cannot test the code, therefore I cannot help you.