[Red Nova]

Есть ли возможность простым методом сделать из совокупности лисп кодов и меню программу хоть по минимуму защищенную от взлома? Так чтобы поставил программу на конкретный компьютер вписал активационный ключ, который неким образом связан скажем с mac адресом конкретного компьютера. Затем программа устанавливается на компьютер, но так чтобы нельзя было просто скопировать ее на другой компьютер и прописать в автозагрузку Автокада.

[VVA]

(dwgru-string-replace "00:1B:FC:EA:F6:46" ":" "")

[Red Nova]

VVA, Спасибо. Даже странно что штатной такой функции нет.
Я тут вот что думал. Наша защита получилась весьма уязвимой, потому как можно запросто вычеслить какая буква какой заменяется в результате bool.
Во первых я решил привязываться к мак адресу, он бывает к примеру таким

Код:

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

("00:1B:FC:EA:F6:46" "00:1B:FC:EA:F6:46" "DA:50:20:52:41:53" 
"33:50:6F:45:30:30" "50:50:54:50:30:30" "20:41:53:59:4E:FF")

Во вотрых я решил в коде развернуть элементы этого списка местами, и потом уже применять к ним strcat и bool. Вот так.

Код:

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

(setq usr (dwgru-string-replace (apply 'strcat  (reverse (VK_GETMACADDRESS)))":" ""))

И с получением серийного кода у меня проблем не возникло, а вот во время его декомпиляции непонятки есть. А конкретнее как список типа такого
(хотя это в общем то и не список, так как разделений между цифрами нету)

Код:

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

("204153594EFF50505450303033506F453030DA5020524153001BFCEAF646001BFCEAF646")

разбить на 6 подсписков в каждом по 12 элементов, вот так?

Код:

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

("204153594EFF" "5050545030303" "3506F453030D" "A50205241530" "01BFCEAF6460" "01BFCEAF646")

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

Red Nova,

Код:

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

(defun conv-string-to-sublist (str len)
                              ;|
*    Преобразование строки в список подстрок по длине
*    Параметры вызова:
	str	обрабатываемая строка
	len	длина "подсписка"
|;
  (cond
    ((not str) "")
    ((< (strlen str) len) (list str))
    (t
     (cons (substr str 1 len)
           (conv-string-to-sublist (substr str (1+ len)) len)
           ) ;_ end of cons
     )
    ) ;_ end of cond
  ) ;_ end of defun

[Red Nova]

Кулик Алексей aka kpblc, Спасибо, правда в конце получается аппендикс, как его удалить?

Код:

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

("204153594EFF" "505054503030" "33506F453030"
 "DA5020524153" "001BFCEAF646" "001BFCEAF646" "")

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

Замени строку ((not str) "") на ((not str) nil)

[Red Nova]

Кулик Алексей aka kpblc,
Неа, не помогло, в конце опять приписывает "". Хотя в принципе это и не мешает, так как я дальше буду применять

Код:

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

(apply 'strcat (reverse ***))

так что элемент "" исчезнет.

[CB]

Код:

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

(defun conv-string-to-sublist (str len)
;|
*    Преобразование строки в список подстрок по длине
*    Параметры вызова:
 str обрабатываемая строка
 len длина "подсписка"
|;
  (cond
    ((equal str "") nil)
    ((< (strlen str) len) (list str))
    (t
     (cons (substr str 1 len)
           (conv-string-to-sublist (substr str (1+ len)) len)
     ) ;_ end of cons
    )
  ) ;_ end of cond
) ;_ end of defun