salve
ho trovato questo script
codice:
Dim asc, enc, bytes, instr, outstr, pos
  
instr = request.querystring("name")

Set asc = CreateObject("System.Text.UTF8Encoding")
Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")

bytes = asc.GetBytes_4(instr)
bytes = enc.ComputeHash_2((bytes))

outstr = ""

'Convert the Byte Array to a Hex string
For pos = 1 To LenB(bytes)
 outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2))
Next

Response.Write outstr
Che converte in hex string, ma non ho trovato il contrario, cioè decriptare l'hex, potete aiutarmi?
Grazie