1:   2:   3:   4:   5:   6:   7:   8:   9:  10:  11:  12:  13:  14:  15:  16:  17:  18:  19:  20:  21:  22:  23:  24:  25:  26:  27:  28:  29:  30:  31:  32:  33:  34:  35:  36:  37:  38:  39:  40:  41:  42:  43:  44:  45:  46:  47:  48:  49:  50:  51:  52:  53:  54:  55:  56:  57:  58:  59:  60:  61:  62:  63:  64:  65:  66:  67:  68:  69:  70:  71:  72:  73:  74:  75:  76:  77:  78:  79:  80:  81:  82:  83:  84:  85:  86:  87:  88:  89:  90:  91:  92:  93:  94:  95:  96:  97:  98:  99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165: 166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220: 221: 222: 223: 224: 225: 226: 227: 228: 229: 230: 231: 232: 233: 234: 235: 236: 237: 238: 239: 240: 241: 242: 243: 244: 245: 246: 247: 248: 249: 250: 251: 252: 253: 254: 255: 256: 257: 258: 259: 260: 261: 262: 263: 264: 265: 266: 267: 268: 269: 270: 271: 272: 273: 274: 275: 276: 277: 278: 279: 280: 281: 282: 283: 284: 285: 286: 287: 288: 289: 290: 291: 292: 293: 294: 295: 296: 297: 298: 299: 300: 301: 302: 303: 304: 305: 306: 307: 308: 309: 310: 311: 312: 313: 314: 315: 316: 317: 318: 319: 320: 321: 322: 323: 324: 325: 326: 327: 328: 329: 330: 331: 332: 333: 334: 335: 336: 337: 338: 339: 340: 341: 342: 343: 344: 345: 346: 347: 348: 349: 350: 351: 352: 353: 354: 355: 356: 357: 358: 359: 360: 361: 362: 363: 364: 365: 366: 367: 368: 369: 370: 371: 372: 373: 374: 375: 376: 377: 378: 379: 380: 381: 382: 383: 384: 385: 386: 387: 388: 389: 390: 391: 392: 393: 394: 395: 396: 397: 398: 399: 400: 401: 402: 403: 404: 405: 406: 407: 408: 409: 410: 411: 412: 413: 414: 415: 416: 417: 418: 419: 420: 421: 422: 423: 424: 425: 426: 427: 428: 429: 430: 431: 432: 433: 434: 435: 436: 437: 438: 439: 440: 441: 442: 443: 444: 445: 446: 447: 448: 449: 450: 451: 452: 453: 454: 455: 456: 457: 458: 459: 460: 461: 462: 463: 464: 465: 466: 467: 468: 469: 470: 471: 472: 473: 474: 475: 476: 477: 478: 479: 480: 481: 482: 483: 484: 485: 486: 487: 488: 489: 490: 491: 492: 493: 494: 495: 496: 497: 498: 499: 500: 501: 502: 503: 504: 505: 506: 507: 508: 509: 510: 511: 512: 513: 514: 515: 516: 517: 518: 519: 520: 521: 522: 523: 524: 525: 526: 527: 528: 529: 530: 531: 532: 533: 534: 535: 536: 537: 538: 539: 540: 541: 542: 543: 544: 545: 546: 547: 548: 549: 550: 551: 552: 553: 554: 555: 556: 557: 558: 559: 560: 561: 562: 563: 564: 565: 566: 567: 568: 569: 570: 571: 572: 573: 574: 575: 576: 577: 578: 579: 580: 581: 582: 583: 584: 585: 586: 587: 588: 589: 590: 591: 592: 593: 594: 595: 596: 597: 598: 599: 600: 601: 602: 603: 604: 605: 606: 607: 608: 609: 610: 611: 612: 613: 614: 615: 616: 617: 618: 619: 620: 621: 622: 623: 624: 625: 626: 627: 628: 629: 630: 631: 632: 633: 634: 635: 636: 637: 638: 639: 640: 641: 642: 643: 644: 645: 646: 647: 648: 649: 650: 651: 652: 653: 654: 655: 656: 657: 658: 659: 660: 661: 662: 663: 664: 665: 666: 667: 668: 669: 670: 671: 672: 673: 674: 675: 676: 677: 678: 679: 680: 681: 682: 683: 684: 685: 686: 687: 688: 689: 690: 691: 692: 693: 694: 695: 696: 697: 698: 699: 700: 701: 702: 703: 704: 705: 

