validar licencias

validar licencias

Postby diegopolverelli » Tue Nov 13, 2007 5:32 pm

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.
diegopolverelli
 
Posts: 149
Joined: Thu Jun 21, 2007 3:26 pm

Postby Antonio Linares » Tue Nov 13, 2007 5:53 pm

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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby QAZWSX2K » Tue Nov 13, 2007 6:02 pm

tanbien lo puede validar via el registro de windows
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby ruben Dario » Tue Nov 13, 2007 7:31 pm

QAZWSX2K wrote:tanbien lo puede validar via el registro de windows


Tienes un ejemplo con via Registro Windows
User avatar
ruben Dario
 
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Postby QAZWSX2K » Tue Nov 13, 2007 8:53 pm

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
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby Alfredo Arteaga » Wed Nov 14, 2007 2:42 am

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.
User avatar
Alfredo Arteaga
 
Posts: 326
Joined: Sun Oct 09, 2005 5:22 pm
Location: Mexico

Postby JmGarcia » Sun Dec 16, 2007 12:17 pm

Antonio Linares wrote:...GetNetCardID()...

Antonio, si tengo mas de una tarjeta de red ¿ Como se los numeros de serie de todas ellas ?
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Postby Antonio Linares » Sun Dec 16, 2007 3:52 pm

Jose M,

Tenemos que modificar GETNETCARDID() para que en esos casos devuelva un array
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests