]> git.zerfleddert.de Git - proxmark3-svn/blame - client/lualibs/utils.lua
add: @marshmellow changes,
[proxmark3-svn] / client / lualibs / utils.lua
CommitLineData
5b1311fb
MHS
1--[[\r
2 This may be moved to a separate library at some point (Holiman)\r
3--]]\r
4local Utils = \r
5{\r
6 -- Asks the user for Yes or No\r
7 confirm = function(message, ...)\r
8 local answer\r
9 message = message .. " [y/n] ?"\r
10 repeat\r
11 io.write(message)\r
12 io.flush()\r
13 answer=io.read()\r
14 if answer == 'Y' or answer == "y" then\r
15 return true\r
16 elseif answer == 'N' or answer == 'n' then \r
17 return false\r
18 end\r
19 until false\r
20 end,\r
21 ---\r
22 -- Asks the user for input\r
23 input = function (message , default)\r
24 local answer\r
25 if default ~= nil then\r
26 message = message .. " (default: ".. default.. " )"\r
27 end\r
28 message = message .." \n > "\r
29 io.write(message)\r
30 io.flush()\r
31 answer=io.read()\r
32 if answer == '' then answer = default end\r
33\r
34 return answer\r
35 end,\r
f91f0ebb 36 \r
37 ------------ FILE READING\r
38 ReadDumpFile = function (filename)\r
39 \r
40 if filename == nil then \r
41 return nil, 'Filename is empty'\r
42 end\r
43 if #filename == 0 then\r
44 return nil, 'Filename length is zero'\r
45 end\r
46\r
47 infile = io.open(filename, "rb")\r
48 if infile == nil then \r
49 return nil, string.format("Could not read file %s",filename)\r
50 end\r
51 local t = infile:read("*all")\r
52 len = string.len(t)\r
53 local _,hex = bin.unpack(("H%d"):format(len),t)\r
54 io.close(infile)\r
55 return hex\r
56 end,\r
57 \r
58 ------------ string split function\r
59 Split = function( inSplitPattern, outResults )\r
60 if not outResults then\r
61 outResults = {}\r
62 end\r
63 local start = 1\r
64 local splitStart, splitEnd = string.find( self, inSplitPattern, start )\r
65 while splitStart do\r
66 table.insert( outResults, string.sub( self, start, splitStart-1 ) )\r
67 start = splitEnd + 1\r
68 splitStart, splitEnd = string.find( self, inSplitPattern, start )\r
69 end\r
70 table.insert( outResults, string.sub( self, start ) )\r
71 return outResults\r
72 end,\r
73 \r
f91f0ebb 74 \r
04a6113f 75 ------------ CRC-16 ccitt checksums\r
f91f0ebb 76 -- Takes a hex string and calculates a crc16\r
77 Crc16 = function(s)\r
78 if s == nil then return nil end\r
79 if #s == 0 then return nil end\r
80 if type(s) == 'string' then\r
81 local utils = require('utils')\r
82 local asc = utils.ConvertHexToAscii(s)\r
83 local hash = core.crc16(asc)\r
84 return hash\r
85 end\r
86 return nil\r
87 end,\r
04a6113f 88 \r
89 ------------ CRC-64 ecma checksums\r
90 -- Takes a hex string and calculates a crc64 ecma\r
91 Crc64 = function(s)\r
92 if s == nil then return nil end\r
93 if #s == 0 then return nil end\r
94 if type(s) == 'string' then\r
95 local utils = require('utils')\r
96 local asc = utils.ConvertHexToAscii(s)\r
97 local hash = core.crc64(asc)\r
98 return hash\r
99 end\r
100 return nil\r
101 end,\r
102 \r
103 \r
f91f0ebb 104 -- input parameter is a string\r
105 -- Swaps the endianess and returns a number, \r
106 -- IE: 'cd7a' -> '7acd' -> 0x7acd\r
107 SwapEndianness = function(s, len)\r
108 if s == nil then return nil end\r
109 if #s == 0 then return '' end\r
110 if type(s) ~= 'string' then return nil end\r
111 \r
112 local retval = 0\r
113 if len == 16 then\r
114 local t = s:sub(3,4)..s:sub(1,2)\r
115 retval = tonumber(t,16)\r
116 elseif len == 24 then\r
117 local t = s:sub(5,6)..s:sub(3,4)..s:sub(1,2)\r
118 retval = tonumber(t,16)\r
119 elseif len == 32 then\r
120 local t = s:sub(7,8)..s:sub(5,6)..s:sub(3,4)..s:sub(1,2)\r
121 retval = tonumber(t,16)\r
122 end\r
123 return retval\r
124 end,\r
125 \r
5149e37e 126 -- input parameter is a string\r
127 -- Swaps the endianess and returns a string, \r
128 -- IE: 'cd7a' -> '7acd' -> 0x7acd\r
129 SwapEndiannessStr = function(s, len)\r
130 if s == nil then return nil end\r
131 if #s == 0 then return '' end\r
132 if type(s) ~= 'string' then return nil end\r
133 \r
134 local retval\r
135 if len == 16 then\r
136 retval = s:sub(3,4)..s:sub(1,2)\r
137 elseif len == 24 then\r
138 retval = s:sub(5,6)..s:sub(3,4)..s:sub(1,2)\r
139 elseif len == 32 then\r
140 retval = s:sub(7,8)..s:sub(5,6)..s:sub(3,4)..s:sub(1,2)\r
141 end\r
142 return retval\r
143 end, \r
f91f0ebb 144 ------------ CONVERSIONS\r
145 \r
5b1311fb
MHS
146 --\r
147 -- Converts DECIMAL to HEX\r
f91f0ebb 148 ConvertDecToHex = function(IN)\r
5b1311fb
MHS
149 local B,K,OUT,I,D=16,"0123456789ABCDEF","",0\r
150 while IN>0 do\r
151 I=I+1\r
5149e37e 152 IN , D = math.floor(IN/B), math.modf(IN,B)+1\r
3ac59c7f 153 OUT = string.sub(K,D,D)..OUT\r
5b1311fb
MHS
154 end\r
155 return OUT\r
156 end,\r
157 ---\r
158 -- Convert Byte array to string of hex\r
f91f0ebb 159 ConvertBytesToHex = function(bytes)\r
cd5767d4 160 if #bytes == 0 then\r
161 return ''\r
162 end\r
163 local s={}\r
5b1311fb 164 for i = 1, #(bytes) do\r
9b989c45 165 s[i] = string.format("%02X",bytes[i]) \r
5b1311fb
MHS
166 end\r
167 return table.concat(s)\r
168 end, \r
cd5767d4 169 -- Convert byte array to string with ascii\r
f91f0ebb 170 ConvertBytesToAscii = function(bytes)\r
cd5767d4 171 if #bytes == 0 then\r
172 return ''\r
173 end\r
174 local s={}\r
175 for i = 1, #(bytes) do\r
176 s[i] = string.char(bytes[i]) \r
177 end\r
178 return table.concat(s) \r
179 end, \r
f91f0ebb 180 ConvertHexToBytes = function(s)\r
9b989c45 181 local t={}\r
cd5767d4 182 if s == nil then return t end\r
183 if #s == 0 then return t end\r
9b989c45 184 for k in s:gmatch"(%x%x)" do\r
185 table.insert(t,tonumber(k,16))\r
186 end\r
187 return t\r
188 end,\r
04a6113f 189 ConvertAsciiToBytes = function(s, reverse)\r
190 local t = {}\r
cd5767d4 191 if s == nil then return t end\r
192 if #s == 0 then return t end\r
193 \r
194 for k in s:gmatch"(.)" do\r
195 table.insert(t, string.byte(k))\r
196 end\r
04a6113f 197 \r
198 if not reverse then\r
199 return t\r
200 end\r
201 \r
202 local rev = {}\r
203 if reverse then\r
204 for i = #t, 1,-1 do\r
205 table.insert(rev, t[i] )\r
206 end\r
207 end\r
208 return rev\r
cd5767d4 209 end,\r
04a6113f 210 \r
47cbb2d4 211 ConvertHexToAscii = function(s)\r
212 local t={}\r
213 if s == nil then return t end\r
214 if #s == 0 then return t end\r
215 for k in s:gmatch"(%x%x)" do\r
216 table.insert(t, string.char(tonumber(k,16)))\r
217 end\r
218 return table.concat(t) \r
219 end,\r
9b989c45 220 \r
3ac59c7f 221 Chars2num = function(s)\r
222 return (s:byte(1)*16777216)+(s:byte(2)*65536)+(s:byte(3)*256)+(s:byte(4))\r
223 end,\r
224 \r
225 -- use length of string to determine 8,16,32,64 bits\r
226 bytes_to_int = function(str,endian,signed) \r
227 local t={str:byte(1,-1)}\r
228 if endian=="big" then --reverse bytes\r
229 local tt={}\r
230 for k=1,#t do\r
231 tt[#t-k+1]=t[k]\r
232 end\r
233 t=tt\r
234 end\r
235 local n=0\r
236 for k=1,#t do\r
237 n=n+t[k]*2^((k-1)*8)\r
238 end\r
239 if signed then\r
240 n = (n > 2^(#t*8-1) -1) and (n - 2^(#t*8)) or n -- if last bit set, negative.\r
241 end\r
242 return n\r
243 end,\r
244 \r
9b989c45 245 -- function convertStringToBytes(str)\r
246 -- local bytes = {}\r
247 -- local strLength = string.len(str)\r
248 -- for i=1,strLength do\r
249 -- table.insert(bytes, string.byte(str, i))\r
250 -- end\r
251\r
252 -- return bytes\r
253-- end\r
254\r
255-- function convertBytesToString(bytes)\r
256 -- local bytesLength = table.getn(bytes)\r
257 -- local str = ""\r
258 -- for i=1,bytesLength do\r
259 -- str = str .. string.char(bytes[i])\r
260 -- end\r
261\r
262 -- return str\r
263-- end\r
264\r
265-- function convertHexStringToBytes(str)\r
266 -- local bytes = {}\r
267 -- local strLength = string.len(str)\r
268 -- for k=2,strLength,2 do\r
269 -- local hexString = "0x" .. string.sub(str, (k - 1), k)\r
270 -- table.insert(bytes, hex.to_dec(hexString))\r
271 -- end\r
272\r
273 -- return bytes\r
274-- end\r
275\r
276-- function convertBytesToHexString(bytes)\r
277 -- local str = ""\r
278 -- local bytesLength = table.getn(bytes)\r
279 -- for i=1,bytesLength do\r
280 -- local hexString = string.sub(hex.to_hex(bytes[i]), 3)\r
281 -- if string.len(hexString) == 1 then\r
282 -- hexString = "0" .. hexString\r
283 -- end\r
284 -- str = str .. hexString\r
285 -- end\r
286\r
287 -- return str\r
288-- end\r
289\r
5b1311fb
MHS
290}\r
291return Utils
Impressum, Datenschutz