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