Access - Seguridad

 
Vista:

Seguridad

Publicado por Jorge A. (20 intervenciones) el 19/12/2001 17:33:27
Otra pregunta muy importante:
Quisiera que mi base de datos sólo pueda estar en una PC y que no lo pudieran copiar a otro equipo y usarlo de forma "pirata". Me han dicho que se puede leer el número de la PC y guardarlo en un registro para que al entrar verifique si es el mismo equipo y si no sacarlo de operación. ¿Me podría decir alguien como se hace esto?
Nuevamente gracias y felicidades,
Jorge A.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Seguridad

Publicado por Ju@nM@ (68 intervenciones) el 19/12/2001 17:55:18
Lo que se guarda es el número de serie del disco duro.
El modulo seria asi:

' -------------------------------------------------------------
' Function para controlar que la copia es legal
' ------------------------------------------------------------
Function EsLegal()
Dim lVSN As Long, N As Long, s1 As String, s2 As String
Dim unidad, Serie As String
Dim sTmp As String
Dim DB As Database, t1 As Recordset
On Local Error Resume Next
unidad = "C:\"
s1 = String$(255, Chr$(0))
s2 = String$(255, Chr$(0))
N = GetVolumeInformation(unidad, s1, Len(s1), lVSN, 0, 0, s2, Len(s2))
sTmp = Hex$(lVSN)
Serie = Left$(sTmp, 4) & "-" & Right$(sTmp, 4)
Set DB = CurrentDb
Set t1 = DB.OpenRecordset("tblServidor", dbOpenTable)
DoCmd.GoToRecord , , acFirst

If IsNull(t1![SerieHD]) Then
t1.Edit
t1![SerieHD] = SERIE + conACCESO
t1.Update
End If

If t1![SerieHD] <> SERIE + conACCESO Then
MsgBox "Esta aplicación no tiene autorización para ser ejecutada en esta PC!", vbCritical
Application.Quit acPrompt
End If
t1.Close
End Function

Basicamente es asi y la cosa funciona, yo personalmente añado un par de sistemas más que junto a este "protege", la aplicación.
Un saludo.
;-)

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar