Que tal Carlos buenas tardes...
Se me ocurre trabajar con archivos .ini que son textos planos que puedes abrir y modificar con notepad:
- Code: Select all Expand view
[Reportes]
Actual=27 --> Cantidad de Reportes Impresos
Maximo = 50 --> Maximo de Reportes Permitidos
lo puedes manipular cambiandole la extención para que este "disfrazado" dentro de la carpeta "C:\Windows\System32\" ya que como muchos decimos casi nadie se mete a buscar que encuentra ahí, o mejor aùn una base de datos tambien con extención diferente para camuflagear (
cambialo de .dbf a .sys por ejemplo) y tener estos mismos campos y encriptarlos y desencriptarlos para comparar la cantidad de reportes, puedes tambien jugar con cambiar la fecha y la hora de cuando modifiques este archivo para que si tu quieres despistes a alguien que piense que con la fecha y hora puede encontrarlo y manipularlo.
Yo lo hago asì..
- Code: Select all Expand view
LOCAL cDBFFile:= GetSysDir()+"\xpnthaf7.msi"
USE cDBFFile "DEMO" exclusive
GOTO TOP
REPLACE (1)->UltimoUso WITH encrypt(date(),"miclavepara esconder") // para protegerlo
//decrypt((1)->UltimoUso,"miclavepara esconder") para desprotegerlo
USE
FechArch(cDBFFile, "21:50:43", "03/07/1999")
//--------------------------------------------------------
FUNCTION FechArch(cFile,cHora,cFecha) //para cambiar fecha y hora de archivos candados y despistar al enemigo.. jejeje :)
LOCAL hFile:= FOPEN( cFile, FO_READWRITE )
SetFTime(hFile, cHora, FixYear(CTOD(cFecha)))
FCLOSE( hFile )
RETURN nil
Espero haberte ayudado o darte una pista..
Saludos..