n˜…
KpÎÉ›E(X°!S¤â=”d3j‹ÔyoaƒlÄš:†!}ÿƒ€×©†ê6’ÕE)Ž›jIn˜…
KpÎÉ›E(X°!S¤â=”d3j‹ÔyoaƒlÄš:†!}ÿƒ€×©†ê6’ÕE)Ž›jI¡®¾ôKMY‹.Žo¢àh¿àœ\·jp;Ð6mÛiPˆ±î0q½,ãJ¦P%sƒ) _-j©Lë^ñ*
j'ai besoin d'une lumière
Je code un petit outil pour enregistrer des données dans un fichier .txt et que je crypte.
Ces données son à chaque fois sur trois lignes.
Je crypte ces données et je veux pouvoir les décrypter, jusqu'à là pas de soucis.
Mon soucis et que si je rentre une nouvelle donnée de trois lignes cette deuxième saisies n'est pas décryptées ?
Par exemple première saisie (Age, nom, ville)
28
Florence
Paris
Ce qui donne dans mon fichier texte Je peux donc crypter et afficher le résultat décrypté jusqu'à la pas de soucis
Ensuite si je rentre :
32
Maxime
Marseille
J'obtiens :
Age : 28
Prénom : Florence
Ville : Paris
êÄäj8ÑÊmÞÍÅ:ù7Ø/)¨~¹‘Ãêž³EW|øF^ï
¸/ÌÈF~ã‡IïÍ=å«X6]ŽÛ‡‹¹êõ¹U>²ö#ì+BWðºa‰Òä;-½´[ŠòÑP멵'†DíBÞÀßTcDB
Prénom : Florence
Ville : Paris
êÄäj8ÑÊmÞÍÅ:ù7Ø/)¨~¹‘Ãêž³EW|øF^ï
¸/ÌÈF~ã‡IïÍ=å«X6]ŽÛ‡‹¹êõ¹U>²ö#ì+BWðºa‰Òä;-½´[ŠòÑP멵'†DíBÞÀßTcDB
#include <Crypt.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
Global $FIHCHIER = @HomeDrive & "\test.txt"
Global $Val1 = 'A toi de choisir'
Global $FIHC
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 396, 192, 124)
$Input1 = GUICtrlCreateInput("", 16, 24, 153, 21)
$Input2 = GUICtrlCreateInput("", 16, 56, 153, 21)
$Input3 = GUICtrlCreateInput("", 16, 88, 153, 21)
$bt_crypter = GUICtrlCreateButton("Crypter", 16, 136, 153, 25)
$bt_decrypt = GUICtrlCreateButton("Affciher", 16, 184, 153, 25)
$Edit1 = GUICtrlCreateEdit("", 192, 8, 401, 369)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $bt_crypter
Local $readD1 = GUICtrlRead($Input1)
Local $readD2 = GUICtrlRead($Input2)
Local $readD3 = GUICtrlRead($Input3)
$FIHC &= "************" & @CRLF
$FIHC &= "Age : "
$FIHC &= $readD1 & @CRLF
$FIHC &= "Prénom : "
$FIHC &= $readD2 & @CRLF
$FIHC &= "Ville : "
$FIHC &= $readD3 & @CRLF
Local $sEncrypted = StringEncrypt(True, $FIHC, $Val1)
FileWrite($FIHCHIER, $sEncrypted)
Case $bt_decrypt
Local $rREADF = FileRead($FIHCHIER)
Local $sDecrypted = StringEncrypt(False, $rREADF, $Val1)
MsgBox(0, "", $sDecrypted)
GUICtrlSetData($Edit1, $sDecrypted)
EndSwitch
WEnd
Func StringEncrypt($bEncrypt, $sData, $sPassword)
_Crypt_Startup() ; Exécute la bibliothèque Crypt.
Local $sReturn = ''
If $bEncrypt Then ; Si l'indicateur est défini à True alors chiffrer, sinon déchiffrer.
$sReturn = _Crypt_EncryptData($sData, $sPassword, $CALG_RC4)
Else
$sReturn = BinaryToString(_Crypt_DecryptData($sData, $sPassword, $CALG_RC4))
EndIf
_Crypt_Shutdown() ; Arrête la bibliothèque Crypt.
Return $sReturn
EndFunc ;==>StringEncrypt
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
Global $FIHCHIER = @HomeDrive & "\test.txt"
Global $Val1 = 'A toi de choisir'
Global $FIHC
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 396, 192, 124)
$Input1 = GUICtrlCreateInput("", 16, 24, 153, 21)
$Input2 = GUICtrlCreateInput("", 16, 56, 153, 21)
$Input3 = GUICtrlCreateInput("", 16, 88, 153, 21)
$bt_crypter = GUICtrlCreateButton("Crypter", 16, 136, 153, 25)
$bt_decrypt = GUICtrlCreateButton("Affciher", 16, 184, 153, 25)
$Edit1 = GUICtrlCreateEdit("", 192, 8, 401, 369)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $bt_crypter
Local $readD1 = GUICtrlRead($Input1)
Local $readD2 = GUICtrlRead($Input2)
Local $readD3 = GUICtrlRead($Input3)
$FIHC &= "************" & @CRLF
$FIHC &= "Age : "
$FIHC &= $readD1 & @CRLF
$FIHC &= "Prénom : "
$FIHC &= $readD2 & @CRLF
$FIHC &= "Ville : "
$FIHC &= $readD3 & @CRLF
Local $sEncrypted = StringEncrypt(True, $FIHC, $Val1)
FileWrite($FIHCHIER, $sEncrypted)
Case $bt_decrypt
Local $rREADF = FileRead($FIHCHIER)
Local $sDecrypted = StringEncrypt(False, $rREADF, $Val1)
MsgBox(0, "", $sDecrypted)
GUICtrlSetData($Edit1, $sDecrypted)
EndSwitch
WEnd
Func StringEncrypt($bEncrypt, $sData, $sPassword)
_Crypt_Startup() ; Exécute la bibliothèque Crypt.
Local $sReturn = ''
If $bEncrypt Then ; Si l'indicateur est défini à True alors chiffrer, sinon déchiffrer.
$sReturn = _Crypt_EncryptData($sData, $sPassword, $CALG_RC4)
Else
$sReturn = BinaryToString(_Crypt_DecryptData($sData, $sPassword, $CALG_RC4))
EndIf
_Crypt_Shutdown() ; Arrête la bibliothèque Crypt.
Return $sReturn
EndFunc ;==>StringEncrypt
