ADD: tnp3.lua can now validate the checkums in the dump

[proxmark3-svn] / client / lualibs / utils.lua

--[[\r
	This may be moved to a separate library at some point (Holiman)\r
--]]\r
local Utils = \r
{\r
	-- Asks the user for Yes or No\r
	confirm = function(message, ...)\r
		local answer\r
		message = message .. " [y/n] ?"\r
		repeat\r
			io.write(message)\r
			io.flush()\r
			answer=io.read()\r
			if answer == 'Y' or answer == "y" then\r
				return true\r
			elseif answer == 'N' or answer == 'n' then \r
				return false\r
			end\r
		until false\r
	end,\r
	---\r
	-- Asks the user for input\r
	input = function (message , default)\r
		local answer\r
		if default ~= nil then\r
			message = message .. " (default: ".. default.. " )"\r
		end\r
		message = message .." \n > "\r
		io.write(message)\r
		io.flush()\r
		answer=io.read()\r
		if answer == '' then answer = default end\r
\r
		return answer\r
	end,\r
	--\r
	-- Converts DECIMAL to HEX\r
    ConvertDec2Hex = function(IN)\r
		local B,K,OUT,I,D=16,"0123456789ABCDEF","",0\r
		while IN>0 do\r
			I=I+1\r
			IN,D=math.floor(IN/B),math.mod(IN,B)+1\r
			OUT=string.sub(K,D,D)..OUT\r
		end\r
		return OUT\r
	end,\r
	---\r
	-- Convert Byte array to string of hex\r
	ConvertBytes2HexString = function(bytes)\r
		if #bytes == 0 then\r
			return ''\r
		end\r
		local s={}\r
		for i = 1, #(bytes) do\r
			s[i] = string.format("%02X",bytes[i]) \r
		end\r
		return table.concat(s)\r
	end,	\r
	-- Convert byte array to string with ascii\r
    ConvertBytesToAsciiString = function(bytes)\r
		if #bytes == 0 then\r
			return ''\r
		end\r
		local s={}\r
		for i = 1, #(bytes) do\r
			s[i] = string.char(bytes[i]) \r
		end\r
		return table.concat(s)		\r
	end,	 \r
	ConvertHexStringToBytes = function(s)\r
		local t={}\r
		if s == nil then return t end\r
		if #s == 0 then return t end\r
		for k in s:gmatch"(%x%x)" do\r
			table.insert(t,tonumber(k,16))\r
		end\r
		return t\r
	end,\r
	ConvertAsciiStringToBytes = function(s)\r
		local t={}\r
		if s == nil then return t end\r
		if #s == 0 then return t end\r
		\r
		for k in s:gmatch"(.)" do\r
			table.insert(t, string.byte(k))\r
		end\r
		return t\r
	end,\r
	ConvertHexToAscii = function(s)\r
		local t={}\r
		if s == nil then return t end\r
		if #s == 0 then return t end\r
		for k in s:gmatch"(%x%x)" do\r
			table.insert(t, string.char(tonumber(k,16)))\r
		end\r
		return  table.concat(t)	\r
	end,\r
	\r
	-- function convertStringToBytes(str)\r
	-- local bytes = {}\r
	-- local strLength = string.len(str)\r
	-- for i=1,strLength do\r
		-- table.insert(bytes, string.byte(str, i))\r
	-- end\r
\r
	-- return bytes\r
-- end\r
\r
-- function convertBytesToString(bytes)\r
	-- local bytesLength = table.getn(bytes)\r
	-- local str = ""\r
	-- for i=1,bytesLength do\r
		-- str = str .. string.char(bytes[i])\r
	-- end\r
\r
	-- return str\r
-- end\r
\r
-- function convertHexStringToBytes(str)\r
	-- local bytes = {}\r
	-- local strLength = string.len(str)\r
	-- for k=2,strLength,2 do\r
		-- local hexString = "0x" .. string.sub(str, (k - 1), k)\r
		-- table.insert(bytes, hex.to_dec(hexString))\r
	-- end\r
\r
	-- return bytes\r
-- end\r
\r
-- function convertBytesToHexString(bytes)\r
	-- local str = ""\r
	-- local bytesLength = table.getn(bytes)\r
	-- for i=1,bytesLength do\r
		-- local hexString = string.sub(hex.to_hex(bytes[i]), 3)\r
		-- if string.len(hexString) == 1 then\r
			-- hexString = "0" .. hexString\r
		-- end\r
		-- str = str .. hexString\r
	-- end\r
\r
	-- return str\r
-- end\r
\r
}\r
return Utils