AutoIt Français

Code : Tout sélectionner

Func Encodage($Caracteres)
    Local $CaracteresRestant, $Random, $CaracteresResultat, $ArrayCaractere, $ArrayCaracteresResultat, $ArrayFinal
    $CaracteresRestant = $Caracteres

    Do
        $Random = RandomInString($CaracteresRestant)
        $CaracteresResultat = $CaracteresResultat & $Random
        $CaracteresRestant = StringReplace($CaracteresRestant, $Random, "", 0, 1)
        If StringLen($CaracteresRestant) = 1 Then
            $CaracteresResultat = $CaracteresResultat & $CaracteresRestant
            $CaracteresRestant = ""
        EndIf
    Until StringLen($CaracteresRestant) = 0

    $ArrayCaractere = StringSplit($Caracteres, "")
    $ArrayCaracteresResultat = StringSplit($CaracteresResultat, "")

    If $ArrayCaractere[0] <> $ArrayCaracteresResultat[0] Then
        MsgBox(0, "", "erreur")
        Exit
    EndIf

    Dim $ArrayFinal[$ArrayCaractere[0] + 1][2]

    For $i = 0 To $ArrayCaractere[0]
        $ArrayFinal[$i][0] = $ArrayCaractere[$i]
        $ArrayFinal[$i][1] = $ArrayCaracteresResultat[$i]
    Next

    Return $ArrayFinal
EndFunc   ;==>Encodage

Func RandomInString($String)
    If StringLen($String) = 0 Then Return -1
    Local $Array = StringSplit($String, "")
    Return $Array[Random(1, $Array[0])]
EndFunc   ;==>RandomInString