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