Convertir en hexa/déconvertir en ascii

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 727 fois - Téléchargée 59 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
23 janv. 2008 à 14:09
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
23 janv. 2008 à 13:16
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.