hourrane
Messages postés29Date d'inscriptiondimanche 8 juin 2003StatutMembreDernière intervention 2 février 2009
-
13 juin 2007 à 00:04
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011
-
25 févr. 2012 à 06:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 25 févr. 2012 à 06:14
Tu peut la poster quelques part la Bd ? Je vais t'envoyer le mdp.
BOLITHO976
Messages postés1Date d'inscriptionvendredi 24 février 2012StatutMembreDernière intervention24 février 2012 24 févr. 2012 à 16:52
bonjour, je suis nouveau et novice ! je viens de trouver ce post et je suis au désespoir; j'ai une base mdb 2003 protégée par un MDP. J'ai téléchargé votre ZIP mais le mot de passe (décidément) "test" ne semble plus valide. Pourriez vous m'aider?
cordialement
Bolitho
joeb1010
Messages postés7Date d'inscriptionmardi 21 décembre 2004StatutMembreDernière intervention 2 décembre 2010 2 déc. 2010 à 13:26
Le truc marche à 100% Grand merci
cs_FlyingAlex
Messages postés17Date d'inscriptionmardi 3 mars 2009StatutMembreDernière intervention25 novembre 2010 18 nov. 2009 à 20:40
Je n'arrive pas à utiliser la bdd : lorque je l'ouvre, il y a marqué pas d'objet et quand je clique sur parcourir : erreur d'execution 438 : propriété ou methode non gérée par cet objet. Il me met un bug à cette ligne (la dernière) :
Option Compare Database
Option Explicit
'***************************************************
'Author: Krsev Ivan
'Description: this program retrieve ms access database password
'Author Email address: ivan@chameleon.co.yu
'Use this program as you whish, just drop me an email to say thank you
'that's my reward
'Because i'm lasy i used forms from Vipul Parmar and part for access97 pasword
'In accsess 2000 password is stored at the begining of file at offset 0x42H
'Differencies from access 97 is that every char uses 2 (A1 E2) words insted of 1 (A1) probably because of unicode
'But we are dealing only with half of it. Not interested in right half
'Access2000 password is limited on 20 chars MAX, if you use more it'll be truncated
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim dbname As String
Dim passw As String
Dim bckPass As String
Dim mask97 As String
Dim mask2k As String
Dim priv As String
Dim priv2 As String
Dim prviput As Boolean
Dim TrebaObavestiti As Boolean
Public cnn1 As ADODB.Connection
Private Sub Command1_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Access97 Files (*.mdb)|*.mdb"
Me.cd1.Filter = strfilter
Pour info je suis sur access 2007.
Merci d'avance!!!!
garci80
Messages postés1Date d'inscriptionmercredi 26 novembre 2008StatutMembreDernière intervention 2 juin 2009 2 juin 2009 à 11:55
Bravo et merci !
Aucun problème, cela marche bien.
NEXMAN
Messages postés1Date d'inscriptiondimanche 28 octobre 2007StatutMembreDernière intervention30 octobre 2008 30 oct. 2008 à 14:41
voila la source de la mdb ;-p
Option Compare Database
Option Explicit
'***************************************************
'Author: Krsev Ivan
'Description: this program retrieve ms access database password
'Author Email address: ivan@chameleon.co.yu
'Use this program as you whish, just drop me an email to say thank you
'that's my reward
'Because i'm lasy i used forms from Vipul Parmar and part for access97 pasword
'In accsess 2000 password is stored at the begining of file at offset 0x42H
'Differencies from access 97 is that every char uses 2 (A1 E2) words insted of 1 (A1) probably because of unicode
'But we are dealing only with half of it. Not interested in right half
'Access2000 password is limited on 20 chars MAX, if you use more it'll be truncated
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim dbname As String
Dim passw As String
Dim bckPass As String
Dim mask97 As String
Dim mask2k As String
Dim priv As String
Dim priv2 As String
Dim prviput As Boolean
Dim TrebaObavestiti As Boolean
Public cnn1 As ADODB.Connection
Private Sub Command1_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Access97 Files (*.mdb)|*.mdb"
Me.cd1.Filter = strfilter
Me.cd1.ShowOpen
If cd1.FileName <> "" Then
Me.Text1 = Me.cd1.FileName
'Command2.Visible = True
Command2.SetFocus
'Command4.Visible = True
End If
cd1.CancelError = False
Close #ff
End Sub
' set the masking characters
dbname = Me.Text1
passw = ""
Open dbname For Binary As #1 ' open the database
Seek #1, &H42
For n = 1 To 21
' actual password recovery module
s1 = Mid(mask2k, n, 1)
s2 = Input(1, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
passw = passw & Chr(Asc(s1) Xor Asc(s2))
End If
If n <> 1 Then s2 = Input(1, 1)
Next
Close 1
prviput = True
TrebaObavestiti = True
If passw = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !"
Else
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.Text1 & ";Persist Security Info=False" & ";"
On Error Resume Next
'Before we get into rush, let see if there is password
If cnn1.State = adStateClosed Then cnn1.Open
If Err.Number = -2147217843 Then
Debug.Print "Protegé..." 'this means that password exists
Else
If Err.Number = 0 Then MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Exit Sub
End If
Err.Clear
'Lets try open it with masked password in first step, this happends very rare
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1 & ";Persist Security Info=False" & ";Jet OLEDB:Database Password=" & passw & ";"
s1 = Chr(0)
bckPass = passw
'Screen.MousePointer = vbHourglass
On Error GoTo EH
'If I pass thru this that menas that we got password if not we'll get into error handling routine
If cnn1.State = adStateClosed Then cnn1.Open
'Screen.MousePointer = vbDefault
cnn1.Close
MsgBox "Le mot de passe est : " & passw, vbInformation
End If
Exit Sub
EH:
If Err.Number -2147467259 Or Err.Number -2147217805 Then
s1 = Chr(Asc(s1) + 1)
GoTo skip1
End If
If Err.Number <> -2147217843 Then 'Not valid password
MsgBox "error: " & Err.Number & ", " & Err.Description, vbCritical
Else
'Watch out this little trick, We will use last character from the masked password and
'try to find password, lets xor it (this works if password is 18 chars or less)
skip1:
If Asc(s1) = 255 Then
MsgBox "Neuspesno. Posaljite mail na ivan@chameleon.co.yu i prijavite neuspeh.", vbInformation
Exit Sub
End If
If prviput Then
s1 = Right(passw, 1)
Else
If TrebaObavestiti Then
MsgBox "Le mot de passe dépasse 18 caractères. Une attaque Brute forcée doit être utilisée!", vbInformation
TrebaObavestiti = False
End If
s1 = Chr(Asc(s1) + 1) 'We will get here only if password is longer then 18
End If
'Nakon sto sam uzeo taj karakter brisem sve takve sa kraja jel oni u stvari ne postoje
'Posto ako ih ostavim a xorujem parnim xorom lazno cu dobiti na kraju neke karaktere
passw = bckPass
If Len(passw) > 2 Then
For n = 1 To Len(passw)
If Right(passw, 1) = s1 Then
passw = Mid(passw, 1, Len(passw) - 1)
End If
Next
End If
priv = ""
For n = 1 To Len(passw)
If n Mod 2 <> 0 Then
s2 = Mid(passw, n, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
priv = priv & Chr(Asc(s1) Xor Asc(s2))
End If
Else
s2 = Mid(passw, n, 1)
priv = priv & s2
End If
Next
If priv = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Else
'Lets try with this password if its ok. We are finished if not will do it 255 times more
If prviput Then
prviput = False
s1 = Asc(0)
End If
passw = priv
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1 & ";Persist Security Info=False" & ";Jet OLEDB:Database Password=" & DuplirajApostrof(passw) & ";"
Debug.Print s1, Asc(s1), passw
Resume
End If
End If
End Sub
Public Function DuplirajApostrof(ByVal s As String) As String
'We have to be shure that we include all characters in brute force attack
Dim i As Long
i = InStr(1, s, """")
If i <> 0 Then
DuplirajApostrof = Left(s, i) & """" & DuplirajApostrof(Mid(s, i + 1, Len(s) - i + 1))
Else
DuplirajApostrof = s
End If
End Function
Private Sub Command4_Click()
dbname = Text1.Text
passw = ""
Open dbname For Binary As #1 ' open the database
Seek #1, &H42
For n = 1 To 14
' actual password recovery module
s1 = Mid(mask97, n, 1)
s2 = Input(1, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
passw = passw & Chr(Asc(s1) Xor Asc(s2))
End If
Next
Close 1
If passw = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Else
MsgBox "Le mot de passe est : " & passw, vbInformation
End If
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Text1_LostFocus()
Command1.SetFocus
End Sub
Private Sub Quitter_Click()
On Error GoTo Err_Quitter_Click
If MsgBox("Voulez-vous quitter ", vbQuestion + vbYesNo, "Confirmer la fermeture") = vbYes Then
DoCmd.Quit
End If
Exit_Quitter_Click:
Exit Sub
cs_Toukal
Messages postés2Date d'inscriptionmercredi 5 avril 2006StatutMembreDernière intervention31 décembre 2010 14 mai 2008 à 17:06
Je m'excuse de ne pas pouvoir repondre à toutes ces questions.
J'étais dans l'impossibilité de le faire suite à des problème de connexion ; Non seulement je n'ai pas accés à Internet tous le toujours en plus la connexion à tranvers laquelle j'ai accés à Internet et presque Null.
Je tiens à remercier MR RENFIELD pour les eclairsissement qu'il a eu à apporter sur les problèmes débatus.
Je vous présente encore toutes mes excuses!
jeraos
Messages postés10Date d'inscriptionlundi 27 décembre 2004StatutMembreDernière intervention 8 mai 2008 8 mai 2008 à 20:12
desole j ai pas vu le mot mot de passe ."test" pensez a modifier l'alogorithme du projet
jeraos
Messages postés10Date d'inscriptionlundi 27 décembre 2004StatutMembreDernière intervention 8 mai 2008 8 mai 2008 à 20:09
initule de poser ce genre de projet tout d'abord il faut le generaliser en tenant compte des autres version de la base *.mdb
or ou est le mot de passe de cette base de donnée
jamaljar
Messages postés2Date d'inscriptionmardi 10 juillet 2007StatutMembreDernière intervention 9 décembre 2007 11 juil. 2007 à 01:00
merci amigos
vous m'avez sauvé la vie, j'avais cru que les données étaientt irrécupérables.
encore une fois mille merci
pezechiel
Messages postés1Date d'inscriptionmardi 10 juillet 2007StatutMembreDernière intervention10 juillet 2007 10 juil. 2007 à 19:43
salut je suis un nouveau sur ce club et je suis chercher la solution a un probleme. J'ai fait un TP en genie logiciel, car je suis en année de maitrise, sous access et je doit rendre le projet demain soir 18h temps universel.j'ai fait le projet il ya tres longtemps de cela et j'ai oublié le mot de passe.des erreurs des boutons s'affiches.aidé moi.mon mail. psosthene@hotmail.com
cs_comme
Messages postés122Date d'inscriptiondimanche 19 mars 2006StatutMembreDernière intervention18 juillet 2009 3 juil. 2007 à 11:10
Bonjour tous le monde
Notre sujet ici est la source cité ci dessus concernat le mot de passe d'une base de données access,l'auteur n'a pas répondu à beaucoup de demandes d'explication mais MR RENFIELD nous a donné la solution ,je rappelle ici l'adresse qu'il nous a donnée :http://www.a1vbcode.com/a1vbcode/app-3202.asp cette source marche bien sur ms office 2003(chez moi)
Grand merci pour MR RENFIELD.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 1 juil. 2007 à 23:51
tu "VEUX" ??
tu nage en plein délire, mon pauvre. Drole de facon de demander de l'aide, surtout pour quelqu'un qui n'utilise pas le Forum, comme il serait censé le faire...
recherches "MDW", c'est des fichiers gérant les droits d'accès aux bases access
bylowens
Messages postés2Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 6 avril 2008 1 juil. 2007 à 22:54
je suis bylowens je fais parti de ce club, alors je veux qu'on m'aide en ce qui a trait a une base de donnée access.
je veux savoir comment mettre un login pour securisé ma base de donnée.
merci
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 27 juin 2007 à 16:11
Oui, la reference VB sur Microsoft ActiveX Data Object (ADO) mais de toute facons, la reference est deja dans la source.
a moin que tu ais sauvé le projet a la sortie quand il t'a dit qu'il trouvais pas la reference.
reprends la source en neuf.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 27 juin 2007 à 12:40
utilises la référence Microsoft ActiveX Data Object 2.xx
cs_niya
Messages postés2Date d'inscriptiondimanche 24 juin 2007StatutMembreDernière intervention27 juin 2007 27 juin 2007 à 11:52
merci geneticw et renfield, mais DAO? ADO?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 27 juin 2007 à 06:10
oui, c'est bien cela, télécharger MDAC 2.8...
et aussi oublier DAO :p (utilises ADO)
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 27 juin 2007 à 04:49
Tu dois aller sur le site web de Microsoft et downloader (et installer) MDACTYPFR.exe Le Mdac est v2.81 pour Windows 2000.
Je suis pas sur si t'a besoin de d'autre chose.
ici ca marche.
cs_niya
Messages postés2Date d'inscriptiondimanche 24 juin 2007StatutMembreDernière intervention27 juin 2007 27 juin 2007 à 04:28
je suis debutant, vb6 ne connecte pas avec access2003, il accepte seulement access95 comment...
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 26 juin 2007 à 09:56
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 26 juin 2007 à 08:10
sur 2003 il tourne nikel sur mon poste au boulot.
je vais extraire le source et le mettre ici...
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 24 juin 2007 à 17:13
Comme:
j'ai juste testé mon prog sur Office97 et 2000, je sais pas comment il se comporte sur office 2003 ou 2007...
comme on a pus le voir ici, les mdb 2003 sont totalement differente, donc mon prog fonctionera surement pas sur ces mdb
cs_comme
Messages postés122Date d'inscriptiondimanche 19 mars 2006StatutMembreDernière intervention18 juillet 2009 24 juin 2007 à 11:49
BONJOUR GENETICW
Qu'EST CE QUE TU ATTENDS POUR NOUS OFFRIR CETTE SOURCE OU BIEN SON LIEN SI C'EST DEJA DANS CodeSources AVEC NOS SINCERES REMERCIMENTS ET ENCOURAGEMENTS;
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 23 juin 2007 à 21:13
Comme:
Ben on a pas oublié... le probleme c que sans avoir la source, difficile de debuger les autres problemes non ?
pour l'instant, le fichier .mdb est pour moi la meme chose qu'un .vsp (virtual security protocol) quand on as pas de Virtual Security Server. le fichier est illisible.
La source semble abandonné de toute facon l'auteur n'a pas répondu a un seul message.
De toute facon, j'ai fais un projet Vb6 il y a quelque année qui faisait la meme choses, je voulais juste comparer si on avais le meme genre de source ou si il y avait de l'innovation.
Ma source a moi trouve tout les mots de passe entre 1 et 18 caractère en 0.01 seconde et pour les pw de 19 ou 20 car. (20 etant le max dans access) je faisait un brute force des 256 combinaisons restante, prenant moins de 4 secondes. Je voulais voir si cette source avait trouvé un autre moyen pour trouver les pass de 19 ou 20...
cs_comme
Messages postés122Date d'inscriptiondimanche 19 mars 2006StatutMembreDernière intervention18 juillet 2009 23 juin 2007 à 19:12
Vous qui discutez access 97 et access 2000,vous avez oublié (et l'auteur de la source) aussi de nous répondre pour le message :
"la propriété de type evenement est à l'origine d'une erreur.Projet ou bibliothèque introuvable.
le rsultat de l'expression n'est pas le nom d'une macro,le nom d'une fonction definie par l'utilisateur ou[Event Procedure]..... "
Moi j'utilise access2003 et malgré tous la source ne marche pas chez moi.
skbvm6
Messages postés9Date d'inscriptionvendredi 27 janvier 2006StatutMembreDernière intervention21 avril 2008 23 juin 2007 à 11:26
Ah, merci pour la réponse
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 23 juin 2007 à 04:13
Très normal malheureusement, l'auteur n'a pas pensé a ça.
j'ai aussi testé avec Access 2000 sans succès. Je crois que
c'est office 2003 qui a été utilisé.
donc, pour nous qui somme pauvre ou qui n'avons pas jugé d'acheter la derniere version, ben tans pis, on pourra pas
regarder les sources.
skbvm6
Messages postés9Date d'inscriptionvendredi 27 janvier 2006StatutMembreDernière intervention21 avril 2008 22 juin 2007 à 19:20
Je ne peux pas ouvrir la base de données ( avec Access 97 ). Est-ce normal ? :-(
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 22 juin 2007 à 12:26
Ha oui ? et je l'ouvre comment la base si Access 2000 ne veut pas l'ouvrir ?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 22 juin 2007 à 00:13
rien ne t'empeche d'ouvrir la base et d'extraire le code... ^^
GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 21 juin 2007 à 20:14
Moi quand j'essaie d'ouvrir la banque, ca dit: "format de banque de donné inconnu, veuillez la convertir"
j'ai pourtant office 2000
Je veut pas lancer la pierre la... mais un code VB aurais été préférable avec la source en externe.
bentass
Messages postés2Date d'inscriptionmercredi 13 juin 2007StatutMembreDernière intervention18 juin 2007 18 juin 2007 à 16:47
Merci Comme. C'est bien ça le message. Puis le fichier s'ouvre mais les boutons de cmd ne fonctionnent pas. Le même message revient à chaque click. J'ai déjà enlevé les références manquant mais rien n'y fait.
cs_comme
Messages postés122Date d'inscriptiondimanche 19 mars 2006StatutMembreDernière intervention18 juillet 2009 18 juin 2007 à 16:12
Très bien compris à quoi sert mais en cliquant sur parcourir un message d'erreur apparait :
"L'expression sur clic enrtée comme paramètre de la propriété de type evenement est à l'origine d'une erreur.Projet ou bibliothèque introuvable.
le rsultat de l'expression n'est pas le nom d'une macro,le nom d'une fonction definie par l'utilisateur ou[Event Procedure]..... "
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 18 juin 2007 à 14:00
tu peux commencer par nous indiquer le message d'erreur en question... ^^
bentass
Messages postés2Date d'inscriptionmercredi 13 juin 2007StatutMembreDernière intervention18 juin 2007 18 juin 2007 à 13:52
J'ai un BD access 2003 mais j'arrive pas à ouvrir le fichier access ! Juste un message d'erreur. Que faire?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 18 juin 2007 à 13:29
pas compris la question...
la base présente dans le zip est protégée par le mot de passe test.
une fois ouverte, la base propose une fenetre. Il y est possible de selectionner un fichier MDB, et de lancer la recherche du mot de passe.
En gros, il suffit d'ouvir la base du zip, et de se laisser guider...
cs_comme
Messages postés122Date d'inscriptiondimanche 19 mars 2006StatutMembreDernière intervention18 juillet 2009 18 juin 2007 à 12:38
Pas compris du tout cette idée,tu connais le mot de passe "test" et tu l'utilise pour ouvrir cette base, comment faire avec une autre ...?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 14 juin 2007 à 09:19
un simple Alt + F11
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 14 juin 2007 à 09:03
Je n'ai pas encore réussi à extraire le code source, c'est donc une assez bonne protection déjà contre tous les amateurs, ce qui est déjà pas mal je trouve. Avec le compte admin et le mot de passe test, je n'ai pas réussi à lister le code source.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 14 juin 2007 à 04:27
Posez donc la question à Microsoft ^^
c'est une protection basqieu contre les fausses manips des utilisateurs. Rien d'operationnel contre les pirates...
hourrane
Messages postés29Date d'inscriptiondimanche 8 juin 2003StatutMembreDernière intervention 2 février 2009 13 juin 2007 à 18:33
Bravo!
ça marche avec access 2003
Même avis que "AEDER". A quoi ça sert le mot de pass donc?????
aeder
Messages postés14Date d'inscriptionvendredi 26 juin 2009StatutMembreDernière intervention30 mars 2008 13 juin 2007 à 15:00
Pas mal du tout. Bravo !
Mais on peut alors se poser la question : "à quoi ça sert de mettre un mot de passe dans Access ?" car, même si access est une base de données à budget moyen, c'est déloyal de faire croire qu'un mot de passe la protège.
Et s'il en est de même pour Word et Excel ?
Chapeau, néanmoins, pour le code.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 juin 2007 à 14:06
fonctionne nikel chez moi.... (Access 2003)
hourrane
Messages postés29Date d'inscriptiondimanche 8 juin 2003StatutMembreDernière intervention 2 février 2009 13 juin 2007 à 14:02
J'ai testé sans succès, il est ne me retrouve pas le mot de passe.
chap38
Messages postés1Date d'inscriptionmardi 15 juin 2004StatutMembreDernière intervention13 juin 2007 13 juin 2007 à 13:10
J'ai testé sans succès, il ne me retrouve pas un mot de passe de test :-(
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 juin 2007 à 10:18
Si, le code est bel et bien là !
suffit d'ouvrir le seul fichier du zip : le fichier MDB...
istamkenitra
Messages postés42Date d'inscriptionmardi 9 décembre 2003StatutMembreDernière intervention21 mars 2009 13 juin 2007 à 10:13
tjs pas de code !!
hourrane
Messages postés29Date d'inscriptiondimanche 8 juin 2003StatutMembreDernière intervention 2 février 2009 13 juin 2007 à 00:04
ou est le code? juste un fichier mdb dans le zip!!!!
25 févr. 2012 à 06:14
24 févr. 2012 à 16:52
cordialement
Bolitho
2 déc. 2010 à 13:26
18 nov. 2009 à 20:40
Option Compare Database
Option Explicit
'***************************************************
'Author: Krsev Ivan
'Description: this program retrieve ms access database password
'Author Email address: ivan@chameleon.co.yu
'Use this program as you whish, just drop me an email to say thank you
'that's my reward
'Because i'm lasy i used forms from Vipul Parmar and part for access97 pasword
'In accsess 2000 password is stored at the begining of file at offset 0x42H
'Differencies from access 97 is that every char uses 2 (A1 E2) words insted of 1 (A1) probably because of unicode
'But we are dealing only with half of it. Not interested in right half
'Access2000 password is limited on 20 chars MAX, if you use more it'll be truncated
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim dbname As String
Dim passw As String
Dim bckPass As String
Dim mask97 As String
Dim mask2k As String
Dim priv As String
Dim priv2 As String
Dim prviput As Boolean
Dim TrebaObavestiti As Boolean
Public cnn1 As ADODB.Connection
Private Sub Command1_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Access97 Files (*.mdb)|*.mdb"
Me.cd1.Filter = strfilter
Pour info je suis sur access 2007.
Merci d'avance!!!!
2 juin 2009 à 11:55
Aucun problème, cela marche bien.
30 oct. 2008 à 14:41
Option Compare Database
Option Explicit
'***************************************************
'Author: Krsev Ivan
'Description: this program retrieve ms access database password
'Author Email address: ivan@chameleon.co.yu
'Use this program as you whish, just drop me an email to say thank you
'that's my reward
'Because i'm lasy i used forms from Vipul Parmar and part for access97 pasword
'In accsess 2000 password is stored at the begining of file at offset 0x42H
'Differencies from access 97 is that every char uses 2 (A1 E2) words insted of 1 (A1) probably because of unicode
'But we are dealing only with half of it. Not interested in right half
'Access2000 password is limited on 20 chars MAX, if you use more it'll be truncated
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim dbname As String
Dim passw As String
Dim bckPass As String
Dim mask97 As String
Dim mask2k As String
Dim priv As String
Dim priv2 As String
Dim prviput As Boolean
Dim TrebaObavestiti As Boolean
Public cnn1 As ADODB.Connection
Private Sub Command1_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Access97 Files (*.mdb)|*.mdb"
Me.cd1.Filter = strfilter
Me.cd1.ShowOpen
If cd1.FileName <> "" Then
Me.Text1 = Me.cd1.FileName
'Command2.Visible = True
Command2.SetFocus
'Command4.Visible = True
End If
cd1.CancelError = False
Close #ff
End Sub
Private Sub Command2_Click()
mask97 = Chr(&H4E) & Chr(&H86) & Chr(&HFB) & Chr(&HEC) & _
Chr(&H37) & Chr(&H5D) & Chr(&H44) & Chr(&H9C) & _
Chr(&HFA) & Chr(&HC6) & Chr(&H5E) & Chr(&H28) & Chr(&HE6) & Chr(&H13)
' mask2k = Chr(&H4E) & Chr(&H72) & Chr(&HEC) & Chr(&HA9) & _
' Chr(&H9C) & Chr(&H32) & Chr(&H28) & Chr(&HE7) & _
' Chr(&H8A) & Chr(&HA0) & Chr(&H7B) & Chr(&H1) & _
' Chr(&HDF) & Chr(&H83) & Chr(&H13) & Chr(&H3B) & _
' Chr(&HB1) & Chr(&HC0) & Chr(&H79) & Chr(&H66) & _
' Chr(&H7C)
mask2k = Chr(&H4E) & Chr(&H99) & Chr(&HEC) & Chr(&H42) & _
Chr(&H9C) & Chr(&HD9) & Chr(&H28) & Chr(&HC) & _
Chr(&H8A) & Chr(&H4B) & Chr(&H7B) & Chr(&HEA) & _
Chr(&HDF) & Chr(&H68) & Chr(&H13) & Chr(&HD0) & _
Chr(&HB1) & Chr(&H2B) & Chr(&H79) & Chr(&H8D) & _
Chr(&H7C)
' set the masking characters
dbname = Me.Text1
passw = ""
Open dbname For Binary As #1 ' open the database
Seek #1, &H42
For n = 1 To 21
' actual password recovery module
s1 = Mid(mask2k, n, 1)
s2 = Input(1, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
passw = passw & Chr(Asc(s1) Xor Asc(s2))
End If
If n <> 1 Then s2 = Input(1, 1)
Next
Close 1
prviput = True
TrebaObavestiti = True
If passw = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !"
Else
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.Text1 & ";Persist Security Info=False" & ";"
On Error Resume Next
'Before we get into rush, let see if there is password
If cnn1.State = adStateClosed Then cnn1.Open
If Err.Number = -2147217843 Then
Debug.Print "Protegé..." 'this means that password exists
Else
If Err.Number = 0 Then MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Exit Sub
End If
Err.Clear
'Lets try open it with masked password in first step, this happends very rare
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1 & ";Persist Security Info=False" & ";Jet OLEDB:Database Password=" & passw & ";"
s1 = Chr(0)
bckPass = passw
'Screen.MousePointer = vbHourglass
On Error GoTo EH
'If I pass thru this that menas that we got password if not we'll get into error handling routine
If cnn1.State = adStateClosed Then cnn1.Open
'Screen.MousePointer = vbDefault
cnn1.Close
MsgBox "Le mot de passe est : " & passw, vbInformation
End If
Exit Sub
EH:
If Err.Number -2147467259 Or Err.Number -2147217805 Then
s1 = Chr(Asc(s1) + 1)
GoTo skip1
End If
If Err.Number <> -2147217843 Then 'Not valid password
MsgBox "error: " & Err.Number & ", " & Err.Description, vbCritical
Else
'Watch out this little trick, We will use last character from the masked password and
'try to find password, lets xor it (this works if password is 18 chars or less)
skip1:
If Asc(s1) = 255 Then
MsgBox "Neuspesno. Posaljite mail na ivan@chameleon.co.yu i prijavite neuspeh.", vbInformation
Exit Sub
End If
If prviput Then
s1 = Right(passw, 1)
Else
If TrebaObavestiti Then
MsgBox "Le mot de passe dépasse 18 caractères. Une attaque Brute forcée doit être utilisée!", vbInformation
TrebaObavestiti = False
End If
s1 = Chr(Asc(s1) + 1) 'We will get here only if password is longer then 18
End If
'Nakon sto sam uzeo taj karakter brisem sve takve sa kraja jel oni u stvari ne postoje
'Posto ako ih ostavim a xorujem parnim xorom lazno cu dobiti na kraju neke karaktere
passw = bckPass
If Len(passw) > 2 Then
For n = 1 To Len(passw)
If Right(passw, 1) = s1 Then
passw = Mid(passw, 1, Len(passw) - 1)
End If
Next
End If
priv = ""
For n = 1 To Len(passw)
If n Mod 2 <> 0 Then
s2 = Mid(passw, n, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
priv = priv & Chr(Asc(s1) Xor Asc(s2))
End If
Else
s2 = Mid(passw, n, 1)
priv = priv & s2
End If
Next
If priv = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Else
'Lets try with this password if its ok. We are finished if not will do it 255 times more
If prviput Then
prviput = False
s1 = Asc(0)
End If
passw = priv
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1 & ";Persist Security Info=False" & ";Jet OLEDB:Database Password=" & DuplirajApostrof(passw) & ";"
Debug.Print s1, Asc(s1), passw
Resume
End If
End If
End Sub
Public Function DuplirajApostrof(ByVal s As String) As String
'We have to be shure that we include all characters in brute force attack
Dim i As Long
i = InStr(1, s, """")
If i <> 0 Then
DuplirajApostrof = Left(s, i) & """" & DuplirajApostrof(Mid(s, i + 1, Len(s) - i + 1))
Else
DuplirajApostrof = s
End If
End Function
Private Sub Command4_Click()
dbname = Text1.Text
passw = ""
Open dbname For Binary As #1 ' open the database
Seek #1, &H42
For n = 1 To 14
' actual password recovery module
s1 = Mid(mask97, n, 1)
s2 = Input(1, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
passw = passw & Chr(Asc(s1) Xor Asc(s2))
End If
Next
Close 1
If passw = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Else
MsgBox "Le mot de passe est : " & passw, vbInformation
End If
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Text1_LostFocus()
Command1.SetFocus
End Sub
Private Sub Quitter_Click()
On Error GoTo Err_Quitter_Click
If MsgBox("Voulez-vous quitter ", vbQuestion + vbYesNo, "Confirmer la fermeture") = vbYes Then
DoCmd.Quit
End If
Exit_Quitter_Click:
Exit Sub
Err_Quitter_Click:
MsgBox Err.Description
Resume Exit_Quitter_Click
End Sub
14 mai 2008 à 17:06
J'étais dans l'impossibilité de le faire suite à des problème de connexion ; Non seulement je n'ai pas accés à Internet tous le toujours en plus la connexion à tranvers laquelle j'ai accés à Internet et presque Null.
Je tiens à remercier MR RENFIELD pour les eclairsissement qu'il a eu à apporter sur les problèmes débatus.
Je vous présente encore toutes mes excuses!
8 mai 2008 à 20:12
8 mai 2008 à 20:09
or ou est le mot de passe de cette base de donnée
11 juil. 2007 à 01:00
vous m'avez sauvé la vie, j'avais cru que les données étaientt irrécupérables.
encore une fois mille merci
10 juil. 2007 à 19:43
3 juil. 2007 à 11:10
Notre sujet ici est la source cité ci dessus concernat le mot de passe d'une base de données access,l'auteur n'a pas répondu à beaucoup de demandes d'explication mais MR RENFIELD nous a donné la solution ,je rappelle ici l'adresse qu'il nous a donnée :http://www.a1vbcode.com/a1vbcode/app-3202.asp cette source marche bien sur ms office 2003(chez moi)
Grand merci pour MR RENFIELD.
1 juil. 2007 à 23:51
tu nage en plein délire, mon pauvre. Drole de facon de demander de l'aide, surtout pour quelqu'un qui n'utilise pas le Forum, comme il serait censé le faire...
recherches "MDW", c'est des fichiers gérant les droits d'accès aux bases access
1 juil. 2007 à 22:54
je veux savoir comment mettre un login pour securisé ma base de donnée.
merci
27 juin 2007 à 16:11
a moin que tu ais sauvé le projet a la sortie quand il t'a dit qu'il trouvais pas la reference.
reprends la source en neuf.
27 juin 2007 à 12:40
27 juin 2007 à 11:52
27 juin 2007 à 06:10
et aussi oublier DAO :p (utilises ADO)
27 juin 2007 à 04:49
Je suis pas sur si t'a besoin de d'autre chose.
ici ca marche.
27 juin 2007 à 04:28
26 juin 2007 à 09:56
26 juin 2007 à 08:10
je vais extraire le source et le mettre ici...
24 juin 2007 à 17:13
j'ai juste testé mon prog sur Office97 et 2000, je sais pas comment il se comporte sur office 2003 ou 2007...
comme on a pus le voir ici, les mdb 2003 sont totalement differente, donc mon prog fonctionera surement pas sur ces mdb
24 juin 2007 à 11:49
Qu'EST CE QUE TU ATTENDS POUR NOUS OFFRIR CETTE SOURCE OU BIEN SON LIEN SI C'EST DEJA DANS CodeSources AVEC NOS SINCERES REMERCIMENTS ET ENCOURAGEMENTS;
23 juin 2007 à 21:13
Ben on a pas oublié... le probleme c que sans avoir la source, difficile de debuger les autres problemes non ?
pour l'instant, le fichier .mdb est pour moi la meme chose qu'un .vsp (virtual security protocol) quand on as pas de Virtual Security Server. le fichier est illisible.
La source semble abandonné de toute facon l'auteur n'a pas répondu a un seul message.
De toute facon, j'ai fais un projet Vb6 il y a quelque année qui faisait la meme choses, je voulais juste comparer si on avais le meme genre de source ou si il y avait de l'innovation.
Ma source a moi trouve tout les mots de passe entre 1 et 18 caractère en 0.01 seconde et pour les pw de 19 ou 20 car. (20 etant le max dans access) je faisait un brute force des 256 combinaisons restante, prenant moins de 4 secondes. Je voulais voir si cette source avait trouvé un autre moyen pour trouver les pass de 19 ou 20...
23 juin 2007 à 19:12
"la propriété de type evenement est à l'origine d'une erreur.Projet ou bibliothèque introuvable.
le rsultat de l'expression n'est pas le nom d'une macro,le nom d'une fonction definie par l'utilisateur ou[Event Procedure]..... "
Moi j'utilise access2003 et malgré tous la source ne marche pas chez moi.
23 juin 2007 à 11:26
23 juin 2007 à 04:13
j'ai aussi testé avec Access 2000 sans succès. Je crois que
c'est office 2003 qui a été utilisé.
donc, pour nous qui somme pauvre ou qui n'avons pas jugé d'acheter la derniere version, ben tans pis, on pourra pas
regarder les sources.
22 juin 2007 à 19:20
22 juin 2007 à 12:26
22 juin 2007 à 00:13
21 juin 2007 à 20:14
j'ai pourtant office 2000
Je veut pas lancer la pierre la... mais un code VB aurais été préférable avec la source en externe.
18 juin 2007 à 16:47
18 juin 2007 à 16:12
"L'expression sur clic enrtée comme paramètre de la propriété de type evenement est à l'origine d'une erreur.Projet ou bibliothèque introuvable.
le rsultat de l'expression n'est pas le nom d'une macro,le nom d'une fonction definie par l'utilisateur ou[Event Procedure]..... "
18 juin 2007 à 14:00
18 juin 2007 à 13:52
18 juin 2007 à 13:29
la base présente dans le zip est protégée par le mot de passe test.
une fois ouverte, la base propose une fenetre. Il y est possible de selectionner un fichier MDB, et de lancer la recherche du mot de passe.
En gros, il suffit d'ouvir la base du zip, et de se laisser guider...
18 juin 2007 à 12:38
14 juin 2007 à 09:19
14 juin 2007 à 09:03
14 juin 2007 à 04:27
c'est une protection basqieu contre les fausses manips des utilisateurs. Rien d'operationnel contre les pirates...
13 juin 2007 à 18:33
ça marche avec access 2003
Même avis que "AEDER". A quoi ça sert le mot de pass donc?????
13 juin 2007 à 15:00
Mais on peut alors se poser la question : "à quoi ça sert de mettre un mot de passe dans Access ?" car, même si access est une base de données à budget moyen, c'est déloyal de faire croire qu'un mot de passe la protège.
Et s'il en est de même pour Word et Excel ?
Chapeau, néanmoins, pour le code.
13 juin 2007 à 14:06
13 juin 2007 à 14:02
13 juin 2007 à 13:10
13 juin 2007 à 10:18
suffit d'ouvrir le seul fichier du zip : le fichier MDB...
13 juin 2007 à 10:13
13 juin 2007 à 00:04