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!