Proteger una rutina contra copias ilegales

Ver el tema anterior Ver el tema siguiente Ir abajo

Proteger una rutina contra copias ilegales

Mensaje por José Francisco el Mar Ago 23, 2016 11:18 pm

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.

José Francisco

Mensajes : 10
Fecha de inscripción : 30/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Proteger una rutina contra copias ilegales

Mensaje por bernie67 el Mar Ago 23, 2016 11:27 pm

avatar
bernie67

Mensajes : 53
Fecha de inscripción : 22/03/2016
Edad : 50
Localización : Bogota DC-Colombia

Ver perfil de usuario

Volver arriba Ir abajo

Re: Proteger una rutina contra copias ilegales

Mensaje por diogenes66 el Miér Ago 24, 2016 10:42 am

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

diogenes66

Mensajes : 4
Fecha de inscripción : 19/05/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Proteger una rutina contra copias ilegales

Mensaje por José Francisco el Miér Ago 24, 2016 5:23 pm

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

José Francisco

Mensajes : 10
Fecha de inscripción : 30/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Proteger una rutina contra copias ilegales

Mensaje por saulo2016 el Jue Ago 25, 2016 12:38 am

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
avatar
saulo2016

Mensajes : 119
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: Proteger una rutina contra copias ilegales

Mensaje por José Francisco el Jue Ago 25, 2016 6:27 pm

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.

José Francisco

Mensajes : 10
Fecha de inscripción : 30/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: Proteger una rutina contra copias ilegales

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.