Code : Tout sélectionner
#Include <Crypt.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
Global $SourceFile = ''
#Region ### START Koda GUI section ### Form=c:\users\william.pc-de-jmi-et-pa\desktop\autoit3\scite\koda\forms\chiffreur.kxf
Global $GUI = GUICreate("Chiffreur", 820, 506, 189, 132)
GUISetBkColor(0x0066CC)
Global $EditText = GUICtrlCreateEdit("", 56, 144, 729, 217)
GUICtrlSetBkColor(-1, 0xFFFFE1)
GUICtrlSetCursor (-1, 5)
Global $EncryptButton = GUICtrlCreateButton("Chiffrer", 520, 48, 105, 41, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
Global $DecryptButton = GUICtrlCreateButton("Déchiffrer", 664, 48, 105, 41, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
Global $InputPass = GUICtrlCreateInput("", 280, 56, 145, 21, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetCursor (-1, 5)
Global $Group1 = GUICtrlCreateGroup("Mot de passe", 256, 16, 193, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Mode", 496, 16, 297, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Radio2 = GUICtrlCreateRadio("Texte", 112, 48, 65, 17)
GUICtrlSetCursor (-1, 0)
GUICtrlSetState(-1, $GUI_CHECKED)
Global $Radio1 = GUICtrlCreateRadio("Fichier", 112, 72, 65, 17)
GUICtrlSetCursor (-1, 0)
Global $Group3 = GUICtrlCreateGroup("Que vouez vous crypter ?", 64, 16, 153, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("Parcourir", 104, 408, 105, 41, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
Global $Label1 = GUICtrlCreateLabel("Chemin du fichier : ", 232, 408, 114, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$msg = GUIGetMsg()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
; si on clique sur la croix rouge sa ferme la fenetre
Case $Radio1 ; Si on crypte un fichier
GUICtrlSetState($EditText,$GUI_DISABLE)
GUICtrlSetState($Button1,$GUI_ENABLE)
Case $Radio2 ; Si on crypte un texte
GUICtrlSetState($EditText,$GUI_ENABLE)
GUICtrlSetState($Button1,$GUI_DISABLE)
Case $Button1 ; On choisit un fichier pour le crypter.
$SourceFile = FileOpenDialog("Crypteur",@DesktopDir&'\',"Tous (*.*)",9)
GUICtrlSetData($Label1,"Chemin du fichier : " & $SourceFile)
Case $EncryptButton
; quand on clique sur chiffrer
If $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED Then ; On crypte un fichier
If $SourceFile = '' Then
MsgBox(0,"Crypteur",'Veuillez selectionner un fichier')
ElseIf _Crypt_EncryptFile($SourceFile,$SourceFile&".crypt",GuiCtrlRead($InputPass),$CALG_RC2) Then
MsgBox(0,"Crypteur",'OK ! , Votre fichier a été crypté')
EndIf
Else ; On crypte le texte
$CryptData = _Crypt_EncryptData(GuiCtrlRead($EditText), $InputPass, $CALG_RC2)
GUICtrlSetData($EditText,BinaryToString($CryptData))
EndIf
Case $DecryptButton ; Si on clique sur le boutton Encrypter
If $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED Then ; On crypte un fichier
If $SourceFile = '' Then
MsgBox(0,"Crypteur",'Veuillez selectionner un fichier')
ElseIf StringRight($SourceFile,6) <> '.crypt' Then
MsgBox(0,"Crypteur",'Veuillez selectionner un fichier crypté.')
ElseIf _Crypt_DecryptFile($SourceFile,StringLeft($SourceFile,StringLen($SourceFile)-6),GuiCtrlRead($InputPass),$CALG_RC2) Then
;StringLeft($SourceFile,StringLen($SourceFile)-6) Va supprimer le .crypt a la fin de notre nom de fichier. On supprime les 6 derniers caractères.
MsgBox(0,"Crypteur",'OK ! , Votre fichier a été décrypté')
Else
MsgBox(0,"Crypteur","OK ! , Votre fichier n'a pas pu être decrypté.")
EndIf
Else ; On crypte le texte
$CryptData = _Crypt_DecryptData(GuiCtrlRead($EditText),GuiCtrlRead($InputPass),$CALG_RC2)
GUICtrlSetData($EditText,BinaryToString($CryptData))
EndIf
EndSwitch
WEnd
quand je sélectionne la radio fichier je choisis mon fichier je met un mot de passe et je clique sur chiffrer mais sa ne modifie pas le fichier sa modifie ce qu'il y a dans la grande case d’édit
