Partagez des fonctions et des UDF AutoIt.
-
silvere
- Niveau 8
- Messages : 532
- Enregistré le : sam. 24 sept. 2011 22:56
-
Status :
Hors ligne
#1
Message
par silvere »
Salut !
Bon je savait pas quoi programmer donc j'ai fait une petite fonction de création d'encodage aléatoire.
Fonction :
► Afficher le texteEncodage Aléatoire
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
Exemple :
Code : Tout sélectionner
Global $AlphabetMin = "abcdefghijklmopqrsuvwxyz"
Global $AlphabetMaj = "ABCDEFGHIJKLMOPQRSTUVWXYZ"
Global $CaractereSpeciaux = 'îïçöôòûùèéêÿ"' & "²!#$%&'()*+,-./:;<=>?@[\]^_`}{|~¡§£¤¢¥¦"
$Caracteres = $AlphabetMin & $AlphabetMaj & $CaractereSpeciaux
$ArrayFinal = Encodage($Caracteres)
_ArrayDisplay($ArrayFinal)
Quand le mensonge prend l'ascenseur, la vérité prend l'escalier. Elle met plus de temps, mais elle fini toujours par arriver.
-
Tlem
- Site Admin
- Messages : 11773
- Enregistré le : ven. 20 juil. 2007 21:00
- Localisation : Bordeaux
-
Status :
Hors ligne
#2
Message
par Tlem »
Message déplacé dans le bon forum.
De plus, il existe déjà ce genre de code dans un autre exemple de fonction !
-
silvere
- Niveau 8
- Messages : 532
- Enregistré le : sam. 24 sept. 2011 22:56
-
Status :
Hors ligne
#3
Message
par silvere »
Mes excuse, la tête en l'air ...
J'ai pas trouver le lien dont tu parle
Quand le mensonge prend l'ascenseur, la vérité prend l'escalier. Elle met plus de temps, mais elle fini toujours par arriver.