Convertir en hexa/déconvertir en ascii

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 196 fois - Téléchargée 57 fois

Contenu du snippet

Sa sert a convertir une chaine en hexa/et le contraire

Source / Exemple :


'Convertir
Public Function HexCrypt(Text As String) As String
Dim a As Integer
Dim TotalChaine As String
TotalChaine = ""
For a = 1 To Len(Text)
TotalChaine = TotalChaine & Hex(Asc(Mid(Text, a, 1)))
Next
HexCrypt = TotalChaine
End Function
'Décripter
Public Function HexDeCrypt(Text As String) As String
Dim a As Integer
Dim TotalChaine As String
TotalChaine = ""
For a = 1 To Len(Text) Step 2
TotalChaine = TotalChaine & Chr(Val("&H" & Mid(Text, a, 2)))
Next
HexDeCrypt = TotalChaine
End Function

Conclusion :


En passant j'ai ouvert un channal #VisualBasic_Français sur ICQnet pour MIRC si sa vous interresse irc.icq.com port 6667

A voir également

Ajouter un commentaire

Commentaires

_samy_
Messages postés
14
Date d'inscription
samedi 15 octobre 2005
Statut
Membre
Dernière intervention
23 janvier 2008
-
Merci, c'est parfait !
Je voulais lire un fichier REG (export de la base de registre), mais certaines valeurs, visibles en string dans regedit, étaient en hexa dans le fichier REG.
J'ai du l'adapter un peu car des doubles "0" étaient insérés dans la chaine hexa, ce qui donnait des caractères bizarres dans ma chaine de caractère finale.
xerico
Messages postés
29
Date d'inscription
mercredi 10 décembre 2003
Statut
Membre
Dernière intervention
17 janvier 2012
2 -
Merci pour le code ;)
C bien, t'as utiliser mon astuce pour convertir la valeur hexa en décimal ...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.