acad hispano
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Duda acerca de Rutinas LIsp

Ir abajo

Duda acerca de Rutinas LIsp Empty Duda acerca de Rutinas LIsp

Mensaje por Francisco Manjarrez el Jue Nov 23, 2017 2:12 am

Hace un tiempo en un despacho invirtieron en el desarrollo de unas aplicaciones Lisp y de un momento a otro dejaron de funcionar así nada mas...}
La pregunta que me hago ahora es: ¿Es posible bloquear las Rutinas? ¿Se les puede dar una fecha para expirar? y si es posible, ¿como es que se hace?
De antemano muchas gracias, aclaro que no tengo estas rutinas y es una duda que me surgió en ese momento hace un par de años...

Saludos!!!

Francisco Manjarrez

Mensajes : 12
Fecha de inscripción : 10/08/2016

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Marco Jacinto el Jue Nov 23, 2017 3:48 pm

Si se pueden bloquear, el concepto se llama bomba de tiempo y básicamente es un condicional que revisa la hora del sistema y la compara con una fecha preestablecida para evitar que trabajen las funciones.

Te recomendaría revisar el "contrato" del trabajo realizado, esto con el fin de saber si hay una clausula que indique un pago anual o similar para que las funciones sigan operando.

Sin conocer las rutinas sería dificil evaluar por que dejaron de funcionar. Las que he desarrollado usan doslib y opendcl, las cuales con las nuevas versiones de CAD requieren que se les actualice el arx de dichos programas, pero eso lo hago sin costo.

Marco Jacinto

Mensajes : 74
Fecha de inscripción : 12/08/2016

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Francisco Manjarrez el Vie Nov 24, 2017 4:41 pm

Ok muchas gracias es bueno saberlo aunque sea ya despues de mucho tiempo, lo lamentable es que ya no tengo acceso a dichas rutinas pero si logro tener acceso las publico para mas referencia!!
Por ultimo, las rutinas "abiertas" ¿no se pueden bloquear ni crear el contador que comentas Marco Jacinto??

Saludos!!!

Francisco Manjarrez

Mensajes : 12
Fecha de inscripción : 10/08/2016

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Marco Jacinto el Vie Nov 24, 2017 4:59 pm

Si se puede, pero al estar abiertas tendrías que compilarlas, aunque estarías plagiando el trabajo de alguien mas, y eso no es ético.


Marco Jacinto

Mensajes : 74
Fecha de inscripción : 12/08/2016

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Francisco Manjarrez el Sáb Nov 25, 2017 6:47 am

Sorry Marco Jacinto pero preguntaba por interés didáctico, y como ya he mencionado con anterioridad mis conocimientos son limitados pero aun así ya tengo un par de rutinas de mi autoría que pues funcionan y pues quiero seguir aprendiendo, aunque los conocimientos adquiridos no pueda aplicarlos aun.
Y ademas créeme que si algo tengo es que trato de no plagiar nada y si en algún momento lo hago se que hay que mencionar al programador que nos aporta aunque sea una linea del programa: "Al Cesar lo que es del Cesar"

Francisco Manjarrez

Mensajes : 12
Fecha de inscripción : 10/08/2016

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Marco Jacinto el Lun Nov 27, 2017 4:10 pm

Lo decía solo para indicar el hecho, no acusandote, lamento si la intención de mi mensaje no fue el correcto.

Que bueno que tengas rutinas funcionales, no hay nada como el que algo salga bien para motivarse a seguir en el camino.

Marco Jacinto

Mensajes : 74
Fecha de inscripción : 12/08/2016

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por julio cesar hernandez el Sáb Feb 10, 2018 4:00 am

hola, me interesa aprender a programar autolisp. por favor necesito ayuda

julio cesar hernandez

Mensajes : 1
Fecha de inscripción : 30/01/2018

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Marco Jacinto el Sáb Feb 10, 2018 8:29 pm

Estas en un excelente lugar, habemos muchos con ansias de responder preguntas y aprender en el proceso.

Checate este link para empezar
bit.ly 2slbB4l

Marco Jacinto

Mensajes : 74
Fecha de inscripción : 12/08/2016

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Francisco Manjarrez el Sáb Mayo 30, 2020 3:53 am

Hola buenas tardes!!! , espero todos se encuentren bien de salud!!! siguiendo el tema encontré este ejemplo de lo que hablaba, lamentablemente lo cargue para revisar y no funciona, podría alguien ayudar para entender que sucede?? aclaro el código no es mio pero parecía indicar una "bomba de tiempo". saludos!!!!
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)
)

Francisco Manjarrez

Mensajes : 12
Fecha de inscripción : 10/08/2016

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Admin el Dom Mayo 31, 2020 1:54 am

Usa como comando CSL2



Código:
(defun C: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)

)

Admin
Admin

Mensajes : 216
Fecha de inscripción : 16/03/2016
Edad : 72
Localización : CORDOBA ARGENTINA

https://acadhispano.foroargentina.net

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Dominguez el Mar Jun 09, 2020 10:34 pm

Yo tengo un sistema de bloqueo de rutinas, el cual solo pide una contraseña, que solo sabe el dueño, (pero una contraseña variable), que genera otra rutina compilada, pues solo la pide la primera vez que se ejecuta la rutina protegida, y esta solo funcionara los dias de uso marcados en ella.Pero al caducar la licencia, te pedira otra vez la contraseña, que ya no sera la misma que la primera vez.
Pues el dueño de la rutina sera el generador de codigo de contraseña.
Dominguez
Dominguez

Mensajes : 94
Fecha de inscripción : 20/03/2016
Edad : 70
Localización : Zaragoza (España)

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por saulo2016 el Miér Jun 10, 2020 3:19 pm

Maestro Dominguez, pues a mi me interesa esa rutina para generar contraseñas.

¿Acaso no sera posible que usted me la podria proporcionar?

Saludos Maestro
saulo2016
saulo2016

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

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Dominguez el Jue Jun 25, 2020 7:27 pm

saulo2016 escribió:Maestro Dominguez, pues a mi me interesa esa rutina para generar contraseñas.

¿Acaso no sera posible que usted me la podria proporcionar?

Saludos Maestro
pues te puedo proporcionar el generador de contraseñas, pero las rutinas a proteger, tambien te las puedo adaptar yo, y despues con tu generador de contraseñas solo tu podras poner las rutinas en marcha.
un saludo
Dominguez
Dominguez

Mensajes : 94
Fecha de inscripción : 20/03/2016
Edad : 70
Localización : Zaragoza (España)

A carloncho_ le gusta esta publicaciòn

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por saulo2016 el Mar Jun 30, 2020 5:47 am

Pues esta muy bien lo que usted me propone Maestro, pero son muchos los archivos que tengo y ademas tengo que ponerme a filtrar cuales si y cuales no necesito proteger...
saulo2016
saulo2016

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

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Dominguez el Jue Oct 15, 2020 5:31 pm

Pues mandame a mi crreo alguna rutina, te la devolvere compilada y protegida, para que solo tu y quien tu quieras la pueda disfrutar,
Dominguez
Dominguez

Mensajes : 94
Fecha de inscripción : 20/03/2016
Edad : 70
Localización : Zaragoza (España)

Volver arriba Ir abajo

Duda acerca de Rutinas LIsp Empty Re: Duda acerca de Rutinas LIsp

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


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