salve
ho trovato questo script
Che converte in hex string, ma non ho trovato il contrario, cioè decriptare l'hex, potete aiutarmi?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
Grazie

Rispondi quotando
