Convertisseur décimal - hexadécimal

Télécharger le projet
Commenter

Description

Permet de convertir un nombre en bas 10 ver un nombre en base 16 ou l'inverse.

Permet de convertir le code ASCII d'un caratère en base 16 ou l'inverse.

Source / Exemple : 


'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

Conclusion :


Pour un example concret voir le zip
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (coolcrash)