Título: Password Access
Publicado por: zack0zack en 16 Mayo 2009, 16:38 pm
estoy haciendo un programa en VB.NET para saber la contraseñas de las bases de datos de Acces y encontre este codigo, pero no funciona alguien me puede decir mi error 'Access 95/97 Password Revealer 'Copyright (c) Nir Sofer 2002 ' 'Web site: http://nirsoft.mirrorz.com ' 'This small utility instantly recovers the database password of Microsoft Access files (mdb files) 'It works only with Access 95 or 97. ' Option Explicit
Private Function XorPassword(Bytes As Variant) As String Dim XorBytes() As Variant Dim strPassword As String Dim intIndex As Integer Dim CurrChar As String * 1 XorBytes = Array(&H86, &HFB, &HEC, &H37, &H5D, &H44, &H9C, &HFA, &HC6, &H5E, &H28, &HE6, &H13, &HB6, &H8A, &H60, &H54, &H94) strPassword = vbNullString intIndex = 0 Do 'Get a character from the password by doing a XOR with the appropriate value in XorBytes array. CurrChar = Chr$(Bytes(intIndex + &H42) Xor XorBytes(intIndex)) 'If we get a Null character, get out of the loop. If Asc(CurrChar) = 0 Then Exit Do 'Add the password character to the accumulated password string. strPassword = strPassword & CurrChar intIndex = intIndex + 1 Loop Until intIndex = 17 XorPassword = strPassword End Function
Private Function GetAccessPassword(strFilename As String) As String Dim intFileNum As Integer Dim Bytes(&H100) As Byte intFileNum = FreeFile 'Open the Access filename Open strFilename For Binary As #intFileNum 'Read first 256 bytes Get #intFileNum, , Bytes 'Get the password from the XorPassword function GetAccessPassword = XorPassword(Bytes) Close #intFileNum End Function
Private Sub cmdBrowse_Click() On Error GoTo canceled OpenDialog.Flags = cdlOFNExplorer Or cdlOFNFileMustExist Or cdlOFNHideReadOnly OpenDialog.ShowOpen txtFilename.Text = OpenDialog.FileName Exit Sub canceled: End Sub
Private Sub cmdExit_Click() End End Sub
Private Sub cmdGetPassword_Click() Dim strFilename As String strFilename = Trim$(txtFilename.Text) If Len(strFilename) = 0 Then MsgBox "You must select a filename !", vbOKOnly Or vbInformation ElseIf Len(Dir(strFilename)) = 0 Then MsgBox "The filename does not exist !", vbOKOnly Or vbInformation Else txtPassword.Text = GetAccessPassword(strFilename) End If End Sub
Título: Re: Password Access
Publicado por: Meta en 16 Mayo 2009, 18:16 pm
¿Estás usando el Access 95/95 o los más modernos como 2003/2007?
Título: Re: Password Access
Publicado por: zack0zack en 19 Mayo 2009, 23:22 pm
Uso Access 95
Título: Re: Password Access
Publicado por: MazarD en 20 Mayo 2009, 21:47 pm
Increible!! :xD
Office 95 apareció 14 años atrás y hace 8 que microsoft no le dá soporte. Lo tuyo debería estar penado por la ley!
Título: Re: Password Access
Publicado por: zack0zack en 21 Mayo 2009, 22:58 pm
ciertamente lo unico es que lo usan al ciber que boy yo no ni loco lo uso solo quiero APRENDER a sacarle la contraseña, quien me ayuda
|