Convertisseur ASCII hexa sous VBS

Dim st ‘ As string
Dim st2 ‘ As string
Dim i ‘ As integer
st = “{vy`vy”

‘en decimal
st2 =””
For i = 1 to Len( St)
st2= st2 & Asc(Mid(st,i,1)) & ” “
Next
wscript.echo st & ” ==> ” & st2

‘en Hexadecimal
st2 =””
For i = 1 to Len( St)
st2= st2 & Hex(Asc(Mid(st,i,1))) & ” “
Next
wscript.echo st & ” ==> ” & st2

download

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

*

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.