FoxPro/Visual FoxPro - seguridad

Hola amigos.

Alguien podría orientarme en la implementación de un método que evite que el programa exe (fox pro dos 2.6) de facturación y control de stock sea copiado sin mi autorización y funcione en otra PC????.

Gracias

PD. He observado los comandos o funciones SYS() pero quizás exista algo mucho mejor

HOLA AMIGO LO QUE PUEDES HACER ES EXTRAER EL NUMERO DE SERIE DEL DISCO DURO DE ESA PC Y ASI HACER UNA VERIFICACION DEL CODIGO DE ESA MAQUINAS, SI EL CODIGO DEL DISCO DURO ES DIFERENTE AL DE LA PC DEL SISTEMA QUE LANZE UN ERROR QUE EL SISTEMA NO SE PUEEDE EJACUTAR.
CREA UNA TABLA DONDE ALMACENES ESE NUMERO DE SERIE DEL DISCO DURO, LLAMALA TBL_SERIE, CREA UN CAMPO NUMERO_SERIE

*-- EXTRAER Número de Serie del disco Duro:
oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('c').SerialNumber
cSerie =str(nroser,20)
?'Numero de Serie: '+ (cSerie)

SELECT TBL_SERIE
if NUMERO_SERIE <> cSerie
messabox("No se puede abrir el sistema", 0+16, "error")
endif

ESPERO TE AYUDE
SALUDES