Posted to tcl by hypnotoad at Wed Sep 14 11:05:49 GMT 2016view raw

  1. image create photo ~/Downloads/puzzle.png
  2. set pel {}
  3. set char -1
  4. array unset message *
  5. set result {}
  6. for {set y 0} {$y < 163} {incr y} {
  7. for {set x 0} {$x < 92} {incr x} {
  8. set c [image1 get $x $y]
  9. if {$c != $pel} {
  10. set pel $c
  11. if {$char>=0} {
  12. append result [format %c $message($char)]
  13. }
  14. incr char
  15. set message($char) 1
  16. } else {
  17. incr message($char)
  18. }
  19. }
  20. }
  21. #parray message
  22.  
  23. puts $result
  24. set decode {}
  25. foreach bit [split $result -] {
  26. append decode [format %c 0x$bit]
  27. }
  28. puts $decode