Posted to tcl by hypnotoad at Wed Sep 14 11:05:49 GMT 2016view raw
- image create photo ~/Downloads/puzzle.png
- set pel {}
- set char -1
- array unset message *
- set result {}
- for {set y 0} {$y < 163} {incr y} {
- for {set x 0} {$x < 92} {incr x} {
- set c [image1 get $x $y]
- if {$c != $pel} {
- set pel $c
- if {$char>=0} {
- append result [format %c $message($char)]
- }
- incr char
- set message($char) 1
- } else {
- incr message($char)
- }
- }
- }
- #parray message
- puts $result
- set decode {}
- foreach bit [split $result -] {
- append decode [format %c 0x$bit]
- }
- puts $decode