Apanhando Da Função...

[DackAle]

E ae galera a um tempinho postei essa função por causa de um erro...

Hoje ela funciona perfeitamente, mas agora eu transformei ela em função mesmo, ou seja, quando for inserir a senha no banco de dados é só chama-la, só que acho que na hora de transforma-la e chama-la tem algo errado, já que insere a senha vazia no banco aa funçãozinha é essa ahahah

function criptografia(palavra)
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(palavra)
texto = right(left(palavra,I),1)
FOR X = 0 TO UBOUND(senha)
if senha(x) = texto then
y = x
end if 
next
texto2 = replace(texto,senha(y),senha2(y))
final = final & texto2
NEXT 

response.write final

end function
%>

tipo o nome é criptografia... a palavra, seria o parametro, tipo eu fiz assim para mostra-la

Conexao.Execute("INSERT INTO administradores (usuario,nome,sobrenome,email,senha,data_criacao) VALUES ('" & variasp_usuario & "','" & variasp_nome & "','" & variasp_sobrenome & "','" & variasp_email & "','" & criptografia(variasp_senha) & "',#" & now & "#)")

mas como eu disse ta indo em branco pro banco de dados, alguém sabe o que eu to ffazendo de errado para mostra-la ? é com o response.write no fim fa dunção que vou mostrar a senha criptografada dentro da função mesmo ?

Abraços e valeu galera =)

[felipefrancesco]

Ao invés de dar o response.write no final da função, atribui como valor da função, veja:

function criptografia(palavra)
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(palavra)
texto = right(left(palavra,I),1)
FOR X = 0 TO UBOUND(senha)
if senha(x) = texto then
y = x
end if 
next
texto2 = replace(texto,senha(y),senha2(y))
final = final & texto2
NEXT 

criptografia =  final

end function

[dark0]

isso ae felipe.

E depois, pra mostrar, é só mandar mostrar assim:

Response.write criptografia("palavra_a_sercriptografada")

Assim, ele vai mostrar o resultado!

Morou?

Tem mais alguma duvida?

[DackAle]

~bom deu certo era isso mesmo...

agora outra duvida, substitui os

senha(10) = "a"

e assim por diante por

senha(10) = chr(65) por exemplo, to fazendo por chr, por dava confusao entre L e 1 e 0 e o na hora de criptografar...

ele criptografa numeros normalmente, mas as letras continuam normal exemplo escrevi a senha

abc123

e ele converteu para abcWCO os numeros ele fez normal e as letras não, alguém sabe porque ?

function criptografia(palavra)
dim senha(35), senha2(35)
senha(0) = Chr(48)
senha(1) = Chr(49)
senha(2) = Chr(50)
senha(3) = Chr(51)
senha(4) = Chr(52)
senha(5) = Chr(53)
senha(6) = Chr(54)
senha(7) = Chr(55)
senha(8) = Chr(56)
senha(9) = Chr(57)
senha(10) = Chr(65)
senha(11) = Chr(66)
senha(12) = Chr(67)
senha(13) = Chr(68)
senha(14) = Chr(69)
senha(15) = Chr(70)
senha(16) = Chr(71)
senha(17) = Chr(72)
senha(18) = Chr(73)
senha(19) = Chr(74)
senha(20) = Chr(75)
senha(21) = Chr(76)
senha(22) = Chr(77)
senha(23) = Chr(78)
senha(24) = Chr(79)
senha(25) = Chr(80)
senha(26) = Chr(81)
senha(27) = Chr(82)
senha(28) = Chr(83)
senha(29) = Chr(84)
senha(30) = Chr(85)
senha(31) = Chr(86)
senha(32) = Chr(87)
senha(33) = Chr(88)
senha(34) = Chr(89)
senha(35) = Chr(90)

senha2(0) = Chr(53)
senha2(1) = Chr(87)
senha2(2) = Chr(67)
senha2(3) = Chr(79)
senha2(4) = Chr(69)
senha2(5) = Chr(51)
senha2(6) = Chr(81)
senha2(7) = Chr(89)
senha2(8) = Chr(85)
senha2(9) = Chr(57)
senha2(10)= Chr(76)
senha2(11) = Chr(82)
senha2(12) = Chr(52)
senha2(13) = Chr(68)
senha2(14) = Chr(86)
senha2(15) = Chr(80)
senha2(16) = Chr(56)
senha2(17) = Chr(88)
senha2(18) = Chr(71)
senha2(19) = Chr(78)
senha2(20) = Chr(84)
senha2(21) = Chr(90)
senha2(22) = Chr(65)
senha2(23) = Chr(75)
senha2(24) = Chr(48)
senha2(25) = Chr(70)
senha2(26) = Chr(74)
senha2(27) = Chr(50)
senha2(28) = Chr(83)
senha2(29) = Chr(73) 
senha2(30) = Chr(77)
senha2(31) = Chr(54)
senha2(32) = Chr(49)
senha2(33) = Chr(66)
senha2(34) = Chr(72)
senha2(35) = Chr(55)

FOR I=1 TO len(palavra)
texto = right(left(palavra,I),1)
FOR X = 0 TO UBOUND(senha)
if senha(x) = texto then
y = x
end if 
next
texto2 = replace(texto,senha(y),senha2(y))
final = final & texto2
NEXT 

criptografia = final
end function
%>

abraços e valeuuuuu