<?php

/**
 * Classes used for reading gif files (in case PHP's GD doesn't provide the
 * proper gif-functions).
 *
 * Gif Util copyright 2003 by Yamasoft (S/C). All rights reserved.
 * Do not remove this portion of the header, or use these functions except
 * from the original author. To get it, please navigate to:
 * http://www.yamasoft.com/php-gif.zip
 *
 * Simple Machines Forum (SMF)
 *
 * @package SMF
 * @author Simple Machines https://www.simplemachines.org
 * @copyright 2020 Simple Machines and individual contributors
 * @license https://www.simplemachines.org/about/smf/license.php BSD
 *
 * @version 2.1 RC2
 */

if (!defined('SMF'))
    die('No direct access...');

/**
 * Class gif_lzw_compression
 *
 * An implementation of the LZW compression algorithm
 */
class gif_lzw_compression
{
    public $MAX_LZW_BITS;
    public $Fresh, $CodeSize, $SetCodeSize, $MaxCode, $MaxCodeSize, $FirstCode, $OldCode;
    public $ClearCode, $EndCode, $Next, $Vals, $Stack, $sp, $Buf, $CurBit, $LastBit, $Done, $LastByte;

    public function __construct()
    {
        $this->MAX_LZW_BITS = 12;
        unset($this->Next, $this->Vals, $this->Stack, $this->Buf);

        $this->Next = range(0, (1 << $this->MAX_LZW_BITS) - 1);
        $this->Vals = range(0, (1 << $this->MAX_LZW_BITS) - 1);
        $this->Stack = range(0, (1 << ($this->MAX_LZW_BITS + 1)) - 1);
        $this->Buf = range(0, 279);
    }

    public function decompress($data, &$datLen)
    {
        $stLen = strlen($data);
        $datLen = 0;
        $ret = '';

        $this->LZWCommand($data, true);

        while (($iIndex = $this->LZWCommand($data, false)) >= 0)
            $ret .= chr($iIndex);

        $datLen = $stLen - strlen($data);

        if ($iIndex != -2)
            return false;

        return $ret;
    }

