<%sDBExtraPath = "../"%> <% Function StringEncrypt(strSecret, iAccion) Dim i Dim iLongitudCadena Dim strAuxiliar Dim sin 'numeros aleatorios Dim sinInicializaRND Dim iSigno sinInicializaRND = Rnd(-0.345) If iAccion = 0 Then 'Encriptar iSigno = -1 Else 'Desencriptat iSigno = 1 End If For i = 1 To Len(Trim(strSecret)) strAuxiliar = strAuxiliar & Chr(Asc(Mid(strSecret, i, 1)) + Int((3 * Rnd) + 1) * iSigno) iSigno = iSigno * -1 Next StringEncrypt = strAuxiliar End Function Response.Write StringEncrypt("admin", 1) & "
" Response.Write StringEncrypt("pass", 1) %>