Proteger una rutina contra copias ilegales

Buen día.
Pregunta: ¿Es posible, mediante algunas lineas de programación en Lisp, proteger un código o rutina lisp, de tal forma que solo corra en una única PC?.
Pasa que he creado una pequeña rutina, que supuestamente era solo para la oficina para la que trabajo, y me he dado cuenta de que ya otras personas la usan, eso no me molesta, lo malo es que sin mi permiso la copiaron y han lucrado con ella.
Les agradezco su ayuda.

Tal vez esto te sirva
http://www.afralisp.net/archive/vl/vl-comp.htm

Existe una librería de funciones, doslib, de McNeel, que te permite leer el número de serie del disco duro, direcciones mac, etc. Todo ello ligado al ordenador donde quieres que funcione el programa. Si además compilas el lisp fuente, es una opción básica para limitar el uso de tus programas. Se puede hacer lo mismo accediendo a "scripts" del sistema. Pero con la librería doslib, el acceso es más sencillo. Mira aquí:
http://www.es.emea.mcneel.com/doslib.htm

Esto es sólo uno de los pasos que puedes utilizar. Espero que te sirva

Buen día a todos.
Gracias bernie67, gracias diogenes66, por la información.
Voy a "jugar" un poco con esto, a ver que sale.
De nuevo gracias

Hola José Francisco

Mira, pues andaba un poco sin que hacer y entre a una pagina del CAD-Tips y me encontre este codigo, haber si te da una idea para que hagas algo con tus archivos

Código:

(DEFUN C:SCL1 ()

(SETQ LOCK (GETENV "KEYLOCK"))

(IF (= LOCK "1287")(SCL2)(CD))

(PRINC)

)

 

(DEFUN CD ()

(SETQ COUNT 3)

(IF (= A NIL)(SETQ A 1))

(COND

((<= A 3)(SCL2)(SETQ A (+ A 1)))

((> A 3)(ALERT"TO LATE, ORDER NOW"))

)

(PRINC)

)

 

(defun scl2 (/ UN SC PR PT)

(setq un (getvar "dimlunit"))

(setq sc (getvar "dimscale"))

(if

 (= un 4)

   (cond

            ((= sc 384)(setq pr "SCALE: 1/32\"= 1\'-0\""))

            ((= sc 192)(setq pr "SCALE: 1/16\"= 1\'-0\""))

            ((= sc 128)(setq pr "SCALE: 3/32\"= 1\'-0\""))

            ((= sc 96)(setq pr "SCALE: 1/8\"= 1\'-0\""))

            ((= sc 64)(setq pr "SCALE: 3/16\"= 1\'-0\""))

            ((= sc 48)(setq pr "SCALE: 1/4\"= 1\'-0\""))

            ((= sc 32)(setq pr "SCALE: 3/8\"= 1\'-0\""))

            ((= sc 24)(setq pr "SCALE: 1/2\"= 1\'-0\""))

            ((= sc 16)(setq pr "SCALE: 3/4\"= 1\'-0\""))

            ((= sc 12)(setq pr "SCALE: 1\"= 1\'-0\""))

            ((= sc 8)(setq pr "SCALE: 1 1/2\"= 1\'-0\""))

            ((= sc 4)(setq pr "SCALE: 3\"= 1\'-0\""))

            ((= sc 2)(setq pr "SCALE: 6\"= 1\'-0\""))

    )

 

   (cond

            ((= sc 1)(setq pr "SCALE: 1\"= 1\'-0\""))

            ((= sc 5)(setq pr "SCALE: 1\"= 5\'-0\""))

            ((= sc 10)(setq pr "SCALE: 1\"= 10\'-0\""))

            ((= sc 20)(setq pr "SCALE: 1\"= 20\'-0\""))

            ((= sc 30)(setq pr "SCALE: 1\"= 30\'-0\""))

            ((= sc 40)(setq pr "SCALE: 1\"= 40\'-0\""))

            ((= sc 50)(setq pr "SCALE: 1\"= 50\'-0\""))

            ((= sc 100)(setq pr "SCALE: 1\"= 100\'-0\""))

            ((= sc 200)(setq pr "SCALE: 1\"= 200\'-0\""))

            ((= sc 400)(setq pr "SCALE: 1\"= 400\'-0\""))

            ((= sc 500)(setq pr "SCALE: 1\"= 500\'-0\""))

            ((= sc 600)(setq pr "SCALE: 1\"= 600\'-0\""))

            ((= sc 800)(setq pr "SCALE: 1\"= 800\'-0\""))

            ((= sc 1000)(setq pr "SCALE: 1\"= 1000\'-0\""))

    )

)

(setq pt (getpoint"\nSelect Starting Point: "))

(if

  (= pt nil)

    (progn

      (Alert"Starting Point was NOT selected, try again !")

      (exit)

    )

)

(command"text" pt "" "" pr)

(princ)

)

 

 

(DEFUN C:KEYL ()
(SETENV"KEYLOCK" "1287")
(PRINC)
)

Saludos

Buen día.
Saulo2016, gracias por la información.
Es interesante; asignar un número de "usos" a un lisp.
Es una opción que se debe considerar.
Muchas gracias.