Criptografia de Senhas / Proteção SQL Injection

[DSerma 19]

Boa noite pessoas...

 

Vou postar aki uma função que criei a algum tempo já, mas uso sempre em meus sistemas de Login.

 

A função abaixo tem como propósito fazer um tipo de "criptografia" para não deixar as senhas tão vulneráveis no BD, e também não permite o uso de SQL Injection, tornando as aplicações mais seguras.

 

A função é simples, consiste apenas na substituição dos caracteres digitados no campo da senha por caracteres ASCII.

 

Bom, segue ela ai:

 

<%
Senha = UCASE(Request.Form("senha"))

for i = 1 to Len(Senha)

If Trim(Mid(Senha,i,1)) = "0" Then
Si = "Ø"
End if
If Trim(Mid(Senha,i,1)) = "1" Then
Si = "£"
End if
If Trim(Mid(Senha,i,1)) = "2" Then
Si = "ø"
End if
If Trim(Mid(Senha,i,1)) = "3" Then
Si = "Ü"
End if
If Trim(Mid(Senha,i,1)) = "4" Then
Si = "Ö"
End if
If Trim(Mid(Senha,i,1)) = "5" Then
Si = "ÿ"
End if
If Trim(Mid(Senha,i,1)) = "6" Then
Si = "ù"
End if
If Trim(Mid(Senha,i,1)) = "7" Then
Si = "û"
End if
If Trim(Mid(Senha,i,1)) = "8" Then
Si = "ò"
End if
If Trim(Mid(Senha,i,1)) = "9" Then
Si = "ö"
End if
If Trim(Mid(Senha,i,1)) = "A" Then
Si = "ô"
End if
If Trim(Mid(Senha,i,1)) = "B" Then
Si = "Æ"
End if
If Trim(Mid(Senha,i,1)) = "C" Then
Si = "æ"
End if
If Trim(Mid(Senha,i,1)) = "D" Then
Si = "É"
End if
If Trim(Mid(Senha,i,1)) = "E" Then
Si = "Å"
End if
If Trim(Mid(Senha,i,1)) = "F" Then
Si = "Ä"
End if
If Trim(Mid(Senha,i,1)) = "G" Then
Si = "ì"
End if
If Trim(Mid(Senha,i,1)) = "H" Then
Si = "î"
End if
If Trim(Mid(Senha,i,1)) = "I" Then
Si = "ï"
End if
If Trim(Mid(Senha,i,1)) = "J" Then
Si = "è"
End if
If Trim(Mid(Senha,i,1)) = "K" Then
Si = "ë"
End if
If Trim(Mid(Senha,i,1)) = "L" Then
Si = "ê"
End if
If Trim(Mid(Senha,i,1)) = "M" Then
Si = "ç"
End if
If Trim(Mid(Senha,i,1)) = "N" Then
Si = "à"
End if
If Trim(Mid(Senha,i,1)) = "O" Then
Si = "ä"
End if
If Trim(Mid(Senha,i,1)) = "P" Then
Si = "â"
End if
If Trim(Mid(Senha,i,1)) = "Q" Then
Si = "é"
End if
If Trim(Mid(Senha,i,1)) = "R" Then
Si = "ü"
End if
If Trim(Mid(Senha,i,1)) = "S" Then
Si = "Ç"
End if
If Trim(Mid(Senha,i,1)) = "T" Then
Si = "¦"
End if
If Trim(Mid(Senha,i,1)) = "U" Then
Si = "~"
End if
If Trim(Mid(Senha,i,1)) = "V" Then
Si = "}"
End if
If Trim(Mid(Senha,i,1)) = "X" Then
Si = "|"
End if
If Trim(Mid(Senha,i,1)) = "Y" Then
Si = "z"
End if
If Trim(Mid(Senha,i,1)) = "W" Then
Si = "o"
End if
If Trim(Mid(Senha,i,1)) = "Z" Then
Si = "{"
End if
Senha1 = Senha1 + Si
Next

response.write(Senha1)

%>

 

 

Bom.. como disse, é uma função simples, mas pode ajudar vocês, assim espero, hehehehe...

 

 

Bom, por hoje é só pessoal...

 

Espero que gostem.. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Abraços....

[Ted k' 126]

Aprovado amigo Dark (Faxineiro da Micro$oft) hehehe!!

 

Isso com certeza vai ajudar a galera que está começando um site mais elaborado e com segurança!!!