cvs.zerfleddert.de Git - proxmark3-svn/blob - client/cmdscript.c

   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
  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, "<name> -- List available scripts"},
  41   {"run",   CmdRun,  1, "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 }
  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 */
  74 int 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  */
  98 int CmdScript(const char *Cmd)
  99 {
 100   CmdsParse(CommandTable, Cmd);
 101   return 0;
 102 }
 103 /*
 104 static int l_hfmf (lua_State *L) {
 105     return CmdHFMF("wohoo");
 106
 107 }
 108 */
 109 //static int l_CmdHelp(lua_State *L){ return CmdHelp(luaL_checkstring(L, 1));}
 110 static int l_CmdHF14AMfDbg(lua_State *L){ return CmdHF14AMfDbg(luaL_checkstring(L, 1));}
 111 static int l_CmdHF14AMfRdBl(lua_State *L){ return CmdHF14AMfRdBl(luaL_checkstring(L, 1));}
 112 static int l_CmdHF14AMfRdSc(lua_State *L){ return CmdHF14AMfRdSc(luaL_checkstring(L, 1));}
 113 static int l_CmdHF14AMfDump(lua_State *L){ return CmdHF14AMfDump(luaL_checkstring(L, 1));}
 114 static int l_CmdHF14AMifare(lua_State *L){ return CmdHF14AMifare(luaL_checkstring(L, 1));}
 115 static int l_CmdHF14AMfWrBl(lua_State *L){ return CmdHF14AMfWrBl(luaL_checkstring(L, 1));}
 116 static int l_CmdHF14AMfChk(lua_State *L){ return CmdHF14AMfChk(luaL_checkstring(L, 1));}
 117 static int l_CmdHF14AMfNested(lua_State *L){ return CmdHF14AMfNested(luaL_checkstring(L, 1));}
 118 static int l_CmdHF14AMfRestore(lua_State *L){ return CmdHF14AMfRestore(luaL_checkstring(L, 1));}
 119 static int l_CmdHF14AMfSniff(lua_State *L){ return CmdHF14AMfSniff(luaL_checkstring(L, 1));}
 120 static int l_CmdHF14AMf1kSim(lua_State *L){ return CmdHF14AMf1kSim(luaL_checkstring(L, 1));}
 121 static int l_CmdHF14AMfEClear(lua_State *L){ return CmdHF14AMfEClear(luaL_checkstring(L, 1));}
 122 static int l_CmdHF14AMfEGet(lua_State *L){ return CmdHF14AMfEGet(luaL_checkstring(L, 1));}
 123 static int l_CmdHF14AMfESet(lua_State *L){ return CmdHF14AMfESet(luaL_checkstring(L, 1));}
 124 static int l_CmdHF14AMfELoad(lua_State *L){ return CmdHF14AMfELoad(luaL_checkstring(L, 1));}
 125 static int l_CmdHF14AMfESave(lua_State *L){ return CmdHF14AMfESave(luaL_checkstring(L, 1));}
 126 static int l_CmdHF14AMfECFill(lua_State *L){ return CmdHF14AMfECFill(luaL_checkstring(L, 1));}
 127 static int l_CmdHF14AMfEKeyPrn(lua_State *L){ return CmdHF14AMfEKeyPrn(luaL_checkstring(L, 1));}
 128 static int l_CmdHF14AMfCSetUID(lua_State *L){ return CmdHF14AMfCSetUID(luaL_checkstring(L, 1));}
 129 static int l_CmdHF14AMfCSetBlk(lua_State *L){ return CmdHF14AMfCSetBlk(luaL_checkstring(L, 1));}
 130 static int l_CmdHF14AMfCGetBlk(lua_State *L){ return CmdHF14AMfCGetBlk(luaL_checkstring(L, 1));}
 131 static int l_CmdHF14AMfCGetSc(lua_State *L){ return CmdHF14AMfCGetSc(luaL_checkstring(L, 1));}
 132 static int l_CmdHF14AMfCLoad(lua_State *L){ return CmdHF14AMfCLoad(luaL_checkstring(L, 1));}
 133 static int l_CmdHF14AMfCSave(lua_State *L){ return CmdHF14AMfCSave(luaL_checkstring(L, 1));}
 134
 135
 136
 137
 138 static void set_libraries(lua_State *L)
 139 {
 140     static const luaL_Reg hfmf_lib[] = {
 141         //{"help",    l_CmdHelp},
 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  */
 200 int 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
 207     luaL_openlibs(lua_state);
 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