Scramble_String

[venom]

Merci Dobro,

En effet cela peut s'avérer utile.






@++

[Demivec]

Plus :

Code : Tout sélectionner

Procedure.s scramble_string3(txt.s)
   ; by Demivec
   Protected long = Len(txt.s)
   Dim liste.c(long)
   PokeS(@liste(0), txt.s)
   RandomizeArray(liste.c(), 0, long - 1)
   ProcedureReturn PeekS(@liste.c())
EndProcedure