CONVERTISSEUR DÉCIMAL - HEXADÉCIMAL

'Convertir une valeur DÉCIMAL en une valeur HEXA
Public Function InvDeci(ValDeci As String) As String
InvDeci = Hex(ValDeci)
End Function

'Convertir une valeur Hexa en une Valeur DÉCIMAL
Public Function InvHex(ValHex As String) As String
  InvHex = Val("&H" & ValHex & "&")
End Function

'Convertir une valeur Hexa en une Valeur ASCII
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

'Converti une valeur ASCII en une valeur HEXA
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

 

Télécharger le zip