14
15
16
17
18
19
20
21
22
23
24
25
26
|
if {$mode!="hex" && $mode!="base64"} {
puts stderr "Usage: $argv0 (hex|base64) FILENAME"
exit
}
set filename [lindex $argv 1]
set fd [open $filename rb]
set x [binary encode $mode [read $fd]]
puts " wapp-unsafe \[binary decode $mode \173"
set n [string length $x]
for {set i 0} {$i<$n} {incr i 64} {
puts " [string range $x $i [expr {$i+63}]]"
}
puts " \175\]"
|
|
|
14
15
16
17
18
19
20
21
22
23
24
25
26
|
if {$mode!="hex" && $mode!="base64"} {
puts stderr "Usage: $argv0 (hex|base64) FILENAME"
exit
}
set filename [lindex $argv 1]
set fd [open $filename rb]
set x [binary encode $mode [read $fd]]
puts " w3-unsafe \[binary decode $mode \173"
set n [string length $x]
for {set i 0} {$i<$n} {incr i 64} {
puts " [string range $x $i [expr {$i+63}]]"
}
puts " \175\]"
|