    public function LZWCommand(&$data, $bInit)
    {
        if ($bInit)
        {
            $this->SetCodeSize = ord($data[0]);
            $data = substr($data, 1);

            $this->CodeSize = $this->SetCodeSize + 1;
            $this->ClearCode = 1 << $this->SetCodeSize;
            $this->EndCode = $this->ClearCode + 1;
            $this->MaxCode = $this->ClearCode + 2;
            $this->MaxCodeSize = $this->ClearCode << 1;

            $this->GetCode($data, $bInit);

            $this->Fresh = 1;
            for ($i = 0; $i < $this->ClearCode; $i++)
            {
                $this->Next[$i] = 0;
                $this->Vals[$i] = $i;
            }

            for (; $i < (1 << $this->MAX_LZW_BITS); $i++)
            {
                $this->Next[$i] = 0;
                $this->Vals[$i] = 0;
            }

            $this->sp = 0;
            return 1;
        }

        if ($this->Fresh)
        {
            $this->Fresh = 0;
            do
            {
                $this->FirstCode = $this->GetCode($data, $bInit);
                $this->OldCode = $this->FirstCode;
            }
            while ($this->FirstCode == $this->ClearCode);

            return $this->FirstCode;
        }

        if ($this->sp > 0)
        {
            $this->sp--;
            return $this->Stack[$this->sp];
        }

        while (($Code = $this->GetCode($data, $bInit)) >= 0)
        {
            if ($Code == $this->ClearCode)
            {
                for ($i = 0; $i < $this->ClearCode; $i++)
                {
                    $this->Next[$i] = 0;
                    $this->Vals[$i] = $i;
                }

                for (; $i < (1 << $this->MAX_LZW_BITS); $i++)
                {
                    $this->Next[$i] = 0;
                    $this->Vals[$i] = 0;
                }

                $this->CodeSize = $this->SetCodeSize + 1;
                $this->MaxCodeSize = $this->ClearCode << 1;
                $this->MaxCode = $this->ClearCode + 2;
                $this->sp = 0;
                $this->FirstCode = $this->GetCode($data, $bInit);
                $this->OldCode = $this->FirstCode;

                return $this->FirstCode;
            }

            if ($Code == $this->EndCode)
                return -2;

            $InCode = $Code;
            if ($Code >= $this->MaxCode)
            {
                $this->Stack[$this->sp] = $this->FirstCode;
                $this->sp++;
                $Code = $this->OldCode;
            }

            while ($Code >= $this->ClearCode)
            {
                $this->Stack[$this->sp] = $this->Vals[$Code];
                $this->sp++;

                if ($Code == $this->Next[$Code]) // Circular table entry, big GIF Error!
                    return -1;

                $Code = $this->Next[$Code];
            }

            $this->FirstCode = $this->Vals[$Code];
            $this->Stack[$this->sp] = $this->FirstCode;
            $this->sp++;

            if (($Code = $this->MaxCode) < (1 << $this->MAX_LZW_BITS))
            {
                $this->Next[$Code] = $this->OldCode;
                $this->Vals[$Code] = $this->FirstCode;
                $this->MaxCode++;

                if (($this->MaxCode >= $this->MaxCodeSize) && ($this->MaxCodeSize < (1 << $this->MAX_LZW_BITS)))
                {
                    $this->MaxCodeSize *= 2;
                    $this->CodeSize++;
                }
            }

            $this->OldCode = $InCode;
            if ($this->sp > 0)
            {
                $this->sp--;
                return $this->Stack[$this->sp];
            }
        }

        return $Code;
    }

    public function GetCode(&$data, $bInit)
    {
        if ($bInit)
        {
            $this->CurBit = 0;
            $this->LastBit = 0;
            $this->Done = 0;
            $this->LastByte = 2;

            return 1;
        }

        if (($this->CurBit + $this->CodeSize) >= $this->LastBit)
        {
            if ($this->Done)
            {
                // Ran off the end of my bits...
                if ($this->CurBit >= $this->LastBit)
                    return 0;

                return -1;
            }

            $this->Buf[0] = $this->Buf[$this->LastByte - 2];
            $this->Buf[1] = $this->Buf[$this->LastByte - 1];

            $count = ord($data[0]);
            $data = substr($data, 1);

            if ($count)
            {
                for ($i = 0; $i < $count; $i++)
                    $this->Buf[2 + $i] = ord($data[$i]);

                $data = substr($data, $count);
            }
            else
                $this->Done = 1;

            $this->LastByte = 2 + $count;
            $this->CurBit = ($this->CurBit - $this->LastBit) + 16;
            $this->LastBit = (2 + $count) << 3;
        }

        $iRet = 0;
        for ($i = $this->CurBit, $j = 0; $j < $this->CodeSize; $i++, $j++)
            $iRet |= (($this->Buf[intval($i / 8)] & (1 << ($i % 8))) != 0) << $j;

        $this->CurBit += $this->CodeSize;
        return $iRet;
    }
}

class gif_color_table
{
    public $m_nColors;
    public $m_arColors;

    public function __construct()
    {
        unset($this->m_nColors, $this->m_arColors);
    }

    public function load($lpData, $num)
    {
        $this->m_nColors = 0;
        $this->m_arColors = array();

        for ($i = 0; $i < $num; $i++)
        {
            $rgb = substr($lpData, $i * 3, 3);
            if (strlen($rgb) < 3)
                return false;

            $this->m_arColors[] = (ord($rgb[2]) << 16) + (ord($rgb[1]) << 8) + ord($rgb[0]);
            $this->m_nColors++;
        }

        return true;
    }

    public function toString()
    {
        $ret = '';

        for ($i = 0; $i < $this->m_nColors; $i++)
        {
            $ret .=
                chr(($this->m_arColors[$i] & 0x000000FF)) . // R
                chr(($this->m_arColors[$i] & 0x0000FF00) >> 8) . // G
                chr(($this->m_arColors[$i] & 0x00FF0000) >> 16);  // B
        }

        return $ret;
    }

