Local $9=InputBox("",""),$s=Random(100,9*10^7,1),$x=GUICreate("",-1,-1,-1,-1,-1,0x02000000),$t=StringSplit($9,""),$a=GUICtrlCreateGraphic(0,0)
c($a,0,0,9,$s)
For $i=1 To $t[0]
c($a,$i,0,9,$s/Asc($t[$i]))
Next
GUISetState()
Local $lol=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$s),$Col=PixelGetColor($lol[0],$lol[1],$x),$o=""
For $i=10 To 9+$t[0]
$p=pixelGetColor($lol[0]-9+$i,$lol[1],$x)
$O&=Chr($s/$p)
Next
GUICtrlCreateLabel($o,0,21,400,380)
Do
Until GUIGetMsg()=-3
Func c($1,$2,$3,$4,$5)
GUICtrlSetGraphic($1,8,$5)
GUICtrlSetGraphic($1,6,$2,$3)
GUICtrlSetGraphic($1,2,$2,$3+$4)
GUICtrlSetGraphic($1,22)
EndFunc