Excel Sheet Protection Password Recovery
(Recovers Passwords from password protected excel sheet)
This routine provides a password to unprotect your worksheet.
However, it may not give you the original password that was used.
Open the workbook that has the protected sheet in it. Hit Alt+F11
to view the Visual Basic Editor. Hit Insert-Module and paste this code into the
right-hand code window:
Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
'Author unknown but submitted by brettdj of www.experts-exchange.com
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Close the VB Editor window. Navigate to the worksheet you want to
unprotect. Hit Tools-Macro-Macros and double-click PasswordBreaker in the list.
Retrieve MS Access Database Password (100% Working)
Category extreme
hacks, Password Hacking
![Retrieve MS Access Database Password Retrieve MS Access Database Password](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5yax7s3uhmUH72EgYce4qtlrl8BZZXbkGwGyHpSnLoVgCPc5Uc8fbl4TzJGxJSwKSdqXTyBGo-0kA7-MbI4xH0pf5JKXut7qDLyXOXelrr98wcEfTaWvGzO6D4jXmgM5lMJ9kgWwivJI/s1600/Retrieve+Access+Database+Password+(100%25+Working).png)
Hi all users, as you
know that Access is a software from Microsoft for database
management. Access database are widely
used in many software, program and fields, but this database are mostly password
protected by the creator in order to avoid protect it or prevent misuse of it.
So in today's post we'll teach you how to crack ms access database password
withing few seconds using the software CAIN & ABEL.
1. Download
and install the software CAIN & ABEL (its a freeware and
2. Follow
the instructions in the pictures.
Click on image to enlarge
Click on image to
enlarge
Click on image to enlarge
3. Congrats, finally you found your
password :)
Note :- This trick has been very useful to me
as mostly all Visual basic projects use Access databases, but they are mostly
password protected. But by using this trick it becomes very easy to study these
databases.
Enjoy.......
No comments:
Post a Comment