Возможно ли защитить код на Lisp (Страница 1 из 2)

Да, конечно, хоть как-то можно :))). А конкретнее, чтобы код нельзя было прочитать?

Виктор, судя по тому, что спрашиваешь "чтоб код нельзя было прочитать", и не знаешь про компиляцию, то ты начинающий LISP-программист. И явно переоцениваешь ценность своего кода.
На этом и других форумах найдешь тысячи функций. Хороших и разных. В том числе сотни таких великолепных, которые действительно заслуживают авторского права. Но их публикуют открыто и бесплатно. Если считают нужным. В том числе, и Евгений Елпанов.
Сравни свои работы с другими, и поймешь, что их и не надо защищать. А если компилировать, то не ради того, чтобы "не украли", а чтобы кто-то совсем бестолковый не привел их в нерабочее состояние. Ради "авторских прав" и декомпилировать не будут - просто, если надо, напишут такое же, только работающее лучше и надежнее. Даже для пожарной сигнализации.

> Виктор
Компиляция - не поможет от переноса программы в другую фирму, а только, частично, защитит программу от изменений внутри кода...
Для защиты программы от переноса в другую фирму, необходим целый комплекс задач, т.е. необходимо найти некие незыблемые параметры в вашей фирме, которые трудно воспроизводятся в других местах и не требуют больших затрат на поддержание. Потом, внутрь программы, встраивается проверка этих параметров в разные места программы, как пример, название домена - разрешение на загрузку программы, совпадение ключа, лежащего в сетевой базе данных с прописанным в программе - разрешение на работу программы...
Готовых советов, никто тебе не даст - любое стандартное решение, через небольшой промежуток времени, начинает ломаться стандартными методами...

А словами алгоритм нельзя описать? Типа рекламного описания. Что там такое автоматизировано, что прирост по времени дает. Это только пожарка?

> Малявка
http://forums.augi.com/forumdisplay.php?f=905
http://www.arcada.com.ua/forum/index.ph … 1dcd3e9823
http://www.theswamp.org/index.php?board=2.0
http://www.cadtutor.net/forum/forumdisplay.php?f=21
http://autolisp-exchange.com/forum/index.php
http://forums.augi.com/forumdisplay.php?f=91

Ранее самой популярной была конференция Виктора Ткаченко. Тогда dwg.ru еще не было. Но, после пары аварий и потери материалов, практически умерла. Останки наследника здесь:
http://www.cad.dp.ua/cadboard/

> Евгений Елпанов
А может ли лисп при копировании  сам себя изменять или портить или добовлять что-либо не нужное,так ,чтоб им нельзя было бы пользоваться?
Это конечно далеко от идеала, но все таки...

> Евгений Елпанов
Что-то про копирование ничего не нашел!
К сожалению!

> Vovka
Ой, а можно на примере, это очень интересно!
Теоретически понятно, а вот практически, как заставить лисп залезть в компютер и подсмотреть например серийный номер HDD или CPU или MAC адресс и потом сравнить с тем, что внем прописан.
Заранее спасибо!

> Алик

> Yuriy
проще всего дело обстоит c типом CPU

(getenv "PROCESSOR_IDENTIFIER")

вот MAC адрес

(defun vk_GetMacAddress
       (/ LocatorObj ServiceObj  ObjectSetObj OutList)
  (setq LocatorObj (vlax-create-object "WbemScripting.SWbemLocator"))
  (setq    ServiceObj
     (vlax-invoke
       LocatorObj 'ConnectServer nil nil nil nil nil nil nil nil)
  )
  (setq    ObjectSetObj
     (vlax-invoke
       ServiceObj
       'ExecQuery
       "SELECT MACAddress FROM Win32_NetworkAdapter"
     )
  )
  (vlax-for Obj    ObjectSetObj
    (setq OutList (cons (vlax-get Obj 'MACAddress) OutList))
  )
  (foreach Obj (list LocatorObj ServiceObj  ObjectSetObj)
    (and Obj (vlax-release-object Obj))
  )
  (vl-remove nil OutList)
)

и хуже всего дело с HDD

(defun vk_GetHDDID (/           LocatorObj      ServiceObj
            ObjectSetObj1  ObjectSetObj2  OutList1
            OutList2
           )
  (setq LocatorObj (vlax-create-object "WbemScripting.SWbemLocator"))
  (setq    ServiceObj
     (vlax-invoke
       LocatorObj 'ConnectServer nil nil nil nil nil nil nil nil)
  )
  (setq    ObjectSetObj1 (vlax-invoke
            ServiceObj
            'ExecQuery
            "Select * from Win32_DiskDrive"
              )
    ObjectSetObj2 (vlax-invoke
            ServiceObj
            'ExecQuery
            "Select * from Win32_PhysicalMedia"
              )
  )
  (vlax-for Obj    ObjectSetObj1
    (setq OutList1 (cons (vlax-get Obj 'Model) OutList1))
  )
  (vlax-for Obj    ObjectSetObj2
    (setq OutList2 (cons (vlax-get Obj 'SerialNumber) OutList2))
  )
  (foreach var (list LocatorObj ServiceObj ObjectSetObj1 ObjectSetObj2)
    (and var (vlax-release-object var))
  )
  (mapcar 'cons OutList1 OutList2)
)

работает только в ХР и не работает с SATA

!> Vovka (2008-07-28 00:13:40)
Уважаемый  Vovka!
Я очень слаб в лиспе, очень Вас прошу о помощи!
Мне необходимо вставить в существующий лисп проверку MAC адрес и разрешить или запретить использование данного лиспа.
Можно ли привести пример?
С уважением!