02/08/2005, 06:26
|
| | | Fecha de Ingreso: mayo-2005
Mensajes: 93
Antigüedad: 19 años, 8 meses Puntos: 1 | |
| Yo tengo hecho lo mismo en un programa, y utiliza ttambién la etiqueta del "C:\", pero modifico ciertas cosillas.
Para que no queden dudas, lo explico por pasos...
1.- Cuando se ejecuta el programa, se llama a ersta función
Private Function ComprobarPrimera() As Boolean
ComprobarPrimera = False
Dim SERIAL As String
SERIAL = GetSerialNumber("C:")
If GetSetting("tn3m", "4r3m1rp", SERIAL, "NO") = "NO" Then
AccesoPrimera.Show vbModal
If AccesoPrimera.CORRECTO Then
ComprobarPrimera = True
Call SaveSetting("tn3m", "4r3m1rp", SERIAL, "SI")
End If
Else
ComprobarPrimera = True
End If
End Function
Que lo que hace es mirar una entrada en el registro de ese PC.
Si no existe esa entrada, llama a una pantalla (AccesoPrimera.show vbmodal) que tiene una contraseña casi imposible de reventar (25 caracteres incongruentes) por lo que por fuerza bruta hay que tener ganas, mediante un algoritmo (que no os voy a dar, obviamente).
2.- Cuando se acierta dicha contraseña (AccesoPrimera.CORRECTO), se graba dicha la información del disco en la entrada del registro correspondiente:
Call SaveSetting("tn3m", "4r3m1rp", SERIAL, "SI")
Y con eso y un bizcocho...
Ya ta!!!
Os vale???
__________________
No te hubieran dado la capacidad de soñar sin darte también la posibilidad de convertir tus sueños en realidad |