If you're at all interested I just whipped up a little program that will produce a specified amount of random black and white images and see if they match a certain image that you specify at the beginning.
Randomize Timer( )
If Path Exist( "Images" ) = 0
Make Directory "Images"
EndIf
NumberOfImages as Integer
Width as Integer
Height as Integer
IsBlack as Integer
ImageFile as String
Input "Number of Images to Create: ", NumberOfImages
Input "Image to check for a match with: ", ImageFile
Load Image ImageFile, 1
Width = Image Width( 1 )
Height = Image Height( 1 )
For I = 1 to NumberOfImages + 1
For Y = 0 to Height
For X = 0 to Width
IsBlack = Rnd( 1 )
If IsBlack = 1
Dot X, Y, 0
Else
Dot X, Y, RGB( 255, 255, 255 )
EndIf
Next X
Next Y
Get Image 2, 0, 0, Width, Height, 3
If ImagesMatch( 1, 2 )
Save Image "Images/IMAGEMATCH" + Str$( I ) + ".png", 2
Else
Save Image "Images/NOMATCH" + Str$( I ) + ".png", 2
EndIf
Delete Image 2
Sync
Next I
CLS
Print "Done, press any key to continue..."
Wait Key
End
Function ImagesMatch( Img1 as Integer, Img2 as Integer )
ImageWidth as Integer
ImageHeight as Integer
ImagePixels as Integer
ImageWidth = Image Width( Img1 )
ImageHeight = Image Height( Img1 )
ImagePixels = ImageWidth * ImageHeight
Make Memblock From Image 1, Img1
Make Memblock From Image 2, Img2
ImagesMatch as Integer
ImagesMatch = 0
For A = 12 to Get Memblock Size( 1 ) - 4 step 4
If Memblock Byte( 1, A ) = Memblock Byte( 2, A ) and Memblock Byte( 1, A + 1 ) = Memblock Byte( 2, A + 1 ) and Memblock Byte( 1, A + 2 ) = Memblock Byte( 2, A + 2 )
ImagesMatch = 1
Else
ImagesMatch = 0
ExitFunction 0
EndIf
Next A
Delete Memblock 1
Delete Memblock 2
EndFunction ImagesMatch
I made a 2px by 3px image, and out of the 5000 images it made only 20 or so matched the original. So making anything with it that is recognizable of any size is almost impossible.
