Criptografia e Function

[DackAle 0]

E ae galera duas duvidas =P

 

Primeira duvida... fi uma função monga de criptografia, só pra tentar, funfo... o problema na hora de descriptografar, ele troca o l por 1 e ao contrario, é como se ele reconhecesse o 1 e o l como sendo mesmo caractere e na hora de descriptografar, ele gera o valor errado... como posso resolver isto

 

<%copyright = "Sistema de Criptografia DackAle V. 1.0"senhad = "felipe"DIM senha(35), senha2(35)senha(0) = "0"senha(1) = "1"senha(2) = "2"senha(3) = "3"senha(4) = "4"senha(5) = "5"senha(6) = "6"senha(7) = "7"senha(8) = "8"senha(9) = "9"senha(10) = "a"senha(11) = "b"senha(12) = "c"senha(13) = "d"senha(14) = "e"senha(15) = "f"senha(16) = "g"senha(17) = "h"senha(18) = "i"senha(19) = "j"senha(20) = "l"senha(21) = "m"senha(22) = "n"senha(23) = "o"senha(24) = "p"senha(25) = "q"senha(26) = "r"senha(27) = "s"senha(28) = "t"senha(29) = "u"senha(30) = "v"senha(31) = "x"senha(32) = "y"senha(33) = "z"senha(34) = "w"senha(35) = "k"senha2(0) = "5" senha2(1) = "w" senha2(2) = "c" senha2(3) = "o" senha2(4) = "e" senha2(5) = "3" senha2(6) = "q" senha2(7) = "y" senha2(8) = "u" senha2(9) = "9" senha2(10) = "l" senha2(11) = "r" senha2(12) = "4" senha2(13) = "d" senha2(14) = "v" senha2(15) = "p" senha2(16) = "8" senha2(17) = "x" senha2(18) = "g" senha2(19) = "n" senha2(20) = "t" senha2(21) = "z" senha2(22) = "a" senha2(23) = "k" senha2(24) = "0" senha2(25) = "f" senha2(26) = "j" senha2(27) = "2" senha2(28) = "s" senha2(29) = "i" senha2(30) = "m" senha2(31) = "6" senha2(32) = "l" senha2(33) = "b" senha2(34) = "h" senha2(35) = "7"FOR I=1 TO len(senhad)texto = right(left(senhad,I),1)FOR X = 0 TO UBOUND(senha)if senha(x) = texto theny = xend if nexttexto2 = replace(texto,senha(y),senha2(y))final = final & texto2NEXT response.write finalFOR C=1 TO len(final)texto3 = right(left(final,C),1)FOR T = 0 to UBOUND(senha2)if senha2(T) = texto3 thenZ = Tend ifnexttexto4 = replace(texto3,senha2(Z),senha(Z))final2 = final2 & texto4NEXT response.write  & final2%>

Pra alguns é meio tosca essa função, mas depois vou melhorando, foi o que consegui pensar e fazer inicialmente

 

Segunda duvida... como transformar essa função acima numa function, tenho dificuldades em criar functions, se alguem spuber algum coisa que me ajude a entender functions ficaria feliz =D

 

Abraços e valeuuuuuu

[FabricioGomes 0]

coloque tudo em maiusculas, provavelmente o 1 esta como L...nao analisei o codigo...