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

LISP - VERCION DE PRUEBA

3 participantes

Ir abajo

LISP - VERCION DE PRUEBA Empty LISP - VERCION DE PRUEBA

Mensaje por eduardoceliz Miér Jun 01, 2016 4:44 am

HOLA RECURRO NUEVAMENTE A SU AYUDA, QUISIERA SABER COMO GENERAR UN CODIGO LISP CON VERCION DE PRUEBA DIGAMOS QUE DURE 30 DÍAS O QUE SE EJECUTE UN NUMERO LIMITADO DE VECES, HE ESTADO BUSCANDO INFORMACIÓN EN SAN GOOGLE LO ÚNICO Q E LOGRADO OBTENER ES EL CÓDIGO IP Y MAC DE LA MAQUINA EN DONDE SE DESEA EJECUTAR, ES POSIBLE ESTO???- AGRADECERÍA ME DIERAN UNA IDEA DE COMO PODER REALIZARLO

eduardoceliz

Mensajes : 20
Fecha de inscripción : 29/03/2016

Volver arriba Ir abajo

LISP - VERCION DE PRUEBA Empty Re: LISP - VERCION DE PRUEBA

Mensaje por devitg Jue Jun 02, 2016 2:11 pm

Quizás encuentres una VERSIÓN de prueba

devitg
Admin

Mensajes : 257
Fecha de inscripción : 16/03/2016
Edad : 75
Localización : CORDOBA ARGENTINA

https://acadhispano.foroargentina.net

Volver arriba Ir abajo

LISP - VERCION DE PRUEBA Empty Licencia fija

Mensaje por Dominguez Vie Jun 24, 2016 11:20 am

Existen multitud de formas de licencias, pero aqui te pongo la mas sencilla para que te vallas familiarizando.
Código:
 ; Metodo para licencia FIJA, donde se escribe la fecha de caducidad de la licencia.
 ; Al llegar la fecha, caduca la rutina aunque nunca se halla usado.
;;;
 ; ESTA ES LA RUTINA PROTEGIDA
(defun ##### () ; poner cualquier nombre a la RUTINA PROTEGIDA, (SOLO CONOCIDO POR EL AUTOR)
            ;|codigo
                codigo
                codigo
                codigo
                codigo|;
)
;;;
; poner aqui el nombre de la RUTINA_PROTEGIDA
(defun c:rutina_protegida (/ hoy lic)
  (setvar "cmdecho" 0)
  (setq hoy (atoi (rtos (getvar "cdate") 2 0))
        lic 20070515 ;año/mes/dia (poner aqui fecha de caducidad)
  )
  (cond ((< hoy lic) (#####))
        ((= hoy lic) (alert "Hoy caduca su LICENCIA  ") (#####))
        ((> hoy lic)
          (alert (strcat "Su LICENCIA ha caducado\n"
                        " Pongase en contacto con\n\n"
                        "A U T O R" ; poner aqui el nombre del autor
                )
          )
          (exit)
        )
  )
  (prin1)
)
;;;
Dominguez
Dominguez

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

Volver arriba Ir abajo

LISP - VERCION DE PRUEBA Empty Re: LISP - VERCION DE PRUEBA

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

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