cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009
-
26 mars 2011 à 09:59
redisland974 -
16 nov. 2012 à 11:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
j'aimerai récupérer aussi un mot de passe mais je n'arrive pas a utiliser votre logiciel..
je suis sous Win XP
pouvez vous m'aider svp ?
merci :)
phanpile
Messages postés1Date d'inscriptionjeudi 11 mars 2010StatutMembreDernière intervention 1 décembre 2011 1 déc. 2011 à 10:32
Juste encore un merci à 3aloula et pour ceux comme moi qui sont par exemple sur W7 et/ou qui n'ont pas VB6 mais ont Excel, on peut aussi le faire tourner sur Excel en VBA :
--------------------------------------------------
Function GetPassword(ByVal FileName As String) As String
On Error GoTo ErrHand
Dim Access2000Decode As Variant
Dim fFile As Integer
Dim bCnt As Integer
Dim retXPwd(17) As Integer
Dim wkCode As Integer
Dim mgCode As Integer
For bCnt = 0 To 17
wkCode = retXPwd(bCnt) Xor Access2000Decode(bCnt)
If wkCode < 256 Then
str2000 = str2000 & Chr(wkCode)
Else
str2000 = str2000 & Chr(wkCode Xor mgCode)
End If
Next bCnt
Else
str2000 = "No file Selected"
End If
GetPassword = str2000
Exit Function
ErrHand:
MsgBox "Error with opening file", vbCritical, App.Title
End Function
--------------------------------------------------
Il suffit ensuite d'appeler =GetPassword("Chemin\Fichier.mdb") dans une cellule
--------------------------------------------------
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 27 sept. 2011 à 13:57
merci
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 27 sept. 2011 à 13:56
oui ça fonction
stp tu ne pas ou je avoir toute la formation VBA
3aloula
Messages postés9Date d'inscriptiondimanche 10 juin 2007StatutMembreDernière intervention23 septembre 2011 23 sept. 2011 à 12:58
merci Mr Ziwt et j’espère que ça fonction bien
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 22 sept. 2011 à 11:40
salut 3aloula c'est super j'ai une dette envers toi
je viens de trouver le mot de passe
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 21 sept. 2011 à 20:36
et en plus quand je lance le fichier zip il ya cette erreur
''erreur d'automation
Erreur d'accès au registre OLE''
et lorsque je fais ok on me dit
fichier introuvable
merci pour votre aide
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 21 sept. 2011 à 20:22
cette fois c'est bien aller mais je n'arrive toujours pas à ouvrir utiliser le zip
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 21 sept. 2011 à 17:28
au fait ma commende s’exécute de cette façon
en entête
(c:\windows\system32\cmd.exe)
en suite avant d'entre la commande c'est écrit
c:\Users\poeple>
et quand je rentre la commande et que je faire enter il ya un message d'erreur mais je réinstalle VB 06 pour voir
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 21 sept. 2011 à 17:05
ok j'ai placé le zip mais la cmd il ya un message d'erreur ''
le nom du fichier, nom de répertoire ou de volume syntaxe de l'étiquette est incorrecte'' soit en anglais car mon système est en anglais ''the filename, directory name, or volum label syntax is incorrect.''
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 21 sept. 2011 à 15:49
ok j'essaie et je vous faire le retour merci merci merci.
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 21 sept. 2011 à 15:46
en fait pour plus de securité j'itulise un mini hp avec windows7 starter
3aloula
Messages postés9Date d'inscriptiondimanche 10 juin 2007StatutMembreDernière intervention23 septembre 2011 20 sept. 2011 à 13:20
j’espère que cette Solution va corriger le problème !!!!
J'attends la réponse!!!!!!!!!!
3aloula
Messages postés9Date d'inscriptiondimanche 10 juin 2007StatutMembreDernière intervention23 septembre 2011 20 sept. 2011 à 13:19
Voici un correctif pour ce problème:
1. Télécharger ce fichier javacypt.dll (zip) et l'extraire.
2. Après l'extraction du fichier (javacypt.dll) le placer dans votre répertoire system32 (C: \ windows \ system32)
3. Enregistrer la DLL:
a. Ouvrez un promt commande par Démarrer -> Exécuter -> tapez 'cmd' et cliquez sur OK.
b. tapez la commande:
regsvr32 c: \ windows \ system32 \ javacypt.dll
4. Installez Visual Studio 6.0 à nouveau.
5. Ne pas oublier d'installer le dernier service pack! (6.0)
3aloula
Messages postés9Date d'inscriptiondimanche 10 juin 2007StatutMembreDernière intervention23 septembre 2011 20 sept. 2011 à 13:12
d'accord Mr Zwit mais qu'il est votre Système d'exploitation dans votre Poste (Xp/Vista/windows 7)
J’attends la réponse!!!!!!!!!!
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 19 sept. 2011 à 19:56
il se trouve que lorsque j'installe VB06 cette erreur apparait
''javasign.dll was unable to register itself in the system registry'' soit que ''javasign.dll a été incapable de se faire enregistrer dans le système de Registre '' s'il vous plait je voudrais bien recevoir un peu plus d'aide.
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 19 sept. 2011 à 17:32
je n'arrive pas encore a utiliser le zip
zwit
Messages postés15Date d'inscriptionmercredi 14 septembre 2011StatutMembreDernière intervention27 septembre 2011 19 sept. 2011 à 12:57
merci; pour tout. ce qui veut dire que si j'ai VB06 je peux utiliser le ZIP sans problème !
j'essaie et je vous faire le retour. 1000 merci.
3aloula
Messages postés9Date d'inscriptiondimanche 10 juin 2007StatutMembreDernière intervention23 septembre 2011 16 sept. 2011 à 13:45
16 nov. 2012 à 11:24
j'aimerai récupérer aussi un mot de passe mais je n'arrive pas a utiliser votre logiciel..
je suis sous Win XP
pouvez vous m'aider svp ?
merci :)
1 déc. 2011 à 10:32
--------------------------------------------------
Function GetPassword(ByVal FileName As String) As String
On Error GoTo ErrHand
Dim Access2000Decode As Variant
Dim fFile As Integer
Dim bCnt As Integer
Dim retXPwd(17) As Integer
Dim wkCode As Integer
Dim mgCode As Integer
Access2000Decode = Array(&H6ABA, &H37EC, &HD561, &HFA9C, &HCFFA, _
&HE628, &H272F, &H608A, &H568, &H367B, _
&HE3C9, &HB1DF, &H654B, &H4313, &H3EF3, _
&H33B1, &HF008, &H5B79, &H24AE, &H2A7C)
If Len(FileName) > 0 Then
fFile = FreeFile
Open FileName For Binary As #fFile
Get #fFile, 67, retXPwd
Get #fFile, 103, mgCode
Close #fFile
mgCode = mgCode Xor Access2000Decode(18)
str2000 = vbNullString
For bCnt = 0 To 17
wkCode = retXPwd(bCnt) Xor Access2000Decode(bCnt)
If wkCode < 256 Then
str2000 = str2000 & Chr(wkCode)
Else
str2000 = str2000 & Chr(wkCode Xor mgCode)
End If
Next bCnt
Else
str2000 = "No file Selected"
End If
GetPassword = str2000
Exit Function
ErrHand:
MsgBox "Error with opening file", vbCritical, App.Title
End Function
--------------------------------------------------
Il suffit ensuite d'appeler =GetPassword("Chemin\Fichier.mdb") dans une cellule
--------------------------------------------------
27 sept. 2011 à 13:57
27 sept. 2011 à 13:56
stp tu ne pas ou je avoir toute la formation VBA
23 sept. 2011 à 12:58
22 sept. 2011 à 11:40
je viens de trouver le mot de passe
21 sept. 2011 à 20:36
''erreur d'automation
Erreur d'accès au registre OLE''
et lorsque je fais ok on me dit
fichier introuvable
merci pour votre aide
21 sept. 2011 à 20:22
21 sept. 2011 à 17:28
en entête
(c:\windows\system32\cmd.exe)
en suite avant d'entre la commande c'est écrit
c:\Users\poeple>
et quand je rentre la commande et que je faire enter il ya un message d'erreur mais je réinstalle VB 06 pour voir
21 sept. 2011 à 17:05
le nom du fichier, nom de répertoire ou de volume syntaxe de l'étiquette est incorrecte'' soit en anglais car mon système est en anglais ''the filename, directory name, or volum label syntax is incorrect.''
21 sept. 2011 à 15:49
21 sept. 2011 à 15:46
20 sept. 2011 à 13:20
J'attends la réponse!!!!!!!!!!
20 sept. 2011 à 13:19
1. Télécharger ce fichier javacypt.dll (zip) et l'extraire.
Voici le lien http://www.dmcinfo.com/Portals/0/Blog%20Pictures/javacyptdll.zip
2. Après l'extraction du fichier (javacypt.dll) le placer dans votre répertoire system32 (C: \ windows \ system32)
3. Enregistrer la DLL:
a. Ouvrez un promt commande par Démarrer -> Exécuter -> tapez 'cmd' et cliquez sur OK.
b. tapez la commande:
regsvr32 c: \ windows \ system32 \ javacypt.dll
4. Installez Visual Studio 6.0 à nouveau.
5. Ne pas oublier d'installer le dernier service pack! (6.0)
20 sept. 2011 à 13:12
J’attends la réponse!!!!!!!!!!
19 sept. 2011 à 19:56
''javasign.dll was unable to register itself in the system registry'' soit que ''javasign.dll a été incapable de se faire enregistrer dans le système de Registre '' s'il vous plait je voudrais bien recevoir un peu plus d'aide.
19 sept. 2011 à 17:32
19 sept. 2011 à 12:57
j'essaie et je vous faire le retour. 1000 merci.
16 sept. 2011 à 13:45
Mot de Passe : Security-Sh3ll.com
15 sept. 2011 à 19:01
15 sept. 2011 à 13:22
Remarque : il faut installé «Visual Basic 6.0 » ou bien copier fichier vb6fr.dll (dans system32)
14 sept. 2011 à 19:50
28 mars 2011 à 20:52
26 mars 2011 à 10:00
26 mars 2011 à 09:59
Très efficace.
Bon à garder si perte des mots de passe.