[Resolvido] sistema de senha que escreve e da a explicação literal do

[xanburzum 169]

sistema de senha que escreve e da a explicação literal do caracter, por exemplo:

 

se a string for 0, ela fica assim:

 

0 (número ZERO).

 

se a string for 0Ol1, fica assim:

 

0 (número ZERO) - O (letra O) - l (letra L) - 1 (número 1) -

 

Vamos à função:

 

 

 

<%

Function EscreveSenha(Palavra)
Dim I
Dim LCA(47)
Dim LSA(47)

LCA(0) = "0"
LCA(1) = "1"
LCA(2) = "2"
LCA(3) = "3"
LCA(4) = "4"
LCA(5) = "5"
LCA(6) = "6"
LCA(7) = "7"
LCA(8) = "8"
LCA(9) = "9"
LCA(10) = "a"
LCA(11) = "b"
LCA(12) = "c"
LCA(13) = "d"
LCA(14) = "e"
LCA(15) = "f"
LCA(16) = "g"
LCA(17) = "h"
LCA(18) = "i"
LCA(19) = "j"
LCA(20) = "k"
LCA(21) = "l"
LCA(22) = "m"
LCA(23) = "n"
LCA(24) = "o"
LCA(25) = "p"
LCA(26) = "q"
LCA(27) = "r"
LCA(28) = "s"
LCA(29) = "t"
LCA(30) = "u"
LCA(31) = "v"
LCA(32) = "x"
LCA(33) = "y"
LCA(34) = "z"
LCA(35) = "w"

LSA(0) = "NÚMERO 0 (ZERO) - "
LSA(1) = "NÚMERO 1 (HUM) - "
LSA(2) = "NÚMERO 2 (DOIS) - "
LSA(3) = "NÚMERO 3 (TRÊS) - "
LSA(4) = "NÚMERO 4 (QUATRO) - "
LSA(5) = "NÚMERO 5 (CINCO) - "
LSA(6) = "NÚMERO 6 (SEIS) - "
LSA(7) = "NÚMERO 7 (SETE) - "
LSA(8) = "NÚMERO 8 (OITO) - "
LSA(9) = "NÚMERO 9 (NOVE) - "
LSA(10) = "LETRA A - "
LSA(11) = "LETRA B - "
LSA(12) = "LETRA C - "
LSA(13) = "LETRA D - "
LSA(14) = "LETRA E - "
LSA(15) = "LETRA F - "
LSA(16) = "LETRA G - "
LSA(17) = "LETRA H - "
LSA(18) = "LETRA I - "
LSA(19) = "LETRA J - "
LSA(20) = "LETRA K - "
LSA(21) = "LETRA L - "
LSA(22) = "LETRA M - "
LSA(23) = "LETRA N - "
LSA(24) = "LETRA O - "
LSA(25) = "LETRA P - "
LSA(26) = "LETRA Q - "
LSA(27) = "LETRA R - "
LSA(28) = "LETRA S - "
LSA(29) = "LETRA T - "
LSA(30) = "LETRA U - "
LSA(31) = "LETRA V - "
LSA(32) = "LETRA X - "
LSA(33) = "LETRA Y - "
LSA(34) = "LETRA Z - "
LSA(35) = "LETRA W - "


For i= 0 to UBound(LCA)
Resultado = Replace(Palavra,LCA(i),LSA(i))
If Palavra <> Resultado Then
Palavra = ""
Palavra = Resultado
End IF
Next

EscreveSenha = Resultado

End Function
%>

 

 

Para ver o resultado, use:

 

 

<%
strFrase = senha 'Senha é a sua variavel que vai indicar qual é a senha
strPalavra = EscreveSenha(LCase(strFrase)) 'Função usada para "escrever literalmente" a senha
%>