[proxmark3-svn] / client / cmdscript.c

//-----------------------------------------------------------------------------
// Copyright (C) 2013 m h swende <martin at swende.se>
//
// This code is licensed to you under the terms of the GNU GPL, version 2 or,
// at your option, any later version. See the LICENSE.txt file for the text of
// the license.
//-----------------------------------------------------------------------------
// Some lua scripting glue to proxmark core.
//-----------------------------------------------------------------------------

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <limits.h>
#include <sys/types.h>
#include <dirent.h>

#include "proxmark3.h"
#include "scripting.h"
#include "data.h"
#include "ui.h"
#include "graph.h"
#include "cmdparser.h"
#include "cmdmain.h"
#include "cmdscript.h"
#include "cmdhfmf.h"
#include "pm3_binlib.h"

#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>


static int CmdHelp(const char *Cmd);
static int CmdList(const char *Cmd);
static int CmdRun(const char *Cmd);

command_t CommandTable[] =
{
  {"help",  CmdHelp, 1, "This help"},
  {"list",  CmdList, 1, "List available scripts"},
  {"run",   CmdRun,  1, "<name> -- Execute a script"},
  {NULL, NULL, 0, NULL}
};

int str_ends_with(const char * str, const char * suffix) {

  if( str == NULL || suffix == NULL )
    return 0;

  size_t str_len = strlen(str);
  size_t suffix_len = strlen(suffix);

  if(suffix_len > str_len)
    return 0;

  return 0 == strncmp( str + str_len - suffix_len, suffix, suffix_len );
}
/**
 * Shows some basic help
 * @brief CmdHelp
 * @param Cmd
 * @return
 */
int CmdHelp(const char * Cmd)
{
    PrintAndLog("This is a feature to run Lua-scripts. You can place lua-scripts within the scripts/-folder. ");
}

/**
* Generate list of available commands, what it does is 
* generate a file listing of the script-directory for files
* ending with .lua
*/
int CmdList(const char *Cmd)
{
    DIR *dp;
    struct dirent *ep;
    dp = opendir ("./scripts/");

    if (dp != NULL)
    {
        while (ep = readdir (dp))
        {
            if(ep->d_name != NULL && str_ends_with(ep->d_name, ".lua"))
                PrintAndLog("%-16s %s", ep->d_name, "A script file");
        }
        (void) closedir (dp);
    }
    else
        PrintAndLog ("Couldn't open the scripts-directory");
    return 0;
}
/**
 * Finds a matching script-file
 * @brief CmdScript
 * @param Cmd
 * @return
 */
