ACCESS 2000/2003 PASSWORD RECOVERY

Commentaire de max12 le 17/02/2002 17:20:20 administrateur CS

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

Commentaire de Math44 le 27/02/2002 21:00:51

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 ?

Commentaire de thieu le 03/04/2003 13:23:11

Impecc! Comme Math44; manque plus qu'Excel

Commentaire de bvadam le 21/08/2003 11:10:02

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...

Commentaire de YAKA le 14/01/2004 15:00:50

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

Commentaire de Warning le 06/03/2004 23:15:15 administrateur CS

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

Commentaire de racattac13 le 21/08/2004 15:05:39

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()

Commentaire de tmcuh le 09/02/2005 21:45:53

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

Commentaire de Michelh94 le 19/01/2007 17:44:55

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

Commentaire de ridstart le 22/05/2008 13:36:20

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