Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement WinDev Re: WebDev : Alghorithme SHA-1 ;)

Re: WebDev : Alghorithme SHA-1 ;)

1 réponse
Avatar
Olivier Priser
Salut,

oui en fait mais pour avoir la chaine en hexa, c'est assez simple :
Tu prends le hash sous format binaire et tu le passes dans cette fonction :

PROCEDURE ChaineVersHexadecimal(LOCAL sAConvertir est une chaîne)
i est un entier
sChaineRetour est une chaîne

SI sAConvertir = "" ALORS RENVOYER ""
POUR i = 1 A Taille(sAConvertir)
sChaineRetour += NumériqueVersChaîne(Asc(sAConvertir[[i]]), "02X")
FIN

RENVOYER sChaineRetour
------------------------------

Et le tour est joué.

Au passage, un grand MERCI à Michel Fages pour ses contributions !!!

Bon dev,

Olivier

Frédéric a formulé :
> Il se trouve que MiF a formulé :
>> Bonjour,
>>
>> SHA1 + MD5 ici, utilisant la CryptoAPI de Microsoft :
>> http://www.hexo7.net/windev/demohash.wdw
>> http://www.hexo7.net/windev/hashfichier.wdw
>>
>> Autre solution utilisant une DLL externe :
>> http://www.hexo7.net/windev/wdcrypto.zip
>>
>>
>> Michel Fages
>
> Bonjour
>
> J'ai testé le composant pour wb mais la chaine retournée n'est pas en hexa, est ce normal ?
> merci pour vos explications svp
>
> Frédéric
>
> --
> Fred
>
>




*** Posted via a free Usenet account from http://www.teranews.com ***
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Frédéric MOLL
Olivier Priser a couché sur son écran :
Salut,

oui en fait mais pour avoir la chaine en hexa, c'est assez simple :
Tu prends le hash sous format binaire et tu le passes dans cette fonction :

PROCEDURE ChaineVersHexadecimal(LOCAL sAConvertir est une chaîne)
i est un entier
sChaineRetour est une chaîne

SI sAConvertir = "" ALORS RENVOYER ""
POUR i = 1 A Taille(sAConvertir)
sChaineRetour += NumériqueVersChaîne(Asc(sAConvertir[[i]]), "02X")
FIN

RENVOYER sChaineRetour
------------------------------

Et le tour est joué.

Au passage, un grand MERCI à Michel Fages pour ses contributions !!!

Bon dev,

Olivier

Frédéric a formulé :
Il se trouve que MiF a formulé :
Bonjour,

SHA1 + MD5 ici, utilisant la CryptoAPI de Microsoft :
http://www.hexo7.net/windev/demohash.wdw
http://www.hexo7.net/windev/hashfichier.wdw

Autre solution utilisant une DLL externe :
http://www.hexo7.net/windev/wdcrypto.zip


Michel Fages



Bonjour

J'ai testé le composant pour wb mais la chaine retournée n'est pas en hexa,
est ce normal ? merci pour vos explications svp

Frédéric

--
Fred








*** Posted via a free Usenet account from http://www.teranews.com ***



Merci pour cette réponse, Kalanda m'a adapté une procédure javascript
qui fonctionne impec mais je testerai ta soluce

Fred

--
Fred