FoxPro/Visual FoxPro - Como proteger el programa de copias

   
Vista:

Como proteger el programa de copias

Publicado por kong (681 intervenciones) el 22/07/2008 10:17:57
Estimados.
Tiene alguna rutina para proteger su programa de copias ilegales?
Me podrian facilitar?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como proteger el programa de copias

Publicado por alberto (399 intervenciones) el 22/07/2008 15:19:38
mira amigo yo uso una rutina simple y gratuita para nosotros, consiste en instalar unos archivos perdidos por ahi dentro del equipo y cdo arranco con el sistema con la funcion file() busco esos archivos, si no estan mando mensaje " SISTEMA PROTEGIDO CONTRA COPIA " Y ABORTO TODO.
esta rutina funciona bien , otra opcion un poco mas cara es instalarle una llave protectora de software ( hardkey )pero ahi ya se encarece mas el precio del sistema.
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como proteger el programa de copias

Publicado por HELDER MARTINEZ (710 intervenciones) el 22/07/2008 19:28:20
yo creo un archivo Windows_Key_crack.dll y lo copio en la ruta C:windowssystem32

Si el archivo existe me abrira el programa de lo contrario lanza un msg de error.

algo asi.

IF NOT file("C:windowssystem32Windows_Key_crack.dll")
MESSAGEBOX("Programa invalido, por favor consiga una version original", 0+48, "Error")
QUIT
ELSE
do form mi_formulario.scx
endif

*********O LO PUEDES HACER VERIFICANDO EL SERIAL DEL DISCO DURO, ALGO ASI;

**ALMACENANDO EL SERIAL DE TU DISCO EN UNA TABLA. Y LUEGO HACER UNA COMPARACION

**CON ESTE CODIGO PUEDES SACAR EL SERIAL DE TU DISCO DURO
oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('c').SerialNumber
cSerie =str(nroser,20)
?'Numero de Serie: '+ (cSerie)

select tabla
cSerie_tabla = alltrim(campo)

IF cSerie_tabla == (cSerie)
do form mi_formularioPrincipal.scx
else
m=messagebox("El usuario no esta autorizado para usar este programa", 0+16, "Error Busque una licencia original")
endif

HACES UNA COMPARACION DE VARIABLES

CLARO CADA VEZ QUE DESEES VENDER TU PROGRAMA, TIENES QUE CREAR UNA LICENCIA CON EL NUMERO DE SERIAL DEL DISCO DURO DE TU CLIENTE.

ESPERO TE SIRVA
SALUDES
HELDER MARTINEZ
HONDURAS. CA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como proteger el programa de copias

Publicado por kong (681 intervenciones) el 23/07/2008 10:54:54
muchas gracias amigos, si me hace falta algo mas, les seguire molestando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar