Post #111,699
7/28/03 10:26:58 AM
|
break it for free
I found this on the internet when I needed to break an Access database. As you can see by the code, it's pretty lame encryption. Public Function StPasswordOfStDatabase(stDatabase As String) As String\n Dim hFile As Integer\n Dim ich As Integer\n Dim stBuffer As String\n Dim rgbytRaw() As Byte\n Dim rgbytPassword() As Byte\n Dim rgbytNoPassword() As Byte\n \n ' Create the byte array with the 20 bytes that are present when there\n ' is no database password\n rgbytNoPassword = ChrB(134) & ChrB(251) & ChrB(236) & ChrB(55) & ChrB(93) & _\n ChrB(68) & ChrB(156) & ChrB(250) & ChrB(198) & ChrB(94) & _\n ChrB(40) & ChrB(230) & ChrB(19) & ChrB(182) & ChrB(138) & _\n ChrB(96) & ChrB(84) & ChrB(148) & ChrB(123) & ChrB(54)\n \n ' Grab the 20 bytes from the real file whose password\n ' we are supposed to retrieve\n hFile = FreeFile\n Open stDatabase For Binary As #hFile\n Seek #hFile, 66 + 1\n rgbytRaw = InputB(20, #hFile)\n Close #hFile\n \n ' Enough prep, lets get the password now.\n ReDim rgbytPassword(0 To 19)\n For ich = 0 To 19\n rgbytPassword(ich) = rgbytRaw(ich) Xor rgbytNoPassword(ich)\n Next ich\n\n ' Add a trailing Null so one will always be found, even if the password is 20\n ' characters. Then grab up to the first null we find and return the password\n stBuffer = StrConv(rgbytPassword, vbUnicode) & vbNullChar\n StPasswordOfStDatabase = Left$(stBuffer, InStr(1, stBuffer, vbNullChar, vbBinaryCompare) - 1)\nEnd Function Darrell Spice, Jr. [link|http://www.spiceware.org/cgi-bin/spa.pl?album=./Artistic%20Overpass|Artistic Overpass]\n[link|http://www.spiceware.org/|SpiceWare] - We don't do Windows, it's too much of a chore
|
Post #111,755
7/28/03 3:55:43 PM
|
Re: break it for free
Thanks, I didn't know it was available that way. Does it work for every version of Access? I'll store it in case I get locked out of one of my Access databases.
|
Post #111,792
7/28/03 8:51:21 PM
|
don't know
I think the file I needed it for was in the 97 format.
Darrell Spice, Jr. [link|http://www.spiceware.org/cgi-bin/spa.pl?album=./Artistic%20Overpass|Artistic Overpass]\n[link|http://www.spiceware.org/|SpiceWare] - We don't do Windows, it's too much of a chore
|
Post #113,302
8/9/03 1:12:27 PM
|
Tried it last night without success
All the code returned to me was a bunch of non-printable characters.
Searching [link|http://www.planet-source-code.com|here] turned up an almost identical version of the code that you posted. However, the author of the code says that it only works for Access 97, and I'm trying to get into an Access 2.0 file.
Looks like I'll have to go the purchasing route, since a brute force attack, on 2 machines, has been running for over 1 year without success. Will need a way to explain the credit card purchase to the wife somehow.
lincoln
"If you're on your deathbed and you haven't got a story to tell, then you haven't lived. - Asa Baber"
[link|http://users3.ev1.net/~bconnors/resume.htm|VB/SQL resume]
[link|http://users3.ev1.net/~bconnors/tandem_resume.htm|Tandem resume]
[link|mailto:bconnors@ev1.net|contact me]
|
Post #113,307
8/9/03 1:40:04 PM
|
When you find out the password...
it'll probably be something really obvious. :-)
PBS radio had a special a while back on a librarian who died with a lot of historical research locked by a password. Ended up be a simple like word spelled backwards.
|
Post #113,308
8/9/03 1:41:54 PM
|
It could be this
if the former coworker walked off the job:
"Takethisjobandshoveit!" :)
|
Post #113,375
8/10/03 8:04:01 AM
|
No, it couldn't
According to my book "The Access 95 Bible", an Access database's maximum password size is 16 bytes of alphanumeric characters. A former coworker confirmed that tidbit for earlier versions also.
Still, taking every possible printable character in the ASCII Character Codes chart, starting with decimal 32 (the space character) and ending with decimal 126 (the tilde character) yields 126 - 32 = 94 raised to the 16th power means that I'll be dust in my coffin long before a brute force attempt on one machine will successfully discover the correct password for an Access database file.
lincoln
"If you're on your deathbed and you haven't got a story to tell, then you haven't lived. - Asa Baber"
[link|http://users3.ev1.net/~bconnors/resume.htm|VB/SQL resume]
[link|http://users3.ev1.net/~bconnors/tandem_resume.htm|Tandem resume]
[link|mailto:bconnors@ev1.net|contact me]
|
Post #113,323
8/9/03 3:45:42 PM
|
try here first
[link|http://www.softpile.com/Utilities/Password_Recovery/Review_05355_index.html|http://www.softpile...._05355_index.html]
thanx,
Bill
questions, help? [link|mailto:pappas@catholic.org|email pappas at catholic.org]
|
Post #113,324
8/9/03 3:47:27 PM
|
one more link
[link|http://www.sharewareorder.com/GetAccess-downloads-1686.htm|http://www.shareware...ownloads-1686.htm]
thanx,
bill
questions, help? [link|mailto:pappas@catholic.org|email pappas at catholic.org]
|
Post #114,594
8/20/03 3:28:46 PM
|
Another no-go
Tried that one last weekend. Wouldn't let me work with a .MDB file larger than 200K. That's a joke because I've created one table database files, where the table has like 10 columns max, and the file takes up around 125K just for the foundation.
Looks like I'll have to buy the LostPasswords product in the earlier post.
lincoln
"If you're on your deathbed and you haven't got a story to tell, then you haven't lived. - Asa Baber"
[link|http://users3.ev1.net/~bconnors/resume.htm|VB/SQL resume]
[link|http://users3.ev1.net/~bconnors/tandem_resume.htm|Tandem resume]
[link|mailto:bconnors@ev1.net|contact me]
|
Post #113,406
8/10/03 6:51:23 PM
|
guess it was only for Access 97
Darrell Spice, Jr. [link|http://www.spiceware.org/cgi-bin/spa.pl?album=./Artistic%20Overpass|Artistic Overpass]\n[link|http://www.spiceware.org/|SpiceWare] - We don't do Windows, it's too much of a chore
|
