% Clean workspace !cp get_me.m safe !rm *.* !mv safe get_me.m !rm @* % Clean user's function from some known jailbreaking mechanisms fid = fopen('get_me.m'); st = regexprep(char(fread(fid)'), '!', 'error(''No shell commands!''); %'); st = regexprep(st, 'feval', 'error(''No fancy functions!''); %'); st = regexprep(st, 'str2func', 'error(''No fancy functions!''); %'); st = regexprep(st, 'regex', 'error(''No fancy functions!''); %'); st = regexprep(st, 'system', 'error(''No shell commands!''); %'); st = regexprep(st, 'dos', 'error(''No shell commands!''); %'); st = regexprep(st, 'unix', 'error(''No shell commands!''); %'); st = regexprep(st, 'perl', 'error(''No external languages commands!''); %'); st = regexprep(st, 'java', 'error(''No external languages commands!''); %'); fclose(fid) fid = fopen('get_me.m' , 'w'); fwrite(fid,st); fclose(fid) % Release the Kraken! get_me() % Try to cleanup the mess !cp get_me.m safe !rm *.* !mv safe get_me.m !rm @* path(pathdef) % undo any change on search path assert(isequal(ans,now))