    public function colorIndex($rgb)
    {
        $dif = 0;
        $rgb = intval($rgb) & 0xFFFFFF;
        $r1 = ($rgb & 0x0000FF);
        $g1 = ($rgb & 0x00FF00) >> 8;
        $b1 = ($rgb & 0xFF0000) >> 16;
        $idx = -1;

        for ($i = 0; $i < $this->m_nColors; $i++)
        {
            $r2 = ($this->m_arColors[$i] & 0x000000FF);
            $g2 = ($this->m_arColors[$i] & 0x0000FF00) >> 8;
            $b2 = ($this->m_arColors[$i] & 0x00FF0000) >> 16;
            $d = abs($r2 - $r1) + abs($g2 - $g1) + abs($b2 - $b1);

            if (($idx == -1) || ($d < $dif))
            {
                $idx = $i;
                $dif = $d;
            }
        }

        return $idx;
    }
}

class gif_file_header
{
    public $m_lpVer, $m_nWidth, $m_nHeight, $m_bGlobalClr, $m_nColorRes;
    public $m_bSorted, $m_nTableSize, $m_nBgColor, $m_nPixelRatio;
    public $m_colorTable;

    public function __construct()
    {
        unset($this->m_lpVer, $this->m_nWidth, $this->m_nHeight, $this->m_bGlobalClr, $this->m_nColorRes);
        unset($this->m_bSorted, $this->m_nTableSize, $this->m_nBgColor, $this->m_nPixelRatio, $this->m_colorTable);
    }

    public function load($lpData, &$hdrLen)
    {
        $hdrLen = 0;

        $this->m_lpVer = substr($lpData, 0, 6);
        if (($this->m_lpVer != 'GIF87a') && ($this->m_lpVer != 'GIF89a'))
            return false;

        list ($this->m_nWidth, $this->m_nHeight) = array_values(unpack('v2', substr($lpData, 6, 4)));

        if (!$this->m_nWidth || !$this->m_nHeight)
            return false;

        $b = ord(substr($lpData, 10, 1));
        $this->m_bGlobalClr = ($b & 0x80) ? true : false;
        $this->m_nColorRes = ($b & 0x70) >> 4;
        $this->m_bSorted = ($b & 0x08) ? true : false;
        $this->m_nTableSize = 2 << ($b & 0x07);
        $this->m_nBgColor = ord(substr($lpData, 11, 1));
        $this->m_nPixelRatio = ord(substr($lpData, 12, 1));
        $hdrLen = 13;

        if ($this->m_bGlobalClr)
        {
            $this->m_colorTable = new gif_color_table();
            if (!$this->m_colorTable->load(substr($lpData, $hdrLen), $this->m_nTableSize))
                return false;

            $hdrLen += 3 * $this->m_nTableSize;
        }

        return true;
    }
}

class gif_image_header
{
    public $m_nLeft, $m_nTop, $m_nWidth, $m_nHeight, $m_bLocalClr;
    public $m_bInterlace, $m_bSorted, $m_nTableSize, $m_colorTable;

    public function __construct()
    {
        unset($this->m_nLeft, $this->m_nTop, $this->m_nWidth, $this->m_nHeight, $this->m_bLocalClr);
        unset($this->m_bInterlace, $this->m_bSorted, $this->m_nTableSize, $this->m_colorTable);
    }

    public function load($lpData, &$hdrLen)
    {
        $hdrLen = 0;

        // Get the width/height/etc. from the header.
        list ($this->m_nLeft, $this->m_nTop, $this->m_nWidth, $this->m_nHeight) = array_values(unpack('v4', substr($lpData, 0, 8)));

        if (!$this->m_nWidth || !$this->m_nHeight)
            return false;

        $b = ord($lpData[8]);
        $this->m_bLocalClr = ($b & 0x80) ? true : false;
        $this->m_bInterlace = ($b & 0x40) ? true : false;
        $this->m_bSorted = ($b & 0x20) ? true : false;
        $this->m_nTableSize = 2 << ($b & 0x07);
        $hdrLen = 9;

        if ($this->m_bLocalClr)
        {
            $this->m_colorTable = new gif_color_table();
            if (!$this->m_colorTable->load(substr($lpData, $hdrLen), $this->m_nTableSize))
                return false;

            $hdrLen += 3 * $this->m_nTableSize;
        }

        return true;
    }
}

