COMO PROTEGER BACKUPS USANDO BD ACCESS?
Estou fazendo backups normalmente. Mas, me ocorreu o seguinte pensamento: Se meu Backup é feito no formato ACCDB, qualquer um que tiver o Acces instalado pode copiar meu BD. Tem lógica né? Senha do Access eu quebro. Acredito que qualquer um quebra. Então o que fazer com meu BACKUP?
Por favor me dêem uma luz.
Desde já agradeço.
Ai vai mais um dos motivos que eu não utilizo access, primeiro pela falta de recursos, e segundo pela vulnerabilidade e instabilidade... Mas no seu caso o backup você pode encriptar ele, tem esse EXEMPLO no site do Macoratti, testei e funcionar perfeitamente, é só adaptar.
Mas, cara, não estou conseguindo adaptar o código do Macoratti não.
Estou usando o seguinte:
Citação:Private Sub BackupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupToolStripMenuItem.Click
Dim SaveDialog As New SaveFileDialog
SaveDialog.Filter = [Ô]Arquivo BackUp|*.accdb[Ô]
SaveDialog.Title = [Ô]Selecione o backup de destino[Ô]
If SaveDialog.ShowDialog = Windows.Forms.DialogResult.Cancel Then
MsgBox([Ô]Operação de Backup abortada pelo usuário[Ô], MsgBoxStyle.Information, [Ô]BackUp Não gerado[Ô])
Exit Sub
Else
If File.Exists(SaveDialog.FileName) Then
File.Delete(SaveDialog.FileName)
End If
File.Copy(Application.StartupPath & [Ô]\Consignado.accdb[Ô], SaveDialog.FileName)
Dim Writer As System.IO.TextWriter
Writer = New StreamWriter(SaveDialog.FileName & [Ô].txt[Ô], FileMode.Create)
Writer.WriteLine(SaveDialog.FileName)
Writer.Flush()
Writer.Close()
MsgBox([Ô]Backup criado com sucesso.[Ô], MsgBoxStyle.Information, [Ô]BackUp Gerado[Ô])
End If
End Sub
Private Sub RestaurarBackUpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestaurarBackUpToolStripMenuItem.Click
Dim OpenDialog As New OpenFileDialog
OpenDialog.Title = [Ô]Selecione o local para acessar o backup[Ô]
OpenDialog.Filter = [Ô]Arquivo Backup|*.accdb[Ô]
If OpenDialog.ShowDialog = Windows.Forms.DialogResult.Cancel Then
MsgBox([Ô]Acesso ao backup abortado[Ô], MsgBoxStyle.Exclamation, [Ô]BackUp não realizado[Ô])
Exit Sub
Else
Con.Close()
If File.Exists(Application.StartupPath & [Ô]\Consignado.accdb[Ô]) Then
File.Delete(Application.StartupPath & [Ô]\Consignado.accdb[Ô])
File.Delete(OpenDialog.FileName & [Ô].txt[Ô])
End If
File.Move(OpenDialog.FileName, Application.StartupPath & [Ô]\Consignado.accdb[Ô])
MsgBox([Ô]Backup Restaurado. Novas alterações terão efeito depois de reiniciar o aplicativo. O programa será encerrado agora.[Ô], MsgBoxStyle.Exclamation, [Ô]BackUp Acessado. Reinicar Aplicativo[Ô])
Me.Close()
End If
End Sub
Não sei onde adaptar o encripter.
Pode me ajudar?
Ajuda aà Altair... ehehehPor favor!
Amigo, tenha paciência que vou lhe ajudar sim, é que no momento não tenho o Visual Studio aqui e não tem como eu testar, eu prefiro testar para ver, é melhor do que ficar chutando, mas aparentemente o problema é simples de se resolver, na página do exemplo tem um projeto lá que o próprio Macoratti fez e nele está bem explicado.
Em casa eu testei, adaptei e funcionou perfeitamente. A noite eu te ajudo.
Muito Obrigado amigo!
Amigo, fiz algumas adaptações, que não são bem especificas para o seu caso, mas é bem simples de implementar.
Obrigado mais uma vez!!