[..] Lire un string et changer chaque caracter par un autre

[moi]

mon titre explique un peu tout...
alors comment?

[TT22]

Tu écris ton String dans un fichier puis tu utilise _ReplaceStringInFile puis tu récupère le tout en lisant le fichier (et n'oubli pas de le supprime après )

[Yogui]

Bonjour,

Non ce n'est pas vraiment explicite.

Prendre un string : "TOTO"

Je compte les caractères (4)
et je reforme un string de 4 lettres avec un random : UCHZ

Et ça fonctionne ... mais faut il être capable de revenir à toto ?

Merci de préciser la demande

+ Attention à l'orthographe

[moi]

ce serait pour un nouveau prog pour protéger les données une sortent de code...

[mikell]

Ben utilise <Crypt.au3>

[PandiPanda]

ceci vous convient?

► Afficher le texte

Code : Tout sélectionner

Local $T0=TimerInit()
Local $text=_ReplaceCarac('Bonjour',True)
MsgBox(0,'',TimerDiff($T0)&" : "&BinaryToString($text)&" : "&BinaryToString(_ReplaceCarac('Bonjour',False)))
Func _ReplaceCarac($str,$replace=True)
    If $replace Then
        $str=StringToBinary($str)
        Local $nArray=StringRegExp($str,"(?i:.{2})",3)
        $str=''
        Local $nArrray2
        For $i=2 To (UBound($nArray)-1)
            $nArrray2=StringRegExp($nArray[$i],'.',3)
            $str=$str&$nArrray2[1]&$nArrray2[0]
        Next
        Return '0x'&$str
    Else
        $str=StringToBinary($str)
        Local $nArray=StringRegExp($str,"(?i:.{2})",3)
        $str=''
        Local $nArrray2
        For $i=1 To (UBound($nArray)-1)
            $nArrray2=StringRegExp($nArray[$i],'.',3)
            $str=$str&$nArrray2[0]&$nArrray2[1]
        Next
        Return '0x'&$str
    EndIf
EndFunc

True, si vous voulez que ca soit 'ilisible', et false pour revenir à la normal.

[zeshrek]

il y a aussi eu ceci il y a pas si longtemps