1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
function display(inp, n)
local i
if (type(inp) == "string") then
inp = Input(inp)
elseif (type(inp) ~= "table") then
error("Display needs a string or an Input object")
end
i = 0
while(not inp:isclosed()) do
i = i + 1
print(inp:read())
if ((n ~= nil) and (i >= n)) then
return
end
end
end
function pchar(n)
if (not ((n >= 32) and (n <= 127))) then
n = 46 -- aka '.' or 0x2e
end
return hex(n, "%c")
end
function hexdump(inp, from, to, width)
local size, nlines, remaining, data_array, line, byte, outstring
if (type(inp) == "string") then
inp = Input(inp)
elseif (type(inp) ~= "table") then
error("Hexdump needs a string or an Input object")
end
size = inp:getsize()
if (from == nil) then
from = 0
end
if (to == nil) then
to = size
end
if (to > size) then
to = size
end
size = to - from
if (width == nil) then
width = 16
end
nlines = math.floor(size / width)
remaining = math.mod(size, width)
inp:seek(from)
data_array = inp:read(size)
for line = 0, nlines - 1, 1 do
outstring = hex(line * width + from, "%08x ")
for byte = 0, width - 1, 1 do
outstring = outstring .. hex(data_array[line * 16 + byte]) .. " "
end
outstring = outstring .. " "
for byte = 0, width - 1, 1 do
outstring = outstring .. pchar(data_array[line * 16 + byte])
end
print(outstring)
end
if (remaining == 0) then
return
end
outstring = hex(nlines * width + from, "%08x ");
for byte = 0, remaining - 1, 1 do
outstring = outstring .. hex(data_array[nlines * 16 + byte]) .. " "
end
for byte = remaining + 1, width - 1, 1 do
outstring = outstring .. " "
end
outstring = outstring .. " "
for byte = 0, remaining - 1, 1 do
outstring = outstring .. pchar(data_array[nlines * 16 + byte])
end
print(outstring)
end
|
