Aide et conseils concernant AutoIt et ses outils.
-
Boulanza
- Niveau 7

- Messages : 444
- Enregistré le : mer. 31 juil. 2013 14:49
-
Status :
Hors ligne
#1
Message
par Boulanza » ven. 05 juil. 2019 12:25
Bonjour,
Je cherche la raison qui bloque le décryptage du fichier .in du code ci-dessous.
Merci pour votre aide.
Modifié en dernier par
Boulanza le ven. 05 juil. 2019 21:11, modifié 1 fois.
-
walkson
- Modérateur

- Messages : 730
- Enregistré le : ven. 12 août 2011 18:49
- Localisation : Essonne
-
Status :
Hors ligne
#2
Message
par walkson » ven. 05 juil. 2019 14:02
Bonjour,
Testez le code ci dessous
#include <GUIConstantsEx.au3>#include <WindowsConstants.au3>#include <File.au3>#include <Crypt.au3>#include <MsgBoxConstants.au3>Global $bAlgorithm = $CALG_RC4Global $passcrypt = "123456789"Local $search = FileFindFirstFile(@ScriptDir & "\test\*.ini")Global $file = FileFindNextFile($search) ; sans problème le fichier est trouvé.(Le chemin ?) MsgBox(0, "Fichier:", $file); résultat okDecryptFile
($passcrypt, $bAlgorithm, $file)Func DecryptFile
($passcrypt, $bAlgorithm, $file) If FileExists($file) Then _Crypt_DecryptFile($file, @ScriptDir & "\Result.ini", $passcrypt, $bAlgorithm) If @error Then Switch @error Case 2 MsgBox($MB_SYSTEMMODAL, "Erreur", "Impossible d'ouvrir le fichier source.") Case 3 MsgBox($MB_SYSTEMMODAL, "Erreur", "Impossible d'ouvrir le fichier de destination.") Case 30 MsgBox($MB_SYSTEMMODAL, "Erreur", "Impossible de créer la clé.") Case 400 Or 500 MsgBox($MB_SYSTEMMODAL, "Erreur", "Erreur de déchiffrement.") Case Else MsgBox($MB_SYSTEMMODAL, "Error", "Unexpected @error = " & @error) EndSwitch EndIf Else MsgBox($MB_SYSTEMMODAL, "Erreur", "Le fichier codé n'existe pas") EndIfEndFunc
Vive la gestion d'erreurs

Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
-
Boulanza
- Niveau 7

- Messages : 444
- Enregistré le : mer. 31 juil. 2013 14:49
-
Status :
Hors ligne
#3
Message
par Boulanza » ven. 05 juil. 2019 15:15
Merci walkson pour votre aide. Voici le résultat du test de votre code:
Mesage : "Erreur", "Le fichier codé n'existe pas
Cordialement.
-
Boulanza
- Niveau 7

- Messages : 444
- Enregistré le : mer. 31 juil. 2013 14:49
-
Status :
Hors ligne
#4
Message
par Boulanza » ven. 05 juil. 2019 15:22
Une petite remarque:
lorsque je pose la question suivante If not FileExists($file) Then
j’obtiens le message de Case 2: "Impossible d'ouvrir le fichier source."
-
Boulanza
- Niveau 7

- Messages : 444
- Enregistré le : mer. 31 juil. 2013 14:49
-
Status :
Hors ligne
#5
Message
par Boulanza » ven. 05 juil. 2019 15:53
le code a marché en ajoutant les conditions suivantes:
-
walkson
- Modérateur

- Messages : 730
- Enregistré le : ven. 12 août 2011 18:49
- Localisation : Essonne
-
Status :
Hors ligne
#6
Message
par walkson » ven. 05 juil. 2019 16:01
Normal puisque FileFindNextFile() donne le nom du fichier mais pas son chemin....
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi