Autor Tema: Añadir Un Numero De Licencia (Leído 1585 veces)

Neopro · « **en:** Miércoles 21 de Febrero de 2007, 15:49 »

Buenas, quiero poder agregarle u numero de licencia unico a un software, para que me deban pedir el numero para su uso. Y asi controlar eso.

Opciones:

Al hacer el proyecto para instalar, existe la posiblidad de colocar informacion de usuario y un numero de licencia, pero donde defino ese numero?.

O si quiero que mi aplicacion pida el numero de serie para poder ser usada al iniciarlo por primera vez y agregar una llave al registro u otra cosa para permitir el uso.

Como lo puedo realizar?.

mamex

Que tal, mira yo hice algo así, lo que hago es que la primera vez que se abre el programa, pide los datos de registro, (nombre, empresa, no. de Serie), y éstos datos los guarda en el registro de windows. Y cada vez que se abre el programa, comprueba si éstos datos existen en el registro de windows, si existen, pues simplemente abre el programa, si no existen (se deduce que es la primera vez k se abrió) y pues se pide que se introduzcan los datos de registro.

Para registrar, te aparece un número de serie, y con ése número se genera otro (que es el que debes de escribir tú para que se te acepte).

Bueno, pero la cuestión es: ¿De dónde saco el no de Serie?. Pues yo hice un algoritmo sencillo para que apartir de una clave (el número que te aparece en el registro), te genere otra clave (es la que el usuario deberá escribir).

Ejemplo, en la ventana de registro al usuario le aparecerá la clave AB12C (por ejemplo), entonces el te llama y te dá esa clave, entonces tu con tu algoritmo, le metes esa clave y te debe generar otra, 1423F por ejemplo, entonces tu le das esta al usuario, y el la introduce en el formulario de registro. Espero que me hayas entendido.

Adjunto la imagen del form. Cualquier cosa que no entiendas, aqui estamos para ayudarte.

Neopro

Genial, esa es mi idea. Pero sabes, esto me tiene chato, y tengo los numeros desde donde puedo obtener un numero para comprobarlo.

Pero me puedes enviar los codigos de como lo agregas en el registro y como lo verificas al inicio?...

Y una idea de la funcion para lograrlo.

Por favor.

Y otra cosa, sabes como crear por ultimo un acceso directo a un desinstalador???...

mamex

Que tal, mira en realidad yo programo en visual basic 6, tengo mis codigos, pero no se si te puedan servir, en sí la idea, es que el número que te da la ventana de registro, es un número aleatorio, para ello ocupé este codigo.

Código: Text

 
'Genera la clave que le aparece al usuario k va a instalar
Public Function generaId() As String
    Dim i As Integer
    Dim id As String
    id = &#34;&#34;
    For i = 1 To 4
        id = id & Format(Rand(0, 9999), &#34;0000&#34;)
        If i &#60; 4 Then id = id + &#34; - &#34;
    Next i
    generaId = id
End Function
 
 

Ese es el número que te da el programa, cada vez que se abre el programa te dá un número distinto, ya que es aleatorio.

Ahora sólo tienes que hacer un algoritmo que éste numero aleatorio te lo convierta a otra clave, que será la que tengas que escribir manualmente. Por ejemplo, lo más sencillo es hacer, el recorrido de una letra o número del original. Ejemplo: si la ventana te da la clave 23D, la clave que le corresponde es 34E, porque en cada digito se recorrió un caracter.

Yo ocupé otra función, pero está algo larga y hecha en vb.

Para leer y escribir en el registro de windows usé éstas funciones, te repito en Visual basic.

Código: Text

 
'Escribe un valor en el registro de windows
Public Sub escribirRegistro(direccion As String, Llave As String, datos As String, Optional tipo As String)
    Dim Registro As Object
    'Crea el objeto manejador del registro
    Set Registro = CreateObject(&#34;WScript.Shell&#34;)
    If tipo &#60;&#62; &#34;&#34; Then
        Registro.RegWrite direccion & &#34;&#092;&#34; & Llave, datos, tipo
    Else
        Registro.RegWrite direccion & &#34;&#092;&#34; & Llave, datos
    End If
    Set Registro = Nothing
End Sub
 
'Lee un valor del registro de windows
Public Function leerRegistro(direccion As String, Llave As String) As String
    On Error GoTo mError
    Dim Registro As Object
    'Crea el objeto manejador del registro
    Set Registro = CreateObject(&#34;WScript.Shell&#34;)
    leerRegistro = Registro.regread(direccion & &#34;&#092;&#34; & Llave)
    Set Registro = Nothing
    Exit Function
mError:
    If Err.Number = -2147024894 Then leerRegistro = &#34;&#34;
End Function
 
 

Si gustas agregame al msn.

Neopro

Muchisimas gracias por Toda Tu ayuda...

SoloCodigo

Autor Tema: Añadir Un Numero De Licencia (Leído 1585 veces)

Neopro

Añadir Un Numero De Licencia

mamex

Re: Añadir Un Numero De Licencia

Neopro

Re: Añadir Un Numero De Licencia

mamex

Re: Añadir Un Numero De Licencia

Neopro

Re: Añadir Un Numero De Licencia