]> cvs.zerfleddert.de Git - proxmark3-svn/blob - client/cmdscript.c
Merge branch 'master' of github.com:Proxmark/proxmark3 into travis
[proxmark3-svn] / client / cmdscript.c
1 //-----------------------------------------------------------------------------
2 // Copyright (C) 2013 m h swende <martin at swende.se>
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 // Some lua scripting glue to proxmark core.
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 "scripting.h"
20 #include "data.h"
21 #include "ui.h"
22 #include "graph.h"
23 #include "cmdparser.h"
24 #include "cmdmain.h"
25 #include "cmdscript.h"
26 #include "cmdhfmf.h"
27 #include "pm3_binlib.h"
28 #include "pm3_bitlib.h"
29 #include <lua.h>
30 #include <lualib.h>
31 #include <lauxlib.h>
32
33 static int CmdHelp(const char *Cmd);
34 static int CmdList(const char *Cmd);
35 static int CmdRun(const char *Cmd);
36
37 command_t CommandTable[] =
38 {
39 {"help", CmdHelp, 1, "This help"},
40 {"list", CmdList, 1, "List available scripts"},
41 {"run", CmdRun, 1, "<name> -- Execute a script"},
42 {NULL, NULL, 0, NULL}
43 };
44
45 int 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 */
64 int 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 return 0;
68 }
69
70 /**
71 * Generate list of available commands, what it does is
72 * generate a file listing of the script-directory for files
73 * ending with .lua
74 */
75 int CmdList(const char *Cmd)
76 {
77 DIR *dp;
78 struct dirent *ep;
79 char const * exedir = get_my_executable_directory();
80 if (exedir == NULL)
81 return 0;
82 char script_directory_path[strlen(exedir) + strlen(LUA_SCRIPTS_DIRECTORY) + 1];
83 strcpy(script_directory_path, exedir);
84 strcat(script_directory_path, LUA_SCRIPTS_DIRECTORY);
85 dp = opendir(script_directory_path);
86
87 if (dp != NULL)
88 {
89 while ((ep = readdir (dp)) != NULL)
90 {
91 if(str_ends_with(ep->d_name, ".lua"))
92 PrintAndLog("%-16s %s", ep->d_name, "A script file");
93 }
94 (void) closedir (dp);
95 }
96 else
97 PrintAndLog ("Couldn't open the scripts-directory");
98 return 0;
99 }
100 /**
101 * Finds a matching script-file
102 * @brief CmdScript
103 * @param Cmd
104 * @return
105 */
106 int CmdScript(const char *Cmd)
107 {
108 CmdsParse(CommandTable, Cmd);
109 return 0;
110 }
111 /**
112 * Utility to check the ending of a string (used to check file suffix)
113 */
114 bool endsWith (char* base, char* str) {
115 int blen = strlen(base);
116 int slen = strlen(str);
117 return (blen >= slen) && (0 == strcmp(base + blen - slen, str));
118 }
119
120 /**
121 * @brief CmdRun - executes a script file.
122 * @param argc
123 * @param argv
124 * @return
125 */
126 int CmdRun(const char *Cmd)
127 {
128 // create new Lua state
129 lua_State *lua_state;
130 lua_state = luaL_newstate();
131
132 // load Lua libraries
133 luaL_openlibs(lua_state);
134
135 //Sets the pm3 core libraries, that go a bit 'under the hood'
136 set_pm3_libraries(lua_state);
137
138 //Add the 'bin' library
139 set_bin_library(lua_state);
140
141 //Add the 'bit' library
142 set_bit_library(lua_state);
143
144 char script_name[128] = {0};
145 char arguments[256] = {0};
146
147 int name_len = 0;
148 int arg_len = 0;
149 sscanf(Cmd, "%127s%n %255[^\n\r]%n", script_name,&name_len, arguments, &arg_len);
150
151 char *suffix = "";
152 if(!endsWith(script_name,".lua"))
153 {
154 suffix = ".lua";
155 }
156
157 char script_path[strlen(get_my_executable_directory()) + strlen(LUA_SCRIPTS_DIRECTORY) + strlen(script_name) + strlen(suffix) + 1];
158 strcpy(script_path, get_my_executable_directory());
159 strcat(script_path, LUA_SCRIPTS_DIRECTORY);
160 strcat(script_path, script_name);
161 strcat(script_path, suffix);
162
163 printf("--- Executing: %s%s, args '%s'\n", script_name, suffix, arguments);
164
165
166
167 // run the Lua script
168
169 int error = luaL_loadfile(lua_state, script_path);
170 if(!error)
171 {
172
173 lua_pushstring(lua_state, arguments);
174 lua_setglobal(lua_state, "args");
175
176 //Call it with 0 arguments
177 error = lua_pcall(lua_state, 0, LUA_MULTRET, 0); // once again, returns non-0 on error,
178 }
179 if(error) // if non-0, then an error
180 {
181 // the top of the stack should be the error string
182 if (!lua_isstring(lua_state, lua_gettop(lua_state)))
183 printf( "Error - but no error (?!)");
184
185 // get the top of the stack as the error and pop it off
186 const char * str = lua_tostring(lua_state, lua_gettop(lua_state));
187 lua_pop(lua_state, 1);
188 puts(str);
189 }
190
191 //luaL_dofile(lua_state, buf);
192 // close the Lua state
193 lua_close(lua_state);
194 printf("\n-----Finished\n");
195 return 0;
196 }
197
Impressum, Datenschutz