cvs.zerfleddert.de Git - proxmark3-svn/blob - 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