[granit201z]

то есть, например, я хочу исполнить ф-ю (alert "некоторое сообщение"), но не хочу, чтобы имело место слово alert. Для этого надо

(setq fara "alert")
((Неизвестная_Мне_Функция fara) "некоторое сообщение")

Можно ли подобное провернуть на AutoLisp, то есть существует ли так называемая Неизвестная_Мне_Функция?

Заранее спасибо

----- добавлено через ~30 мин. -----
ф-я read не подошла, т.к. преобразовывает в SYM а не SUBR

[Кулик Алексей aka kpblc]

А вот (eval (read <...>)) делает то, что надо.

----- добавлено через 14 сек. -----
Правда, на фига так поступать - неясно.

----- добавлено через ~3 мин. -----

Код:

[Выделить все]

 (setq ttt "alert")
(eval (read (strcat "(" ttt " \"Test call\")")))

[granit201z]

Спасибо, Алексей! Просто программа в своем бесплатном исполнении должна утомлять пользователя просьбой зарегистрировать версию. Поэтому хотелось бы, чтобы в исходном коде слово alert не фигурировало, так как тогда слишком просто понять откуда ноги растут). Конечно при большом желании убрать назойливое сообщение эта мера не остановит "продвинутого хакера", но все же пусть взломщики хоть чуть-чуть поднапрягутся)

[Кулик Алексей aka kpblc]

Компилируй в fas / vlx - и проблем никаких.

----- добавлено через ~8 мин. -----
В качестве примера (накидал по-быстрому, поэтому дорабатывай как посчитаешь нужным)

Код:

[Выделить все]

 (defun get-hidden-msg (call-func / str)
  ;; (get-hidden-msg "(alert \"Зарегистрируйте версию!\")")
  ;; -> "016000940911664102011299613456010240115639601501765760052441515295382458081585645760053824576005904954289585645244101024510765244157600580815382464516010890115601681"
  (setq str (mapcar
              (function
                (lambda (x / _kpblc-string-align)
                  (defun _kpblc-string-align (string str-len sym is-left / sym_count)
                    (if (>= (setq
                              sym_count (- str-len (strlen string))
                              ) ;_ end of setq
                            1
                            ) ;_ end of >
                      (repeat sym_count
                        (setq string (if is-left
                                       (strcat sym string)
                                       (strcat string sym)
                                       ) ;_ end of if
                              ) ;_ end of setq
                        ) ;_ end of repeat
                      ) ;_ end of if
                    string
                    ) ;_ end of defun

                  (_kpblc-string-align (itoa (expt x 2)) 5 "0" t)
                  ) ;_ end of lambda
                ) ;_ end of function
              (vl-string->list call-func)
              ) ;_ end of mapcar
        ) ;_ end of setq
  (apply (function strcat) str)
  ) ;_ end of defun

(defun eval-call-func (func-name / _kpblc-conv-string-to-list-by-strlen)
  (defun _kpblc-conv-string-to-list-by-strlen (str len / res)
    (cond
      ((not str) nil)
      ((<= (strlen str) len) (list str))
      (t (cons (substr str 1 len) (_kpblc-conv-string-to-list-by-strlen (substr str (1+ len)) len)))
      ) ;_ end of cond
    ) ;_ end of defun
  (eval (read (vl-list->string (mapcar (function (lambda (x) (fix (sqrt (atoi x)))))
                                       (_kpblc-conv-string-to-list-by-strlen func-name 5)
                                       ) ;_ end of mapcar
                               ) ;_ end of VL-LIST->STRING
              ) ;_ end of read
        ) ;_ end of eval
  ) ;_ end of defun

[granit201z]

Спасибо! Премного благодарен)

[Do$]

Сообщение от Кулик Алексей aka kpblc Компилируй в fas / vlx - и проблем никаких.

+1
А с этими хитромудростями сам потом запутаешься, когда через какое-то время правки нужно будет в код вносить.

[VVA]

поучительная тема, особенно посты Евгения Елпанова часы в лиспе

----- добавлено через ~3 мин. -----
Возможно ли защитить код на Lisp

[granit201z]

Спасибо, VVA. Но это уже все в программе есть: и защита по времени, и защита по ключевой записи в реестре, и скомпилирована она в vlx. Но это все для основной версии, а для демонстрации нужно было это пресловутое "alert" замаскировать. Т.к. предполагаю декомпилировать vlx не сложно. И хоть там все переменные изменят свои названия и комментариев не будет, все равно alert будет предательски выделяться. Хотя впрочем вопрос закрыт благодаря Кулик Алексею. А тема на мой взгляд все-равно довольно интересная получилась

[Кулик Алексей aka kpblc]

Сообщение от granit201z декомпилировать vlx не сложно

Мне за 8 лет такое не удалось. Может быть, сейчас и вышли дизассемблеры более мощные и интересные, да еще и выдающие читабельный результат - не знаю (но с огромным интересом на них посмотрю).

[Дима_]

Код:

[Выделить все]

 (setq my-secret-function alert)
(my-secret-function "Опс")

[Vov.Ka]

если кому-то будет мешать твой alert, то он просто добавит (setvar "qaflags" 4)

[granit201z]

спасибо Vov.Ka. Информация полезная

[VVA]

Подробности здесь QAFLAGS (Системная переменная)