ACCESS 2000/2003 PASSWORD RECOVERY

cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014 - 17 févr. 2002 à 17:20
sympson Messages postés 9 Date d'inscription mardi 16 septembre 2008 Statut Membre Dernière intervention 2 novembre 2011 - 13 avril 2010 à 12:05

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2619-access-2000-2003-password-recovery

sympson Messages postés 9 Date d'inscription mardi 16 septembre 2008 Statut Membre Dernière intervention 2 novembre 2011
13 avril 2010 à 12:05

c'est super warning ton code. Je te dis mil merci, ca marche sous access 2003 pour les fichiers de sécurisation par défaut. J ai donc eu la chance que mon fichier l' était. c est super j ai mon mot de passe renvoyé par ton code. Merci mon pot. Dieu ajoutera 1 jour de vie plus à ta longevité mon frere.

cs_Warning Messages postés 516 Date d'inscription samedi 3 février 2001 Statut Membre Dernière intervention 24 octobre 2006 2
7 nov. 2008 à 13:53

A tout ceux qui se demande comment éxecuter le programme, il faut d'abord le compiler avec Visual Basic 6 afin d'obtenir l'executable (parce que poster un executable ici est déconseillé pour éviter les virus).
Je rappel que qu'on est sur un site de téléchargement de codes-sources et non d'executables/logiciels.

ridstart Messages postés 28 Date d'inscription mardi 27 juillet 2004 Statut Membre Dernière intervention 5 avril 2012
22 mai 2008 à 13:36

salut,
j'ai telecharger votre application, pour retrouver un mot de passe access perdus, mais je ne trouve pas de fichier executable, comment faire ? est ce que je dois d'abord installer le VB ?
merci

ptitlu1125 Messages postés 1 Date d'inscription dimanche 15 avril 2007 Statut Membre Dernière intervention 15 avril 2007
15 avril 2007 à 19:49

Salut,
Je cherche un moyen de retrouver le mot de passe d'une base de données crée sous access 2002 mais je ne posséde plus le mot de passe :-((
J'ai chargé ton fichier Zip mais je ne sais pas comment l'utiliser ?
Merci de bien vouloir me donner une explication
A bientôt :-)
Ptitlu.

Michelh94 Messages postés 1 Date d'inscription samedi 19 mars 2005 Statut Membre Dernière intervention 19 janvier 2007
19 janv. 2007 à 17:44

Bonjour à tous,
Ce programme est sûrement super pour les bases avec un mot de passe, mais pour connaître les mots de passe contenu dans la base System.mdw, est-ce que quelqu'un a une solution ?
Tous les mots de passe sont dans la table système MSysAccounts et visible, mais ... crypté ! Alors ...
Merci d'avance
Michel

jala38 Messages postés 1 Date d'inscription jeudi 9 juin 2005 Statut Membre Dernière intervention 19 novembre 2006
19 nov. 2006 à 19:07

Super ! Merci ! ça m'a permis de recupérer la base de donnée d'un collègue parti sans donner ses mots de passe ...

tmcuh Messages postés 458 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 18 avril 2009
9 févr. 2005 à 21:45

j'espère qu'il utilise un hachage md5 pour la version 2003 au moins car là c'est vraiment lamentable de leur part... un xor.. comme cryptage on fait pas plus simple.... enfin si on peut appeler ça du cryptage

racattac13 Messages postés 62 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 14 février 2010
21 août 2004 à 15:08

ah il manque l'affichage

base = InputBox("Mot de passe","by racattac13",tab2)

racattac13 Messages postés 62 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 14 février 2010
21 août 2004 à 15:05

c'est simple , le mot de passe se trouve crypter a partir du 66 eme caractere dans le fichier mdb pour le decrypter il faut faire un XOR lettre par lettre avec la constante

