explicação literal do caracter

[Reginaldo ASP]

Quem tem algum sistema de senhas aqui (ou venha a ter) sabe que é um grande problema a confusão que os usuários fazem com a letra O e o numeral 0 ou entre a letra l e o numeral 1 entre outras. As vezes não é necessário trocar a fonte, pois o usuário insiste em não entender nada....

Essa função "devolve" 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

%>

Bom, é isso aí, espero que seja útil pra alguém