Nada de disculpas Mickel. Cuando puse el mensaje, pense en hacerlo... no tengo ningun inconveniente en ponerlo, ahi va:
<%
'Array que contiene los caracteresa utilizar
letrasoriginal=array ("a","b","c","d","e","f","g","h","i","j","k","l"," m","n","o","p","q","r","s","t","u","v","w","x","y" ,"z","1","2","3","4","5","6","7","8","9","0","A"," B","C","D","E","F","G","H","I","J","K","L","M","N" ,"O","P","Q","R","S","T","U","V","W","X","Y","Z"," *",".","=","?","+",")","(","/","&","%","$"," ")
' Array que contiene los mismos caracteres que antes, pero organizados de una manera totalmente al azar
letrasencriptadas=array (".","=","?","+",")","q","E","K","p","&","r","s "," ","y","5","U","z","1","n","i","$","B","x","2","w", "3","v","4","I","R","W","/","D","F","j","c","*","Y","Q","S","0","A","a","(", "%","N","8","9","C","u","7","G","t","H","o","J","m ","L","e","O","d","M","l","P","k","T","h","V","g", "X","b","f","Z","6")
Nombre="Prueba Codificacion"
Nombreencriptado=""
lon=1
Do while lon < len(nombre)+1
for i=0 to ubound(letrasoriginal)
if mid(nombre,lon,1)=letrasoriginal(i) then
nombreencriptado=nombreencriptado&letrasencriptada s(i)
end if
next
lon=lon+1
LOOP
lon=1
Do while lon < len(nombreencriptado)+1
for i=0 to ubound(letrasencriptadas)
if mid(nombreencriptado,lon,1)=letrasencriptadas(i) then
nombreencriptado2=nombreencriptado2&letrasoriginal (i)
end if
next
lon=lon+1
LOOP
Response.Write "Cadena Original: " &nombre
Response.Write "<p> </p>"
Response.Write "Cadena Encriptada: " &nombreencriptado
Response.Write "<p> </p>"
Response.Write "Cadena DesEncriptada: " &nombreencriptado2
%>
Saludos