ê¹ý7]D£·ã^(µ‼
ce qui donne en decimale(separé par virgule)
134,251,236,55,93,68,156,250,198,94,40,230,19
j'ai deja fait un script vbs et comme il est petit je vous le remet ici
Dim tab(12),tab2
Set fs = CreateObject("Scripting.FileSystemObject")
tab(0)=134
tab(1)=251
tab(2)=236
tab(3)=55
tab(4)=93
tab(5)=68
tab(6)=156
tab(7)=250
tab(8)=198
tab(9)=94
tab(10)=40
tab(11)=230
tab(12)=19

base = InputBox("Entrez le fichier mdb","by Ki?Mo")

set fr=fs.OpenTextFile(base,1,True,0)

i=42
j=0
fr.skip(66)
Do While i <> 54
val=fr.Read(1)
i=i+1
result=ASC(val) Xor tab(j)
tab2=tab2&Chr(result)
j=j+1
loop
fr.Close()

cs_DROGBA Messages postés 4 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 24 mai 2004
14 mai 2004 à 10:11

commen ca dechire ton truc!!!

cs_Warning Messages postés 516 Date d'inscription samedi 3 février 2001 Statut Membre Dernière intervention 24 octobre 2006 2
6 mars 2004 à 23:15

merci de l'info ;) ça soulage lol mais reste a voir si la sécurité est meilleur, rien de sur !

franck453 Messages postés 19 Date d'inscription jeudi 1 mai 2003 Statut Membre Dernière intervention 28 septembre 2011
6 mars 2004 à 21:39

ne marche pas avec access 2003... :-)

tant mieux... :-)

franck453

cs_YAKA Messages postés 13 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 30 janvier 2004
14 janv. 2004 à 15:00

Pourquoi?
J'ai une erreur 14: Espace chaine insuffisant.
dans:
Public Function Ouvrir(FileName As String) As String
Dim GetFree As Long
GetFree = FreeFile
Open FileName For Binary As GetFree
''''''''''''''''''''''''''''''''''''''''''' L'erreur survient a la ligne ci dessous !!!!!!!
Ouvrir = String(LOF(GetFree), " ")
Get #GetFree, 1, Ouvrir
Close GetFree
End Function

cs_balinda Messages postés 1 Date d'inscription mercredi 24 décembre 2003 Statut Membre Dernière intervention 24 décembre 2003
24 déc. 2003 à 16:51

Comment est ce que on utilise ton programme ...?

bvadam Messages postés 2 Date d'inscription jeudi 21 août 2003 Statut Membre Dernière intervention 19 juin 2007
21 août 2003 à 11:10

Faudrait m'expliquer comment on l'utilise. Je suppose qu'il faut recompiler pour avoir un excéutable ? Désolé, je connais pas le VB...

micyawo Messages postés 3 Date d'inscription lundi 28 avril 2003 Statut Membre Dernière intervention 23 août 2004
22 mai 2003 à 14:13

C'est super ton progr. En tout cas il m'a été très utile. Du courage car c'est, tu sais , c'est très IMPECCABLE.

cs_thieu Messages postés 3 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 14 juin 2003
3 avril 2003 à 13:23

Impecc! Comme Math44; manque plus qu'Excel

cs_Freemind Messages postés 46 Date d'inscription mardi 30 avril 2002 Statut Membre Dernière intervention 27 novembre 2005
30 juin 2002 à 19:57

AAAAAAAAAAaRRGH,
non, c'est dégueulasse..
je comptais un peu sur la sécurité de ce fichier, mais non, merci bill

quand inventerez-vous des trucs pour se protéger?

cs_Math44 Messages postés 15 Date d'inscription dimanche 24 février 2002 Statut Membre Dernière intervention 23 mai 2004
27 févr. 2002 à 21:00

c'est très bien pour ceux qui, comme moi, n'ont pas beaucoup de mémoire...
n'y-aurait'il pas la possibilité de créer la même chose pour les fichiers EXCEL ?

Skywalker13 Messages postés 111 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 27 août 2004
21 févr. 2002 à 20:06

joli... C'est qu'en même incroyable et bien malheureux que l'on puisse faire sauter un passe aussi facilement..

cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
17 févr. 2002 à 17:20

Super, j'aime bien sa prouve encore que microsoft = Aucune sécurité, mais bon coding sa meriterais bien 100/10 mais limite de 10 :(.

PS : Ta oublier le code End du bouton quitter

@++ Bonne prog

Discussions similaires

programmer execution d'une macro ACCESS

access vba recherche de donnee ds une table

Requête LIKE Access

Delphi 7 et access 2007 - connexion au BDE

Requete INSERT sous ACCESS

Votre réponse

Discussions similaires