2c62699f00
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1723 2a923420-c742-0410-a762-8d5b09965624
17 lines
356 B
Plaintext
17 lines
356 B
Plaintext
package require binary
|
|
|
|
proc hexdump data {
|
|
set dump ""
|
|
set n 0
|
|
while {$n < [string bytelength $data]} {
|
|
set bytes [string byterange $data $n $($n+15)]
|
|
binary scan $bytes H* hex
|
|
set hex [regexp -all -inline .. $hex]
|
|
regsub -all -- {[^a-z]} $bytes . ascii
|
|
append dump [format "%04X: %-48s %-16s\n" $n $hex $ascii]
|
|
incr n 16
|
|
}
|
|
puts $dump
|
|
}
|
|
|