[R] Broblème de code pour décrypter fichier.in

[Boulanza]

Bonjour,
Je cherche la raison qui bloque le décryptage du fichier .in du code ci-dessous.
Merci pour votre aide.

Code: [Tout sélectionner] [Déplier/Replier]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include "Crypt.au3"
DecryptFile()
Func DecryptFile()

Global $bAlgorithm = $CALG_RC4
Global $passcrypt = "123456789"
$search = FileFindFirstFile(@ScriptDir & "\test\*.ini")
   Global $file = FileFindNextFile($search) ; sans problème le fichier est trouvé.
  MsgBox(0, "Fichier:", $file); résultat ok
         _Crypt_DecryptFile($file, @ScriptDir & "\Result.ini", $passcrypt, $bAlgorithm)

EndFunc

GeSHi © Extension Codebox Plus

[walkson]

Bonjour,
Testez le code ci dessous

Code: [Tout sélectionner] [Déplier/Replier]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Crypt.au3>
#include <MsgBoxConstants.au3>

Global $bAlgorithm = $CALG_RC4
Global $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 ok
DecryptFile($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")
   EndIf

EndFunc

GeSHi © Extension Codebox Plus

Vive la gestion d'erreurs

[Boulanza]

Merci walkson pour votre aide. Voici le résultat du test de votre code:
Mesage : "Erreur", "Le fichier codé n'existe pas
Cordialement.

[Boulanza]

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]

le code a marché en ajoutant les conditions suivantes:

Code: [Tout sélectionner] [Déplier/Replier]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Crypt.au3>
#include <MsgBoxConstants.au3>

Global $bAlgorithm = $CALG_RC4
Global $passcrypt = "123456789"
$search = FileFindFirstFile(@ScriptDir & "\test\*.ini")
   Global $file = FileFindNextFile($search)
   MsgBox(0, "Fichier:", $file)
Local $chaine = $file
Msgbox(0,"trouvé", $chaine)
 _Crypt_DecryptFile(@ScriptDir & "\test\"&$chaine, @ScriptDir & "\Result.ini", $passcrypt, $bAlgorithm)

GeSHi © Extension Codebox Plus

[walkson]

Normal puisque FileFindNextFile() donne le nom du fichier mais pas son chemin....