Local $x=GUICreate("",1000,300,0,0,0x80000000), _
$s=Random(1,9*9^7,1),$t=StringSplit(ClipGet(),"")
For $i=1 To $t[0];...............................
c($i,0,9,$s/Asc($t[$i]));........................
Next;............................................
Local $r=GUISetState(),$o="",$h=c(0,0,9,$s);.....
For $i=1 To $t[0];...............................
$O&=Chr($s/pixelGetColor($i,0,$x));..............
Next;............................................
GUICtrlCreateEdit($o,5,20,990,275);..............
Do;..............................................
Until GUIGetMsg()=-3;............................
Func c($2,$3,$4,$5);.............................
GUICtrlCreateLabel("",$2,$3,1,$4);...............
GUICtrlSetBkColor(-1,$5);........................
EndFunc;.........................................