Re: Password recovery

From: Sparko (a_at_b.com)
Date: 10/30/04 

Date: Sat, 30 Oct 2004 15:20:31 GMT

"Ralph" <msnews.20.nt_consulting32@spamgourmet.com> wrote in message
news:uVYUttovEHA.1992@TK2MSFTNGP15.phx.gbl...
>
> "Sparko" <a@b.com> wrote in message
> news:b5Mgd.4188171$6p.695670@news.easynews.com...
> > Hi All
> >
> > I am trying to write some code for a client that will recover a load of
> his
> > databases which a disgrunted employee put on them before they left.
> >
> > The Databases are Access 2000 .mdb standand ( have ran similar code over
> > them to check for 97 which does work)
> >
> > I have seen this piece of code from previous threads but cant seem to
get
> it
> > to work.
> >
> > Any ideas be apprecieated.
> >
> > ( just out of interest anyone know a winzip one? )
> >
> >
> > Many Thanks.
> >
> >
> > Private Sub Command1_Click()
> >
> > pw = AccessPassword("c:\Detranz\buyers\data\buyers.mdb")
> >
> > MsgBox "Access Password Recovered As:- " & vbNewLine & vbNewLine & pw,
64
> >
> > End Sub
> >
> > Function AccessPassword(ByVal Filename As String) As String
> > Dim MaxSize, NextChar, myChar, secretpos, TempPwd
> > Dim secret(20)
> > secret(0) = (&HB5)
> > secret(1) = (&HEC)
> > secret(2) = (&H6E)
> > secret(3) = (&H9C)
> > secret(4) = (&HF5)
> > secret(5) = (&H28)
> > secret(6) = (&H20)
> > secret(7) = (&H8A)
> > secret(8) = (&H67)
> > secret(9) = (&H7B)
> > secret(10) = (&HC6)
> > secret(11) = (&HDF)
> > secret(12) = (&H44)
> > secret(13) = (&H13)
> > secret(14) = (&HFC)
> > secret(15) = (&HB1)
> > secret(16) = (&H7)
> > secret(17) = (&H79)
> > secret(18) = (&HA1)
> > secret(19) = (&H7C)
> > secretpos = 0
> > Open Filename For Binary Access Read As #1 ' Open file for input.
> >
> > For NextChar = 67 To 106 Step 2 'Read In Encrypted Password
> > Seek #1, NextChar ' Set position.
> > myChar = Input(1, #1) ' Read character.
> > TempPwd = TempPwd & Chr(Asc(myChar) Xor secret(secretpos))
> 'Decrypt
> >
> > secretpos = secretpos + 1 'increment pointer
> > Next NextChar
> > Close #1 ' Close file.
> > If InStr(TempPwd, Chr(0)) Then
> > AccessPassword = Left(TempPwd, InStr(TempPwd, Chr(0)))
> > Else
> > AccessPassword = TempPwd
> > End If
> > End Function
> >
>
> There are several 3rd party toys available to recover Office 'passwords'
> http://www.intelore.com/access-password-recovery.php
> http://www.crackpassword.com/products/prs/msoffice/vba/
>
http://www.tomdownload.com/utilities/security_encryption/advanced_access_pas
sword_recovery.htm
> and more...
>
> I have never found any source code on the net that proved reliable or
worth
> the time and effort. IMHO, pay the $15/$30 and be done with it.
>
> -ralph
>

Well i promised my client this for free as a `bonus` for his business !

I did actually get that code to work when i first noted it down ages ago in
case of emergency like now!, but now i cant seem to make it work.

Has anyone else tried it out?, or got any ideas?

Thanks

Relevant Pages

  • Previously Functioning Date Interpreter Now Failing
    ... Dim Entry As String ... Dim Result As String ... Dim ClientElement As Variant 'Holds the extracted Client Number ... ElseIf IsNumeric= False _ ...
    (microsoft.public.excel.programming)
  • RE: Previously Functioning Date Interpreter Now Failing
    ... Dim Entry As String ... Dim Result As String ... Dim ClientElement As Variant 'Holds the extracted Client Number ... ElseIf IsNumeric= False _ ...
    (microsoft.public.excel.programming)
  • Re: Threading a server
    ... I am getting myself into a really big hole with this and the client is a little upset. ... private TcpListener tcpListener; ... private string CurrentCommand ... public string ExpectedSubject ...
    (microsoft.public.dotnet.languages.csharp)
  • Re: WSE2005: Protection requirements in MutualCertificate11Asserti
    ... error when there is a algorithm mismatch between the client and the ... The Web service is using different security requeriments. ... my client, the response page is a browser page ... message, String messageContentType) ...
    (microsoft.public.dotnet.framework.webservices.enhancements)
  • RE: SoapHttpClientProtocol request canceled
    ... Since this is only happening on the VB client, is there any chance that the ... The VB.NET exe and the VB6 exe both use VB.NET dll to sent request/response ... > inputHeaderer, String messageControlPayload, string inputMessage) ... > Imports System.ComponentModel ...
    (microsoft.public.dotnet.framework.webservices)
Loading