Clipper/FiveWin - Ayuda Urgente

Hola.
Nesecito ayuda ya que tengo un programa que realize para una veterinaria y lo quiero proteger antes de instalarlo para que no me lo pirateen, si alguien me pudiera ayudar se lo agradeceria mucho.

mira, esta es una solucion implementada por Pedro Fernandez (espero que no se moleste) del foro de fivewin de fivetech

IF !File( Upper( "fCfgUser.DBF" ) )
DbCreate( "fCfgUser", { { "SerialHD", "Numeric", 10, 0 };
, { "BiosID", "Numeric", 10, 0 };
, { "BiosDate", "Numeric", 10, 0 };
, { "BiosOEM", "Numeric", 10, 0 };
, { "BiosType", "Numeric", 10, 0 };
, { "PathCtral", "Character", 100, 0 };
, { "PathCtro", "Character", 100, 0 };
, { "PathUser", "Character", 100, 0 };
, { "IniName", "Character", 08, 0 };
, { "IniPW", "Character", 08, 0 };
} )
fOpenDBF( "fCfgUser", "Cfg", cPathTmp )
fBloqueo( .T., "Cfg" )
fBloqueo( .F., "Cfg" )
Cfg->SerialHD := nSerialHD()
Cfg->BiosID := BiosInformation('1043592')
Cfg->BiosDate := BiosInformation('1048565')
Cfg->BiosOEM := BiosInformation('1040577')
Cfg->BiosType := BiosInformation('1040481')
Cfg->( DbUnLock() )
Cfg->( DbCommit() )
ENDIF
continua -------- >>

< ------ continuacion
/*
INFORMACION DE LA BIOS DEL EQUIPO
*/
FUNCTION BiosInformation(nfunction)

// nFunction
// Bios signon
// 1043592 Bios ID
// 1048565 Bios Date
// 1040577 Bios OEM signon
// 1040481 Bios Type
//

//local n, nFunction de felix
local n // mio nfunction esta arriba
local k
local sBiosInf
sBiosInf :=0
// nFunction= 1043592
//? pcount(),pcount()=0
if pcount()=0
nfunction='10'
endif
//? nfunction, valtype(nfunction)
For n := 0 To 20
// sBiosInf += Chr( PeekByte(val(nFunction),n)) // Cambia nFunction
por los
for k=1 to 10
sBiosInf += PeekByte(val(nFunction),10*n+k) // Cambia nFunction
por los
if k=10;sBiosInf +=
(PeekByte(val(nFunction),10*n+k))*(PeekByte(val(nFunction),10*n+k));endif
next k
//
//números de arriba
Next n
//MsgInfo(sBiosInf)
//? sBiosInf , valtype(sBiosInf),'hola'
RETURN sbiosinf
//con mi Bios Award funciona.