From c9e2f7807e014e7679ddd7af2e984aea537a11b9 Mon Sep 17 00:00:00 2001
From: "martin.holst@gmail.com"
<martin.holst@gmail.com@ef4ab9da-24cd-11de-8aaa-f3a34680c41f>
Date: Thu, 3 Oct 2013 13:56:11 +0000
Subject: [PATCH] Added a utility script to convert a 'dumpdata.bin'-file into
the 'eml'-format that the emulator uses. Did not find any built-in way to do
this, perhaps such functionality already exists.. ?
---
client/scripts/dumptoemul.lua | 121 ++++++++++++++++++++++++++++++++++
1 file changed, 121 insertions(+)
create mode 100644 client/scripts/dumptoemul.lua
diff --git a/client/scripts/dumptoemul.lua b/client/scripts/dumptoemul.lua
new file mode 100644
index 00000000..26e69fcc
--- /dev/null
+++ b/client/scripts/dumptoemul.lua
@@ -0,0 +1,121 @@
+-- The getopt-functionality is loaded from pm3/getopt.lua
+-- Have a look there for further details
+getopt = require('getopt')
+bin = require('bin')
+
+example = "script run 14araw -x 6000F57b"
+author = "Martin Holst Swende"
+usage = "script run htmldump [-f <file>]"
+desc =[[
+This script takes a dumpfile from 'hf mf dump' and converts it to a format that can be used
+by the emulator
+
+Arguments:
+ -h This help
+ -i <file> Specifies the dump-file (input). If omitted, 'dumpdata.bin' is used
+ -o <filename> Speciies the output file. If omitted, <uid>.eml is used.
+
+]]
+
+-------------------------------
+-- Some utilities
+-------------------------------
+
+---
+-- A debug printout-function
+function dbg(args)
+ if DEBUG then
+ print("###", args)
+ end
+end
+---
+-- This is only meant to be used when errors occur
+function oops(err)
+ print("ERROR: ",err)
+end
+
+
+---
+-- Usage help
+function help()
+ print(desc)
+ print("Example usage")
+ print(example)
+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")
+ --print(string.len(t))
+ len = string.len(t)
+ local len,hex = bin.unpack(("H%d"):format(len),t)
+ --print(len,hex)
+ 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 ascii
+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, "r")
+ if infile == nil then
+ return oops("Could not read file ", input)
+ end
+ local dumpdata = readdump(infile)
+ -- The hex-data is now in ascii-format,
+
+ -- 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)
+
+ 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)
\ No newline at end of file
--
2.39.5