Initialise la biblioth�que Crypt
#include <Crypt.au3>
_Crypt_Startup ( )
Succ�s: | Retourne True. |
�chec: | Retourne False et d�finit @error <> 0. |
@error: | 1 - Impossible d'ouvrir Advapi32.dll 2 - Impossible d'obtenir le contexte de chiffrement |
Appeler cette fonction est facultatif.
Recherchez CryptAcquireContext dans la biblioth�que MSDN.
#include <Crypt.au3> #include <MsgBoxConstants.au3> Example() Func Example() _Crypt_Startup() ; Pour optimiser les performances ex�cuter la biblioth�que crypt, m�me si ce sont les m�mes r�sultats affich�s dans le cas contraire. Local Const $sUserKey = "CryptPassword" ; D�clare un de mot de passe pour d�chiffrer/chiffrer les donn�es. Local $sData = "... il �tait une fois un langage sans aucune norme..." ; Donn�es qui seront hach�es. Local $sOutput = "Les r�sultats suivants montrent les algorithmes pris en charge pour chiffrer les donn�es." & @CRLF & @CRLF & _ "Text: " & $sData & @CRLF & @CRLF & _ "3DES (128bit): " & _Crypt_EncryptData($sData, $sUserKey, $CALG_3DES) & @CRLF & @CRLF & _ "AES (128bit): " & _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_128) & @CRLF & @CRLF & _ "AES (192bit): " & _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_192) & @CRLF & @CRLF & _ "AES (256bit): " & _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_256) & @CRLF & @CRLF & _ "DES (56bit) : " & _Crypt_EncryptData($sData, $sUserKey, $CALG_DES) & @CRLF & @CRLF & _ "RC2 (128bit): " & _Crypt_EncryptData($sData, $sUserKey, $CALG_RC2) & @CRLF & @CRLF & _ "RC4 (128bit): " & _Crypt_EncryptData($sData, $sUserKey, $CALG_RC4) MsgBox($MB_SYSTEMMODAL, "Algorithmes pris en charge", $sOutput) _Crypt_Shutdown() ; Arr�te la biblioth�que crypt. EndFunc ;==>Example