Read and print binary file

[sagasw]

local f = assert(io.open([[c:\Setup.ico]], "rb"))
local block = 16

while true do
local bytes = f:read(block)
if not bytes then break end

for b in string.gfind(bytes, ".") do
io.write(string.format("0x%02X, ", string.byte(b)))
end

io.write("\n")
--io.write(string.rep(" ", block - string.len(bytes) + 1))
--io.write(string.gsub(bytes, "%c", "."), "\n")
end