int CmdScript(const char *Cmd)
{
  CmdsParse(CommandTable, Cmd);
  return 0;
}
/*
static int l_hfmf (lua_State *L) {
    return CmdHFMF("wohoo");

}
*/
//static int l_CmdHelp(lua_State *L){ return CmdHelp(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfDbg(lua_State *L){ return CmdHF14AMfDbg(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfRdBl(lua_State *L){ return CmdHF14AMfRdBl(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfRdSc(lua_State *L){ return CmdHF14AMfRdSc(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfDump(lua_State *L){ return CmdHF14AMfDump(luaL_checkstring(L, 1));}
static int l_CmdHF14AMifare(lua_State *L){ return CmdHF14AMifare(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfWrBl(lua_State *L){ return CmdHF14AMfWrBl(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfChk(lua_State *L){ return CmdHF14AMfChk(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfNested(lua_State *L){ return CmdHF14AMfNested(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfRestore(lua_State *L){ return CmdHF14AMfRestore(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfSniff(lua_State *L){ return CmdHF14AMfSniff(luaL_checkstring(L, 1));}
static int l_CmdHF14AMf1kSim(lua_State *L){ return CmdHF14AMf1kSim(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfEClear(lua_State *L){ return CmdHF14AMfEClear(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfEGet(lua_State *L){ return CmdHF14AMfEGet(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfESet(lua_State *L){ return CmdHF14AMfESet(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfELoad(lua_State *L){ return CmdHF14AMfELoad(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfESave(lua_State *L){ return CmdHF14AMfESave(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfECFill(lua_State *L){ return CmdHF14AMfECFill(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfEKeyPrn(lua_State *L){ return CmdHF14AMfEKeyPrn(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfCSetUID(lua_State *L){ return CmdHF14AMfCSetUID(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfCSetBlk(lua_State *L){ return CmdHF14AMfCSetBlk(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfCGetBlk(lua_State *L){ return CmdHF14AMfCGetBlk(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfCGetSc(lua_State *L){ return CmdHF14AMfCGetSc(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfCLoad(lua_State *L){ return CmdHF14AMfCLoad(luaL_checkstring(L, 1));}
static int l_CmdHF14AMfCSave(lua_State *L){ return CmdHF14AMfCSave(luaL_checkstring(L, 1));}


static void set_cmdlibraries(lua_State *L)
{
    static const luaL_Reg hfmf_lib[] = {
        {"dbg",     l_CmdHF14AMfDbg},
        {"rdbl",    l_CmdHF14AMfRdBl},
        {"rdsc",    l_CmdHF14AMfRdSc},
        {"dump",    l_CmdHF14AMfDump},
        {"restore", l_CmdHF14AMfRestore},
        {"wrbl",    l_CmdHF14AMfWrBl},
        {"chk",     l_CmdHF14AMfChk},
        {"mifare",  l_CmdHF14AMifare},
        {"nested",  l_CmdHF14AMfNested},
        {"sniff",   l_CmdHF14AMfSniff},
        {"sim",     l_CmdHF14AMf1kSim},
        {"eclr",    l_CmdHF14AMfEClear},
        {"eget",    l_CmdHF14AMfEGet},
        {"eset",    l_CmdHF14AMfESet},
        {"eload",   l_CmdHF14AMfELoad},
        {"esave",   l_CmdHF14AMfESave},
        {"ecfill",  l_CmdHF14AMfECFill},
        {"ekeyprn", l_CmdHF14AMfEKeyPrn},
        {"csetuid", l_CmdHF14AMfCSetUID},
        {"csetblk", l_CmdHF14AMfCSetBlk},
        {"cgetblk", l_CmdHF14AMfCGetBlk},
        {"cgetsc",  l_CmdHF14AMfCGetSc},
        {"cload",   l_CmdHF14AMfCLoad},
        {"csave",   l_CmdHF14AMfCSave},
        {NULL, NULL}
    };

    lua_pushglobaltable(L);
    // Core library is in this table. Contains 'hf'

    //this is 'hf' table
    lua_newtable(L);

    //this is the mf table
    lua_newtable(L);

    //Put the function into the hash table.
    for (int i = 0; hfmf_lib[i].name; i++) {
        lua_pushcfunction(L, hfmf_lib[i].func);
        lua_setfield(L, -2, hfmf_lib[i].name);//set the name, pop stack
    }
    //Name of 'mf'
    lua_setfield(L, -2, "mf");

    //Name of 'hf'
    lua_setfield(L, -2, "hf");

    //-- remove the global environment table from the stack
    lua_pop(L, 1);
    return 1;
}
/**
 * Utility to check the ending of a string (used to check file suffix)
 */
bool endsWith (char* base, char* str) {
    int blen = strlen(base);
    int slen = strlen(str);
    return (blen >= slen) && (0 == strcmp(base + blen - slen, str));
}

/**
 * @brief CmdRun - executes a script file.
 * @param argc
 * @param argv
 * @return
 */
int CmdRun(const char *Cmd)
{
    // create new Lua state
    lua_State *lua_state;
    lua_state = luaL_newstate();

    // load Lua libraries
    luaL_openlibs(lua_state);

    //Sets the pm3 core libraries, that go a bit 'under the hood'
    set_pm3_libraries(lua_state);

    //Sets the 'command line' libraries, basically just the commandline stuff
    set_cmdlibraries(lua_state);

    //Add the 'bin' library
    set_bin_library(lua_state);

//    char cmd_name[32];
//    memset(cmd_name, 0, 32);
//    sscanf(Cmd, "%31s%n", cmd_name, &len);

    char script_name[128] = {0};
    char arguments[256] = {0};

    int name_len = 0;
    int arg_len = 0;
    sscanf(Cmd, "%127s%n %255[^\n\r]%n", script_name,&name_len, arguments, &arg_len);

    char *suffix = "";
    if(!endsWith(script_name,".lua"))
    {
        suffix = ".lua";
    }

    char buf[256];
    snprintf(buf, sizeof buf, "./scripts/%s%s", script_name, suffix);

    printf("--- Executing: %s, args'%s'\n",buf,arguments);


    // run the Lua script

    int error = luaL_loadfile(lua_state, buf);
    if(!error)
    {

        lua_pushstring(lua_state, arguments);
        lua_setglobal(lua_state, "args");

        //Call it with 0 arguments
         error = lua_pcall(lua_state, 0, LUA_MULTRET, 0); // once again, returns non-0 on error,
    }
    if(error) // if non-0, then an error
    {
        // the top of the stack should be the error string
        if (!lua_isstring(lua_state, lua_gettop(lua_state)))
            printf( "Error - but no error (?!)");

        // get the top of the stack as the error and pop it off
        const char * str = lua_tostring(lua_state, lua_gettop(lua_state));
        lua_pop(lua_state, 1);
        printf(str);
    }

    //luaL_dofile(lua_state, buf);
    // close the Lua state
    lua_close(lua_state);
    printf("\n-----Finished\n");
}
Commit	Line	Data
806dc075	1	//-----------------------------------------------------------------------------
a0655c45	2	// Copyright (C) 2013 m h swende <martin at swende.se>
806dc075	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	//-----------------------------------------------------------------------------
a0655c45	8	// Some lua scripting glue to proxmark core.
806dc075	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"
a0655c45	19	#include "scripting.h"
806dc075	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"
f057bddb	27	#include "pm3_binlib.h"
806dc075	28
	29	#include <lua.h>
	30	#include <lualib.h>
	31	#include <lauxlib.h>
	32
	33
806dc075	34	static int CmdHelp(const char *Cmd);
	35	static int CmdList(const char *Cmd);
	36	static int CmdRun(const char *Cmd);
	37
	38	command_t CommandTable[] =
	39	{
	40	{"help", CmdHelp, 1, "This help"},
a0655c45	41	{"list", CmdList, 1, "List available scripts"},
a0655c45	42	{"run", CmdRun, 1, "<name> -- Execute a script"},
806dc075	43	{NULL, NULL, 0, NULL}
	44	};
	45
	46	int str_ends_with(const char * str, const char * suffix) {
	47
	48	if( str == NULL \|\| suffix == NULL )
	49	return 0;
	50
	51	size_t str_len = strlen(str);
	52	size_t suffix_len = strlen(suffix);
	53
	54	if(suffix_len > str_len)
	55	return 0;
	56
	57	return 0 == strncmp( str + str_len - suffix_len, suffix, suffix_len );
	58	}
	59	/**
	60	* Shows some basic help
	61	* @brief CmdHelp
	62	* @param Cmd
	63	* @return
	64	*/
	65	int CmdHelp(const char * Cmd)
	66	{
	67	PrintAndLog("This is a feature to run Lua-scripts. You can place lua-scripts within the scripts/-folder. ");
	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	dp = opendir ("./scripts/");
a403a559	80
806dc075	81	if (dp != NULL)
	82	{
	83	while (ep = readdir (dp))
	84	{
	85	if(ep->d_name != NULL && str_ends_with(ep->d_name, ".lua"))
	86	PrintAndLog("%-16s %s", ep->d_name, "A script file");
	87	}
	88	(void) closedir (dp);
	89	}
	90	else
a403a559	91	PrintAndLog ("Couldn't open the scripts-directory");
806dc075	92	return 0;
	93	}
	94	/**
	95	* Finds a matching script-file
	96	* @brief CmdScript
	97	* @param Cmd
	98	* @return
	99	*/
	100	int CmdScript(const char *Cmd)
	101	{
	102	CmdsParse(CommandTable, Cmd);
	103	return 0;
	104	}
	105	/*
	106	static int l_hfmf (lua_State *L) {
	107	return CmdHFMF("wohoo");
	108
	109	}
	110	*/
5a92cb52	111	//static int l_CmdHelp(lua_State *L){ return CmdHelp(luaL_checkstring(L, 1));}
	112	static int l_CmdHF14AMfDbg(lua_State *L){ return CmdHF14AMfDbg(luaL_checkstring(L, 1));}
	113	static int l_CmdHF14AMfRdBl(lua_State *L){ return CmdHF14AMfRdBl(luaL_checkstring(L, 1));}
	114	static int l_CmdHF14AMfRdSc(lua_State *L){ return CmdHF14AMfRdSc(luaL_checkstring(L, 1));}
	115	static int l_CmdHF14AMfDump(lua_State *L){ return CmdHF14AMfDump(luaL_checkstring(L, 1));}
806dc075	116	static int l_CmdHF14AMifare(lua_State *L){ return CmdHF14AMifare(luaL_checkstring(L, 1));}
5a92cb52	117	static int l_CmdHF14AMfWrBl(lua_State *L){ return CmdHF14AMfWrBl(luaL_checkstring(L, 1));}
5a92cb52	118	static int l_CmdHF14AMfChk(lua_State *L){ return CmdHF14AMfChk(luaL_checkstring(L, 1));}
806dc075	119	static int l_CmdHF14AMfNested(lua_State *L){ return CmdHF14AMfNested(luaL_checkstring(L, 1));}
5a92cb52	120	static int l_CmdHF14AMfRestore(lua_State *L){ return CmdHF14AMfRestore(luaL_checkstring(L, 1));}
	121	static int l_CmdHF14AMfSniff(lua_State *L){ return CmdHF14AMfSniff(luaL_checkstring(L, 1));}
	122	static int l_CmdHF14AMf1kSim(lua_State *L){ return CmdHF14AMf1kSim(luaL_checkstring(L, 1));}
	123	static int l_CmdHF14AMfEClear(lua_State *L){ return CmdHF14AMfEClear(luaL_checkstring(L, 1));}
	124	static int l_CmdHF14AMfEGet(lua_State *L){ return CmdHF14AMfEGet(luaL_checkstring(L, 1));}
	125	static int l_CmdHF14AMfESet(lua_State *L){ return CmdHF14AMfESet(luaL_checkstring(L, 1));}
	126	static int l_CmdHF14AMfELoad(lua_State *L){ return CmdHF14AMfELoad(luaL_checkstring(L, 1));}
	127	static int l_CmdHF14AMfESave(lua_State *L){ return CmdHF14AMfESave(luaL_checkstring(L, 1));}
	128	static int l_CmdHF14AMfECFill(lua_State *L){ return CmdHF14AMfECFill(luaL_checkstring(L, 1));}
	129	static int l_CmdHF14AMfEKeyPrn(lua_State *L){ return CmdHF14AMfEKeyPrn(luaL_checkstring(L, 1));}
	130	static int l_CmdHF14AMfCSetUID(lua_State *L){ return CmdHF14AMfCSetUID(luaL_checkstring(L, 1));}
	131	static int l_CmdHF14AMfCSetBlk(lua_State *L){ return CmdHF14AMfCSetBlk(luaL_checkstring(L, 1));}
	132	static int l_CmdHF14AMfCGetBlk(lua_State *L){ return CmdHF14AMfCGetBlk(luaL_checkstring(L, 1));}
	133	static int l_CmdHF14AMfCGetSc(lua_State *L){ return CmdHF14AMfCGetSc(luaL_checkstring(L, 1));}
	134	static int l_CmdHF14AMfCLoad(lua_State *L){ return CmdHF14AMfCLoad(luaL_checkstring(L, 1));}
	135	static int l_CmdHF14AMfCSave(lua_State *L){ return CmdHF14AMfCSave(luaL_checkstring(L, 1));}
	136
	137
806dc075	138
806dc075	139
a0655c45	140	static void set_cmdlibraries(lua_State *L)
806dc075	141	{
806dc075	142	static const luaL_Reg hfmf_lib[] = {
806dc075	143	{"dbg", l_CmdHF14AMfDbg},
	144	{"rdbl", l_CmdHF14AMfRdBl},
	145	{"rdsc", l_CmdHF14AMfRdSc},
	146	{"dump", l_CmdHF14AMfDump},
	147	{"restore", l_CmdHF14AMfRestore},
	148	{"wrbl", l_CmdHF14AMfWrBl},
	149	{"chk", l_CmdHF14AMfChk},
	150	{"mifare", l_CmdHF14AMifare},
	151	{"nested", l_CmdHF14AMfNested},
	152	{"sniff", l_CmdHF14AMfSniff},
	153	{"sim", l_CmdHF14AMf1kSim},
	154	{"eclr", l_CmdHF14AMfEClear},
	155	{"eget", l_CmdHF14AMfEGet},
	156	{"eset", l_CmdHF14AMfESet},
	157	{"eload", l_CmdHF14AMfELoad},
	158	{"esave", l_CmdHF14AMfESave},
	159	{"ecfill", l_CmdHF14AMfECFill},
	160	{"ekeyprn", l_CmdHF14AMfEKeyPrn},
	161	{"csetuid", l_CmdHF14AMfCSetUID},
	162	{"csetblk", l_CmdHF14AMfCSetBlk},
	163	{"cgetblk", l_CmdHF14AMfCGetBlk},
	164	{"cgetsc", l_CmdHF14AMfCGetSc},
	165	{"cload", l_CmdHF14AMfCLoad},
	166	{"csave", l_CmdHF14AMfCSave},
	167	{NULL, NULL}
	168	};
	169
	170	lua_pushglobaltable(L);
	171	// Core library is in this table. Contains 'hf'
	172
	173	//this is 'hf' table
	174	lua_newtable(L);
	175
	176	//this is the mf table
	177	lua_newtable(L);
	178
	179	//Put the function into the hash table.
	180	for (int i = 0; hfmf_lib[i].name; i++) {
	181	lua_pushcfunction(L, hfmf_lib[i].func);
	182	lua_setfield(L, -2, hfmf_lib[i].name);//set the name, pop stack
	183	}
	184	//Name of 'mf'
	185	lua_setfield(L, -2, "mf");
	186
	187	//Name of 'hf'
	188	lua_setfield(L, -2, "hf");
	189
	190	//-- remove the global environment table from the stack
	191	lua_pop(L, 1);
	192	return 1;
	193	}
a403a559	194	/**
	195	* Utility to check the ending of a string (used to check file suffix)
	196	*/
	197	bool endsWith (char* base, char* str) {
	198	int blen = strlen(base);
	199	int slen = strlen(str);
	200	return (blen >= slen) && (0 == strcmp(base + blen - slen, str));
	201	}
806dc075	202
	203	/**
	204	* @brief CmdRun - executes a script file.
	205	* @param argc
	206	* @param argv
	207	* @return
	208	*/
	209	int CmdRun(const char *Cmd)
	210	{
	211	// create new Lua state
	212	lua_State *lua_state;
	213	lua_state = luaL_newstate();
	214
	215	// load Lua libraries
5a92cb52	216	luaL_openlibs(lua_state);
a0655c45	217
	218	//Sets the pm3 core libraries, that go a bit 'under the hood'
	219	set_pm3_libraries(lua_state);
	220
	221	//Sets the 'command line' libraries, basically just the commandline stuff
	222	set_cmdlibraries(lua_state);
f057bddb	223
	224	//Add the 'bin' library
	225	set_bin_library(lua_state);
	226
a403a559	227	// char cmd_name[32];
	228	// memset(cmd_name, 0, 32);
	229	// sscanf(Cmd, "%31s%n", cmd_name, &len);
	230
30a5d355	231	char script_name[128] = {0};
30a5d355	232	char arguments[256] = {0};
a403a559	233
	234	int name_len = 0;
	235	int arg_len = 0;
	236	sscanf(Cmd, "%127s%n %255[^\n\r]%n", script_name,&name_len, arguments, &arg_len);
	237
	238	char *suffix = "";
	239	if(!endsWith(script_name,".lua"))
	240	{
	241	suffix = ".lua";
	242	}
806dc075	243
806dc075	244	char buf[256];
a403a559	245	snprintf(buf, sizeof buf, "./scripts/%s%s", script_name, suffix);
a403a559	246
30a5d355	247	printf("--- Executing: %s, args'%s'\n",buf,arguments);
a403a559	248
	249
	250
806dc075	251
806dc075	252	// run the Lua script
a0655c45	253
	254	int error = luaL_loadfile(lua_state, buf);
	255	if(!error)
	256	{
a403a559	257
	258	lua_pushstring(lua_state, arguments);
	259	lua_setglobal(lua_state, "args");
	260
	261	//Call it with 0 arguments
a0655c45	262	error = lua_pcall(lua_state, 0, LUA_MULTRET, 0); // once again, returns non-0 on error,
	263	}
	264	if(error) // if non-0, then an error
	265	{
	266	// the top of the stack should be the error string
	267	if (!lua_isstring(lua_state, lua_gettop(lua_state)))
	268	printf( "Error - but no error (?!)");
	269
	270	// get the top of the stack as the error and pop it off
	271	const char * str = lua_tostring(lua_state, lua_gettop(lua_state));
	272	lua_pop(lua_state, 1);
	273	printf(str);
	274	}
	275
	276	//luaL_dofile(lua_state, buf);
806dc075	277	// close the Lua state
806dc075	278	lua_close(lua_state);
96e7a3a5	279	printf("\n-----Finished\n");
806dc075	280	}
806dc075	281