[Ex] Code césar

[Zippo]

Salut tout le monde,

J'ai commencé par le cryptage de césar.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.3.6.0
 Auteur:         Canaud Thibaud

 Fonction du Script :
    Script reproduisant le code césar.

#ce ----------------------------------------------------------------------------

; Début du script - Ajouter votre code ci-dessous.
#include <array.au3>

Func _Cryptage_Cesar($oMessage,$oDecal)
    Local $oMessageoReturn
    $oMessageoArray = StringToASCIIArray($oMessage)
    For $i = 0 To UBound($oMessageoArray) - 1 Step 1
        $oMessageoCalcule = $oMessageoArray[$i] + $oDecal
        $oMessageoReturn &= Chr($oMessageoCalcule)
    Next
    Return $oMessageoReturn
EndFunc

Func _Decryptage_Cesar($oMessage,$oDecal)
    Local $oMessageoReturn
    $oMessageoArray = StringToASCIIArray($oMessage)
    For $i = 0 To UBound($oMessageoArray) - 1 Step 1
        $oMessageoCalcule = $oMessageoArray[$i] - $oDecal
        $oMessageoReturn &= Chr($oMessageoCalcule)
    Next
    Return $oMessageoReturn
EndFunc

Je m'aide de ASCII.

Code : Tout sélectionner

_Cryptage_Cesar($oMessage,$oDecal);Message à crypter,Nombre de caractère à décalé(clef)
_Decryptage_Cesar($oMessage,$oDecal);Message à décrypter,Nombre de caractère à décalé(clef)

Merci

[sablier94]

Salut,

Rhaa je voulais le faire

Même si le code césar n'est pas très sécurisé ça peut toujours être utile, merci pour la fonction !

[Zippo]

De rien, sa fait plaisir un ptit merci