cvs.zerfleddert.de Git - proxmark3-svn/blob - client/scripts/dumptoemul-mfu.lua

   1 -- The getopt-functionality is loaded from pm3/getopt.lua
   2 -- Have a look there for further details
   3 getopt = require('getopt')
   4 bin = require('bin')
   5 example = "script run dumptoemul-mfu -i dumpdata-foobar.bin"
   6 author = "Martin Holst Swende \n @Marshmellow"
   7 usage = "script run dumptoemul-mfu [-i <file>] [-o <file>]"
   8 desc =[[
   9 This script takes a dumpfile from 'hf mfu dump' and converts it to a format that can be used
  10 by the emulator
  11
  12 Arguments:
  13         -h                              This help
  14         -i <file>               Specifies the dump-file (input). If omitted, 'dumpdata.bin' is used
  15         -o <filename>   Specifies the output file. If omitted, <uid>.eml is used.
  16
  17 ]]
  18 ---
  19 -- A debug printout-function
  20 function dbg(args)
  21         if DEBUG then
  22                 print("###", args)
  23         end
  24 end
  25 ---
  26 -- This is only meant to be used when errors occur
  27 function oops(err)
  28         print("ERROR: ",err)
  29 end
  30
  31 ---
  32 -- Usage help
  33 function help()
  34         print(desc)
  35         print(author)
  36         print("Example usage")
  37         print(example)
  38 end
  39
  40 local function convert_to_ascii(hexdata)
  41         if string.len(hexdata) % 8 ~= 0 then
  42                 return oops(("Bad data, length should be a multiple of 8 (was %d)"):format(string.len(hexdata)))
  43         end
  44
  45         local js,i = "[";
  46         for i = 1, string.len(hexdata),8 do
  47                 js = js .."'" ..string.sub(hexdata,i,i+7).."',\n"
  48         end
  49         js = js .. "]"
  50         return js
  51 end
  52
  53 local function readdump(infile)
  54          t = infile:read("*all")
  55          len = string.len(t)
  56          local len,hex = bin.unpack(("H%d"):format(len),t)
  57          return hex
  58 end
  59
  60 local function convert_to_emulform(hexdata)
  61         if string.len(hexdata) % 8 ~= 0 then
  62                 return oops(("Bad data, length should be a multiple of 8 (was %d)"):format(string.len(hexdata)))
  63         end
  64         local ascii,i = "";
  65         for i = 1, string.len(hexdata),8 do
  66                 ascii = ascii  ..string.sub(hexdata,i,i+7).."\n"
  67         end
  68
  69         return string.sub(ascii,1,-1)
  70 end
  71
  72 local function main(args)
  73
  74         local input = "dumpdata.bin"
  75         local output
  76
  77         for o, a in getopt.getopt(args, 'i:o:h') do
  78                 if o == "h" then return help() end
  79                 if o == "i" then input = a end
  80                 if o == "o" then output = a end
  81         end
  82         -- Validate the parameters
  83
  84         local infile = io.open(input, "rb")
  85         if infile == nil then
  86                 return oops("Could not read file ", input)
  87         end
  88         local dumpdata = readdump(infile)
  89         -- The hex-data is now in ascii-format,
  90
  91         -- But first, check the uid
  92         local uid = string.sub(dumpdata,1+48,8)
  93         output = output or (uid .. ".eml")
  94
  95         -- Format some linebreaks
  96         dumpdata = convert_to_emulform(dumpdata)
  97
  98         local outfile = io.open(output, "w")
  99         if outfile == nil then
 100                 return oops("Could not write to file ", output)
 101         end
 102
 103         outfile:write(dumpdata:lower())
 104         io.close(outfile)
 105         print(("Wrote an emulator-dump to the file %s"):format(output))
 106 end
 107
 108
 109 --[[
 110 In the future, we may implement so that scripts are invoked directly
 111 into a 'main' function, instead of being executed blindly. For future
 112 compatibility, I have done so, but I invoke my main from here.
 113 --]]
 114 main(args)