]> cvs.zerfleddert.de Git - proxmark3-svn/blame - client/cmdscript.c
Fixed so standard libraries can be used, added an example script, and fixed so all...
[proxmark3-svn] / client / cmdscript.c
CommitLineData
806dc075 1//-----------------------------------------------------------------------------
2// Copyright (C) 2010 iZsh <izsh at fail0verflow.com>
3//
4// This code is licensed to you under the terms of the GNU GPL, version 2 or,
5// at your option, any later version. See the LICENSE.txt file for the text of
6// the license.
7//-----------------------------------------------------------------------------
8// Data and Graph commands
9//-----------------------------------------------------------------------------
10
11#include <stdio.h>
12#include <stdlib.h>
13#include <string.h>
14#include <limits.h>
15#include <sys/types.h>
16#include <dirent.h>
17
18#include "proxmark3.h"
19#include "data.h"
20#include "ui.h"
21#include "graph.h"
22#include "cmdparser.h"
23#include "cmdmain.h"
24#include "cmdscript.h"
25#include "cmdhfmf.h"
26
27#include <lua.h>
28#include <lualib.h>
29#include <lauxlib.h>
30
31
32
33static int CmdHelp(const char *Cmd);
34static int CmdList(const char *Cmd);
35static int CmdRun(const char *Cmd);
36
37command_t CommandTable[] =
38{
39 {"help", CmdHelp, 1, "This help"},
40 {"list", CmdList, 1, "<name> -- List available scripts"},
41 {"run", CmdRun, 1, "Execute a script"},
42 {NULL, NULL, 0, NULL}
43};
44
45int str_ends_with(const char * str, const char * suffix) {
46
47 if( str == NULL || suffix == NULL )
48 return 0;
49
50 size_t str_len = strlen(str);
51 size_t suffix_len = strlen(suffix);
52
53 if(suffix_len > str_len)
54 return 0;
55
56 return 0 == strncmp( str + str_len - suffix_len, suffix, suffix_len );
57}
58/**
59 * Shows some basic help
60 * @brief CmdHelp
61 * @param Cmd
62 * @return
63 */
64int CmdHelp(const char * Cmd)
65{
66 PrintAndLog("This is a feature to run Lua-scripts. You can place lua-scripts within the scripts/-folder. ");
67}
68
69/**
70* Generate list of available commands, what it does is
71* generate a file listing of the script-directory for files
72* ending with .lua
73*/
74int CmdList(const char *Cmd)
75{
76 DIR *dp;
77 struct dirent *ep;
78 dp = opendir ("./scripts/");
79 if (dp != NULL)
80 {
81 while (ep = readdir (dp))
82 {
83 if(ep->d_name != NULL && str_ends_with(ep->d_name, ".lua"))
84 PrintAndLog("%-16s %s", ep->d_name, "A script file");
85 }
86 (void) closedir (dp);
87 }
88 else
89 PrintAndLog ("Couldn't open the directory");
90 return 0;
91}
92/**
93 * Finds a matching script-file
94 * @brief CmdScript
95 * @param Cmd
96 * @return
97 */
98int CmdScript(const char *Cmd)
99{
100 CmdsParse(CommandTable, Cmd);
101 return 0;
102}
103/*
104static int l_hfmf (lua_State *L) {
105 return CmdHFMF("wohoo");
106
107}
108*/
5a92cb52 109//static int l_CmdHelp(lua_State *L){ return CmdHelp(luaL_checkstring(L, 1));}
110static int l_CmdHF14AMfDbg(lua_State *L){ return CmdHF14AMfDbg(luaL_checkstring(L, 1));}
111static int l_CmdHF14AMfRdBl(lua_State *L){ return CmdHF14AMfRdBl(luaL_checkstring(L, 1));}
112static int l_CmdHF14AMfRdSc(lua_State *L){ return CmdHF14AMfRdSc(luaL_checkstring(L, 1));}
113static int l_CmdHF14AMfDump(lua_State *L){ return CmdHF14AMfDump(luaL_checkstring(L, 1));}
806dc075 114static int l_CmdHF14AMifare(lua_State *L){ return CmdHF14AMifare(luaL_checkstring(L, 1));}
5a92cb52 115static int l_CmdHF14AMfWrBl(lua_State *L){ return CmdHF14AMfWrBl(luaL_checkstring(L, 1));}
116static int l_CmdHF14AMfChk(lua_State *L){ return CmdHF14AMfChk(luaL_checkstring(L, 1));}
806dc075 117static int l_CmdHF14AMfNested(lua_State *L){ return CmdHF14AMfNested(luaL_checkstring(L, 1));}
5a92cb52 118static int l_CmdHF14AMfRestore(lua_State *L){ return CmdHF14AMfRestore(luaL_checkstring(L, 1));}
119static int l_CmdHF14AMfSniff(lua_State *L){ return CmdHF14AMfSniff(luaL_checkstring(L, 1));}
120static int l_CmdHF14AMf1kSim(lua_State *L){ return CmdHF14AMf1kSim(luaL_checkstring(L, 1));}
121static int l_CmdHF14AMfEClear(lua_State *L){ return CmdHF14AMfEClear(luaL_checkstring(L, 1));}
122static int l_CmdHF14AMfEGet(lua_State *L){ return CmdHF14AMfEGet(luaL_checkstring(L, 1));}
123static int l_CmdHF14AMfESet(lua_State *L){ return CmdHF14AMfESet(luaL_checkstring(L, 1));}
124static int l_CmdHF14AMfELoad(lua_State *L){ return CmdHF14AMfELoad(luaL_checkstring(L, 1));}
125static int l_CmdHF14AMfESave(lua_State *L){ return CmdHF14AMfESave(luaL_checkstring(L, 1));}
126static int l_CmdHF14AMfECFill(lua_State *L){ return CmdHF14AMfECFill(luaL_checkstring(L, 1));}
127static int l_CmdHF14AMfEKeyPrn(lua_State *L){ return CmdHF14AMfEKeyPrn(luaL_checkstring(L, 1));}
128static int l_CmdHF14AMfCSetUID(lua_State *L){ return CmdHF14AMfCSetUID(luaL_checkstring(L, 1));}
129static int l_CmdHF14AMfCSetBlk(lua_State *L){ return CmdHF14AMfCSetBlk(luaL_checkstring(L, 1));}
130static int l_CmdHF14AMfCGetBlk(lua_State *L){ return CmdHF14AMfCGetBlk(luaL_checkstring(L, 1));}
131static int l_CmdHF14AMfCGetSc(lua_State *L){ return CmdHF14AMfCGetSc(luaL_checkstring(L, 1));}
132static int l_CmdHF14AMfCLoad(lua_State *L){ return CmdHF14AMfCLoad(luaL_checkstring(L, 1));}
133static int l_CmdHF14AMfCSave(lua_State *L){ return CmdHF14AMfCSave(luaL_checkstring(L, 1));}
134
135
806dc075 136
806dc075 137
138static void set_libraries(lua_State *L)
139{
140 static const luaL_Reg hfmf_lib[] = {
5a92cb52 141 //{"help", l_CmdHelp},
806dc075 142 {"dbg", l_CmdHF14AMfDbg},
143 {"rdbl", l_CmdHF14AMfRdBl},
144 {"rdsc", l_CmdHF14AMfRdSc},
145 {"dump", l_CmdHF14AMfDump},
146 {"restore", l_CmdHF14AMfRestore},
147 {"wrbl", l_CmdHF14AMfWrBl},
148 {"chk", l_CmdHF14AMfChk},
149 {"mifare", l_CmdHF14AMifare},
150 {"nested", l_CmdHF14AMfNested},
151 {"sniff", l_CmdHF14AMfSniff},
152 {"sim", l_CmdHF14AMf1kSim},
153 {"eclr", l_CmdHF14AMfEClear},
154 {"eget", l_CmdHF14AMfEGet},
155 {"eset", l_CmdHF14AMfESet},
156 {"eload", l_CmdHF14AMfELoad},
157 {"esave", l_CmdHF14AMfESave},
158 {"ecfill", l_CmdHF14AMfECFill},
159 {"ekeyprn", l_CmdHF14AMfEKeyPrn},
160 {"csetuid", l_CmdHF14AMfCSetUID},
161 {"csetblk", l_CmdHF14AMfCSetBlk},
162 {"cgetblk", l_CmdHF14AMfCGetBlk},
163 {"cgetsc", l_CmdHF14AMfCGetSc},
164 {"cload", l_CmdHF14AMfCLoad},
165 {"csave", l_CmdHF14AMfCSave},
166 {NULL, NULL}
167 };
168
169 lua_pushglobaltable(L);
170 // Core library is in this table. Contains 'hf'
171
172 //this is 'hf' table
173 lua_newtable(L);
174
175 //this is the mf table
176 lua_newtable(L);
177
178 //Put the function into the hash table.
179 for (int i = 0; hfmf_lib[i].name; i++) {
180 lua_pushcfunction(L, hfmf_lib[i].func);
181 lua_setfield(L, -2, hfmf_lib[i].name);//set the name, pop stack
182 }
183 //Name of 'mf'
184 lua_setfield(L, -2, "mf");
185
186 //Name of 'hf'
187 lua_setfield(L, -2, "hf");
188
189 //-- remove the global environment table from the stack
190 lua_pop(L, 1);
191 return 1;
192}
193
194/**
195 * @brief CmdRun - executes a script file.
196 * @param argc
197 * @param argv
198 * @return
199 */
200int CmdRun(const char *Cmd)
201{
202 // create new Lua state
203 lua_State *lua_state;
204 lua_state = luaL_newstate();
205
206 // load Lua libraries
5a92cb52 207 luaL_openlibs(lua_state);
806dc075 208 set_libraries(lua_state);
209 char cmd_name[32];
210 int len = 0;
211 memset(cmd_name, 0, 32);
212 sscanf(Cmd, "%31s%n", cmd_name, &len);
213
214 char buf[256];
215 snprintf(buf, sizeof buf, "./scripts/%s", cmd_name);
216
217 printf("Executing file '%s'\n---------------------------\n" , cmd_name);
218 // run the Lua script
219 luaL_dofile(lua_state, buf);
220 // close the Lua state
221 lua_close(lua_state);
222 printf("-----------------Finished\n");
223}
224
Impressum, Datenschutz