'Dim bmpHeader As BITMAPINFOHEADER

    Dim bmpFileHeader As BITMAPFILEHEADER

    Dim bmpInfoHeader As BITMAPINFOHEADER

    Dim bytCurrentRow() As Byte

    Dim bytTempBuffer() As Byte

    Dim bytTempBuffer2() As Byte

    Dim lngCurrentPosition As Long

    Dim lWidth As Long, lHeight As Long

    lWidth = (m_lngGraphicWidthBlocks * 8)

    lHeight = (m_lngGraphicHeightBlocks * 8)



    ReDim bytTempBuffer(((m_lngGraphicWidthBlocks * 8) * (m_lngGraphicHeightBlocks * 8)) - 1)

    ReDim bytTempBuffer2((((m_lngGraphicWidthBlocks * 8) * (m_lngGraphicHeightBlocks * 8)) / 2) - 1)

    

    bmpFileHeader.bfType = 19778 'BM

    bmpFileHeader.bfSize = 118 + (((m_lngGraphicWidthBlocks * 8) * (m_lngGraphicHeightBlocks * 8)) \ 2)

    bmpFileHeader.bfOffBits = 118

    

    bmpInfoHeader.biSize = 40

    bmpInfoHeader.biWidth = m_lngGraphicWidthBlocks * 8

    bmpInfoHeader.biHeight = m_lngGraphicHeightBlocks * 8

    bmpInfoHeader.biPlanes = 1

    bmpInfoHeader.biCompression = 0

    bmpInfoHeader.biSizeImage = ((m_lngGraphicWidthBlocks * 8) * (m_lngGraphicHeightBlocks * 8)) \ 2

    bmpInfoHeader.biXPelsPerMeter = 0

    bmpInfoHeader.biYPelsPerMeter = 0

    bmpInfoHeader.biBitCount = 4

    bmpInfoHeader.biClrUsed = 0

    bmpInfoHeader.biClrImportant = 0

    

    For YLine = 0 To m_lngGraphicHeightBlocks - 1

        For XLine = 0 To m_lngGraphicWidthBlocks - 1

            For Y = 0 To 7

                For X = 0 To 7

                    bytTempBuffer((((XLine * 8) + X) + ((YLine * 8) + Y) * (m_lngGraphicWidthBlocks * 8))) = EditBuffer(lngCurrentPosition + X)

                Next X

                lngCurrentPosition = lngCurrentPosition + 8

            Next Y

        Next XLine

    Next YLine

    

    lngCurrentPosition = 0

    For i = 0 To UBound(bytTempBuffer) Step 2

        bytTempBuffer2(lngCurrentPosition) = (bytTempBuffer(i + 1) * 16) Or bytTempBuffer(i)

    Next i

    

    

    Open App.Path & "\Dump.bmp" For Binary As #1

        Put #1, , bmpFileHeader

        Put #1, , bmpInfoHeader

        Put #1, , PaletteData2

        Put #1, , bytTempBuffer2

    Close #1

Originally posted by Xeogred

---

I could try to find Acmlm+Erk. It was an unofficial package myself, and a few others used years ago. A lot of it's functions and stuff were later in 1.9, but there's also a bunch of other extras, and a bunch of uncompleted code and ideas (like 1.A3).

Xeon, ever think about patching these up yourself, or making things for AB's?

I remember hearing about your numerous exploit findings in the past when I was on staff.

---

Originally posted by The Red Snifit

---

I don't smoke, I also think that pot should be banned, not only damage to lungs, but the brain as well... (DON'T SMOKE, AT ALL!!!)

---