Foro de elhacker.net

Private Declare Function GetBitmapBits Lib "gdi32" _
    (ByVal hBitmap As Long, ByVal dwCount As Long, _
    lpBits As Any) As Long


Private Declare Function GetObject Lib "gdi32" Alias _
    "GetObjectA" (ByVal hObject As Long, ByVal nCount _
    As Long, lpObject As Any) As Long

Private Type BITMAP
      bmType As Long
      bmWidth As Long
      bmHeight As Long
      bmWidthBytes As Long
      bmPlanes As Integer
      bmBitsPixel As Integer
      bmBits As Long
End Type


Private Function GetBitmapData(pic As PictureBox) As String

      Dim tBitmap As BITMAP
      Dim bPicBytes() As Byte
      Dim lByteLen As Long
      Dim lBytesPerLine As Long

      GetObject Picture1.Image.Handle, Len(tBitmap), tBitmap

      lBytesPerLine = (tBitmap.bmWidth * 4)
      lByteLen = lBytesPerLine * tBitmap.bmHeight
      ReDim bPicBytes(1 To lByteLen)
      GetBitmapBits pic.Picture.Handle, UBound(bPicBytes), bPicBytes(1)
      
      GetBitmapData = bPicBytes
End Function

Private Sub Form_Load()
MsgBox GetBitmapData(Picture1) = GetBitmapData(Picture2)
End Sub

Option Explicit

'GDI32
Private Declare Function GetBitmapBits Lib "GDI32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function GetObject Lib "GDI32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Private Type BITMAP
    bmType          As Long
    bmWidth         As Long
    bmHeight        As Long
    bmWidthBytes    As Long
    bmPlanes        As Integer
    bmBitsPixel     As Integer
    bmBits          As Long
End Type

Private Sub GetBitmapData(ByVal pPIC As PictureBox, ByRef bvRet() As Byte)
    Dim tBitmap       As BITMAP
    
    Call GetObject(pPIC.Image.Handle, Len(tBitmap), tBitmap)

    ReDim bvRet(0 To (tBitmap.bmWidth * 4) * tBitmap.bmHeight) As Byte
    
    Call GetBitmapBits(pPIC.Picture.Handle, UBound(bvRet), bvRet(0))
End Sub

Public Function GetHash(ByRef bvArray() As Byte) As Double
    Dim i           As Long
 
    For i = LBound(bvArray) To UBound(bvArray)
        GetHash = GetHash + (bvArray(i) Xor (((GetHash And &HFFFF0000) \ &H10000) And &HFF))
    Next i
End Function

Private Sub Form_Load()
    Dim p1()        As Byte
    Dim p2()        As Byte
    
    Call GetBitmapData(Picture1, p1)
    Call GetBitmapData(Picture2, p2)
    
    If GetHash(p1) = GetHash(p2) Then MsgBox "IGUALES!"
End Sub