entender a Criptografia de Senha em VB.NET(Simples)
Olá galera!
bem, estou em um sistema de login aonde necessito por uma criptografia para senha
eu já fiz tudo rodar mas...
a parte da criptografia eu, simplesmente, não consigo entender o código. famoso copy / past e adequei ao meu sistema.
está funcionando e pra galera q precisa fazer o mesmo, 'enjoy'!
alguém pode só me explicar as palavras em negrito?
eis minha função de criptografia:
Public Function criptografar(ByVal Texto As String) As String
Dim i As Integer = 0
Dim strTempChar As String = " "
For i = 1 To Len(txtsenha.Text)
If [b]Asc(Mid$([/b]txtsenha.Text, i, 1)) < 128 Then
strTempChar = [b]Asc(Mid$([/b]txtsenha.Text, i, 1)) [b]+ 128[/b]
ElseIf [b]Asc(Mid$/b) > [b]128[/b] Then
strTempChar = A[b]sc(Mid$/b) [b]- 128[/b]
End If
[b]Mid$/b = [b]Chr(strTempChar)[/b]
Next i
criptografar = Texto
End Function
um grande abraço!
Discussão (7)
Carregando comentários...