validar licencias

[diegopolverelli]

Hola. Tengo un pequeño soft de facturacion que estoy vendiendo y estoy buscando algun metodo para evitar que me lo copien y me lo roben, que no sea tan complicado; ¿conocen alguna funcion de fivewin h que me devuelva caracteristicas del mother o del bios? o bien si tienen algun algoritmo que valide este tipo de cosas (para evitar que con una copia del disco, o que con el transpaso del disco a otro cpu me roben el sistema). Gracias. Atte.


Diego.

[Antonio Linares]

Diego,

Puedes usar el número de serie del disco duro, y tambien el número de serie de la tarjeta de red.

Revisa nSerialHD() y GetNetCardID()

Tambien podrias usar un pendrive, de forma parecida. Hoy hemos puesto un ejemplo.

[QAZWSX2K]

tanbien lo puede validar via el registro de windows

[ruben Dario]

tanbien lo puede validar via el registro de windows

Tienes un ejemplo con via Registro Windows

[QAZWSX2K]

ahi va para todos

EN EL MAIN COLOCAR

#define HKEY_LOCAL_MACHINE 2147483650

LUEGO LLAMAR A LAS FUNCIONES SEGUN CORRESPONDA

function gregistro() // PARA INTRODUCIR, SI NO EXISTE LA CREA Y SI EXISTE LA REEMPLAZA
LOCAL oReg
oReg := TReg32():Create( HKEY_LOCAL_MACHINE, "SOFTWARE\FiveWin\siaperca" )
oReg:Set( "", "Sistema cualquiera" )
oReg:Set( "Version", 4 )
oReg:Set( "Instalado", DATE() )
oReg:Set( "Vencido", .F. )
MsgStop( "Clave introducida en el Registro OK" )
oReg:Close()
return nil

function lregistro() // PARA LEER
LOCAL oReg, uVar1, uVar2, uVar3, uVar4
oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\FiveWin\siaperca" )
uVar1 := oReg:Get( "" )
uVar2 := oReg:Get( "Version",0 )
uVar3 := oReg:Get( "Instalado" )
uVar4 := oReg:Get( "Vencido" )
if uVar4=".F."
msginfo("El sistema:"+uVar1+", Version:"+strzero(Uvar2,2)+", instalado el dia:"+uVar3+", NO Esta en Demo")
endif
return nil


a mi me funciona perfecto en xharbour

[Alfredo Arteaga]

Bueno, en mi caso creo que conviene dejar que todo el mundo conozca mis productos y que los usen.

Con restricciones, porsupuesto.

Inicié con esta forma de trabajo hace unos tres años, hoy mi sitio refleja mas de 20,000 descargas, tengo registrados a mas de 2,000 usuarios y sospecho que hay otros miles que lo tienen en uso sin solicitar registro.

El resultado es a largo plazo y se está haciendo publicidad por si solo, al menos una revista ya ha publicado algunas referencias (Emprendedores de la FCA UNAM, bimestre sep-oct).

Hay mas de una forma de restringir el uso por tiempo indefinido, en mi caso utilizo fechas, acumuladores (de usuarios y empresas) y contracuentas para identificar a los clientes.

En mis versiones DOS fui muy celoso y restrictivo, solo yo y unos cuantos clientes conocimos la funcionalidad.

[JmGarcia]

...GetNetCardID()...

Antonio, si tengo mas de una tarjeta de red ¿ Como se los numeros de serie de todas ellas ?

[Antonio Linares]

Jose M,

Tenemos que modificar GETNETCARDID() para que en _ devuelva un array