class gif_image
{
    public $m_disp, $m_bUser, $m_bTrans, $m_nDelay, $m_nTrans, $m_lpComm;
    public $m_gih, $m_data, $m_lzw;

    public function __construct()
    {
        unset($this->m_disp, $this->m_bUser, $this->m_nDelay, $this->m_nTrans, $this->m_lpComm, $this->m_data);
        $this->m_gih = new gif_image_header();
        $this->m_lzw = new gif_lzw_compression();
    }

    public function load($data, &$datLen)
    {
        $datLen = 0;

        while (true)
        {
            $b = ord($data[0]);
            $data = substr($data, 1);
            $datLen++;

            switch ($b)
            {
                // Extension...
                case 0x21:
                    $len = 0;
                    if (!$this->skipExt($data, $len))
                        return false;

                    $datLen += $len;
                    break;

                // Image...
                case 0x2C:
                    // Load the header and color table.
                    $len = 0;
                    if (!$this->m_gih->load($data, $len))
                        return false;

                    $data = substr($data, $len);
                    $datLen += $len;

                    // Decompress the data, and ride on home ;).
                    $len = 0;
                    if (!($this->m_data = $this->m_lzw->decompress($data, $len)))
                        return false;

                    $datLen += $len;

                    if ($this->m_gih->m_bInterlace)
                        $this->deInterlace();

                    return true;

                case 0x3B: // EOF
                default:
                    return false;
            }
        }
        return false;
    }

    public function skipExt(&$data, &$extLen)
    {
        $extLen = 0;

        $b = ord($data[0]);
        $data = substr($data, 1);
        $extLen++;

        switch ($b)
        {
            // Graphic Control...
            case 0xF9:
                $b = ord($data[1]);
                $this->m_disp = ($b & 0x1C) >> 2;
                $this->m_bUser = ($b & 0x02) ? true : false;
                $this->m_bTrans = ($b & 0x01) ? true : false;
                list ($this->m_nDelay) = array_values(unpack('v', substr($data, 2, 2)));
                $this->m_nTrans = ord($data[4]);
                break;

            // Comment...
            case 0xFE:
                $this->m_lpComm = substr($data, 1, ord($data[0]));
                break;

            // Plain text...
            case 0x01:
                break;

            // Application...
            case 0xFF:
                break;
        }

        // Skip default as defs may change.
        $b = ord($data[0]);
        $data = substr($data, 1);
        $extLen++;
        while ($b > 0)
        {
            $data = substr($data, $b);
            $extLen += $b;
            $b = ord($data[0]);
            $data = substr($data, 1);
            $extLen++;
        }
        return true;
    }

    public function deInterlace()
    {
        $data = $this->m_data;

        for ($i = 0; $i < 4; $i++)
        {
            switch ($i)
            {
                case 0:
                    $s = 8;
                    $y = 0;
                    break;

                case 1:
                    $s = 8;
                    $y = 4;
                    break;

                case 2:
                    $s = 4;
                    $y = 2;
                    break;

                case 3:
                    $s = 2;
                    $y = 1;
                    break;
            }

            for (; $y < $this->m_gih->m_nHeight; $y += $s)
            {
                $lne = substr($this->m_data, 0, $this->m_gih->m_nWidth);
                $this->m_data = substr($this->m_data, $this->m_gih->m_nWidth);

                $data =
                    substr($data, 0, $y * $this->m_gih->m_nWidth) .
                    $lne .
                    substr($data, ($y + 1) * $this->m_gih->m_nWidth);
            }
        }

        $this->m_data = $data;
    }
}

class gif_file
{
    public $header, $image, $data, $loaded;

