Convertir en hexa/déconvertir en ascii

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 167 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

Commenter la réponse de Warning

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.