PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2025 → Equivalence PHP
Equivalence PHP
Débuté par Stéphane Bouillennec, 14 avr. 2025 11:31 - 2 réponses
#1
Posté le 14 avril 2025 - 11:31
Bonjour à toutes et à tous,

quelqu'un aurait-il déjà été confronté à une problématique d'équivalence PHP en windev.

Je m'explique j'ai du code PHP qui fait

machaine = bin2hex(random_bytes(32))

je n'arrive pas à faire une équivalent en Windev.

Quelqu'un aurait-il une idée ?

Merci
Signaler
0
0
#2
Posté le 14 avril 2025 - 13:47
Stéphane Bouillennec a écrit :
Bonjour à toutes et à tous,

quelqu'un aurait-il déjà été confronté à une problématique d'équivalence PHP en windev.

Je m'explique j'ai du code PHP qui fait

machaine = bin2hex(random_bytes(32))

je n'arrive pas à faire une équivalent en Windev.

Quelqu'un aurait-il une idée ?

Merci


bonjour
pour random_bytes(int $length): string : Génère une chaîne contenant des octets aléatoires uniformément sélectionnés avec la longueur demandée.
vous devez utiliser une boucle et les fonctions :
InitHasard()
Hasard(0x00,0xff) // renvoie un numérique de h00 à hff

pour bin2hex : bin2hex(string $string): string : Retourne la chaîne string dont tous les caractères sont représentés par leur équivalent hexadécimal.
vous devez utiliser la fonction : NumériqueVersChaîne

InitHasard()
MonOctet est un entier sans signe sur 1 = Hasard(0x00,0xff)
Trace(NumériqueVersChaîne(MonOctet,"x"))
Signaler
0
0
#3
Posté le 14 avril 2025 - 13:56
Stéphane Bouillennec a écrit :
Bonjour à toutes et à tous,

quelqu'un aurait-il déjà été confronté à une problématique d'équivalence PHP en windev.

Je m'explique j'ai du code PHP qui fait

machaine = bin2hex(random_bytes(32))

je n'arrive pas à faire une équivalent en Windev.

Quelqu'un aurait-il une idée ?

Merci


cela devrait donner :
MyString est une chaîne =""
nbChar est un entier
MonOctet est un entier sans signe sur 1
InitHasard()
FOR nbChar=1 _TO_ 32
MonOctet = Hasard(0x00,0xff)
MyString += NumériqueVersChaîne(MonOctet,"x")
END
Trace(MyString)
Signaler
0
0
→ Revenir à WINDEV 2025