forked from hummypkg/webif
18 lines
400 B
Plaintext
18 lines
400 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 -- {[\x01-\x1f\x80-\xff]} [\
|
|
string map {\x00 .} $bytes] . ascii
|
|
append dump [format "%04X: %-48s %-16s\n" $n $hex $ascii]
|
|
incr n 16
|
|
}
|
|
puts $dump
|
|
}
|
|
|