proxmark3/client/luascripts/dumptoemul.lua
2019-08-21 23:17:01 +02:00

142 lines
3.5 KiB
Lua

-- The getopt-functionality is loaded from pm3/getopt.lua
-- Have a look there for further details
getopt = require('getopt')
bin = require('bin')
copyright = ''
author = 'Martin Holst Swende'
version = 'v1.0.1'
desc = [[
This script takes a dumpfile from 'hf mf dump' and converts it to a format that can be used
by the emulator
]]
example = [[
script run dumptoemul -i dumpdata-foobar.bin
]]
usage = [[
_script run dumptoemul [-i <file>] [-o <file>]
Arguments:
-h This help
-i <file> Specifies the dump-file (input). If omitted, 'dumpdata.bin' is used
-o <filename> Specifies the output file. If omitted, <uid>.eml is used.
]]
local DEBUG = false
-------------------------------
-- Some utilities
-------------------------------
---
-- A debug printout-function
local function dbg(args)
if not DEBUG then return end
if type(args) == 'table' then
local i = 1
while result[i] do
dbg(result[i])
i = i+1
end
else
print('###', args)
end
end
---
-- This is only meant to be used when errors occur
local function oops(err)
print('ERROR:', err)
core.clearCommandBuffer()
return nil, err
end
---
-- Usage help
function help()
print(copyright)
print(author)
print(version)
print(desc)
print('Example usage')
print(example)
print(usage)
end
local function convert_to_ascii(hexdata)
if string.len(hexdata) % 32 ~= 0 then
return oops(('Bad data, length should be a multiple of 32 (was %d)'):format(string.len(hexdata)))
end
local js,i = '[';
for i = 1, string.len(hexdata),32 do
js = js .."'" ..string.sub(hexdata,i,i+31).."',\n"
end
js = js .. ']'
return js
end
local function readdump(infile)
t = infile:read('*all')
len = string.len(t)
local len,hex = bin.unpack(('H%d'):format(len),t)
return hex
end
local function convert_to_emulform(hexdata)
if string.len(hexdata) % 32 ~= 0 then
return oops(('Bad data, length should be a multiple of 32 (was %d)'):format(string.len(hexdata)))
end
local ascii,i = '';
for i = 1, string.len(hexdata),32 do
ascii = ascii..string.sub(hexdata,i,i+31)..'\n'
end
return string.sub(ascii, 1, -2)
end
local function main(args)
local input = 'dumpdata.bin'
local output
for o, a in getopt.getopt(args, 'i:o:h') do
if o == 'h' then return help() end
if o == 'i' then input = a end
if o == 'o' then output = a end
end
-- Validate the parameters
local infile = io.open(input, 'rb')
if infile == nil then
return oops('Could not read file ', input)
end
local dumpdata = readdump(infile)
-- The hex-data is now in ascii-format,
if dumpdata == NIL then return oops('Dumpfle not loaded') end
-- But first, check the uid
local uid = string.sub(dumpdata, 1, 8)
output = output or (uid .. '.eml')
-- Format some linebreaks
dumpdata = convert_to_emulform(dumpdata)
if dumpdata == NIL then return oops('Dumpfle not loaded') end
local outfile = io.open(output, 'w')
if outfile == nil then
return oops('Could not write to file ', output)
end
outfile:write(dumpdata:lower())
io.close(outfile)
print(('Wrote an emulator-dump to the file %s'):format(output))
end
--[[
In the future, we may implement so that scripts are invoked directly
into a 'main' function, instead of being executed blindly. For future
compatibility, I have done so, but I invoke my main from here.
--]]
main(args)