    public function __construct()
    {
        $this->data = '';
        $this->loaded = false;
        $this->header = new gif_file_header();
        $this->image = new gif_image();
    }

    public function loadFile($filename, $iIndex)
    {
        if ($iIndex < 0)
            return false;

        $this->data = @file_get_contents($filename);
        if ($this->data === false)
            return false;

        // Tell the header to load up....
        $len = 0;
        if (!$this->header->load($this->data, $len))
            return false;

        $this->data = substr($this->data, $len);

        // Keep reading (at least once) so we get to the actual image we're looking for.
        for ($j = 0; $j <= $iIndex; $j++)
        {
            $imgLen = 0;
            if (!$this->image->load($this->data, $imgLen))
                return false;

            $this->data = substr($this->data, $imgLen);
        }

        $this->loaded = true;
        return true;
    }

    public function get_png_data($background_color)
    {
        if (!$this->loaded)
            return false;

        // Prepare the color table.
        if ($this->image->m_gih->m_bLocalClr)
        {
            $colors = $this->image->m_gih->m_nTableSize;
            $pal = $this->image->m_gih->m_colorTable->toString();

            if ($background_color != -1)
                $background_color = $this->image->m_gih->m_colorTable->colorIndex($background_color);
        }
        elseif ($this->header->m_bGlobalClr)
        {
            $colors = $this->header->m_nTableSize;
            $pal = $this->header->m_colorTable->toString();

            if ($background_color != -1)
                $background_color = $this->header->m_colorTable->colorIndex($background_color);
        }
        else
        {
            $colors = 0;
            $background_color = -1;
        }

        if ($background_color == -1)
            $background_color = $this->header->m_nBgColor;

        $data = &$this->image->m_data;
        $header = &$this->image->m_gih;

        $i = 0;
        $bmp = '';

        // Prepare the bitmap itself.
        for ($y = 0; $y < $this->header->m_nHeight; $y++)
        {
            $bmp .= "\x00";

            for ($x = 0; $x < $this->header->m_nWidth; $x++, $i++)
            {
                // Is this in the proper range?  If so, get the specific pixel data...
                if ($x >= $header->m_nLeft && $y >= $header->m_nTop && $x < ($header->m_nLeft + $header->m_nWidth) && $y < ($header->m_nTop + $header->m_nHeight))
                    $bmp .= $data[$i];
                // Otherwise, this is background...
                else
                    $bmp .= chr($background_color);
            }
        }

        $bmp = gzcompress($bmp, 9);

        // Output the basic signature first of all.
        $out = "\x89\x50\x4E\x47\x0D\x0A\x1A\x0A";

        // Now, we want the header...
        $out .= "\x00\x00\x00\x0D";
        $tmp = 'IHDR' . pack('N', (int) $this->header->m_nWidth) . pack('N', (int) $this->header->m_nHeight) . "\x08\x03\x00\x00\x00";
        $out .= $tmp . pack('N', smf_crc32($tmp));

        // The palette, assuming we have one to speak of...
        if ($colors > 0)
        {
            $out .= pack('N', (int) $colors * 3);
            $tmp = 'PLTE' . $pal;
            $out .= $tmp . pack('N', smf_crc32($tmp));
        }

        // Do we have any transparency we want to make available?
        if ($this->image->m_bTrans && $colors > 0)
        {
            $out .= pack('N', (int) $colors);
            $tmp = 'tRNS';

            // Stick each color on - full transparency or none.
            for ($i = 0; $i < $colors; $i++)
                $tmp .= $i == $this->image->m_nTrans ? "\x00" : "\xFF";

            $out .= $tmp . pack('N', smf_crc32($tmp));
        }

        // Here's the data itself!
        $out .= pack('N', strlen($bmp));
        $tmp = 'IDAT' . $bmp;
        $out .= $tmp . pack('N', smf_crc32($tmp));

        // EOF marker...
        $out .= "\x00\x00\x00\x00" . 'IEND' . "\xAE\x42\x60\x82";

        return $out;
    }
}

// 64-bit only functions?
if (!function_exists('smf_crc32'))
{
    require_once $sourcedir . '/Subs-Compat.php';
}

?>