Para que sirve el STEP?

[mariano_donati]

Hola, estaba viendo mas o menos como funcionaba esta funcion de encriptacion que encontre en el foro, y no puedo encontrar cual es funcionamiento de STEP. Es decir si yo cambio el valor de esta, el resultado también cambia, por eso quiero saber como funciona este STEP. Muchas gracias. SAludos.

Public Function EncodeStr(byVal strIn)
Dim c1, c2, c3, w1, w2, w3, w4, n, strOut
For n = 1 To Len(strIn) Step 3
c1 = Asc(Mid(strIn, n, 1))
c2 = Asc(Mid(strIn, n + 1, 1) + Chr(0))
c3 = Asc(Mid(strIn, n + 2, 1) + Chr(0))
w1 = Int(c1 / 4) : w2 = (c1 And 3) * 16 + Int(c2 / 16)
If Len(strIn) >= n + 1 Then
w3 = (c2 And 15) * 4 + Int(c3 / 64)
Else
w3 = -1
End If
If Len(strIn) >= n + 2 Then
w4 = c3 And 63
Else
w4 = -1
End If

strOut = strOut + mimeencode(w1) + mimeencode(w2) + _
mimeencode(w3) + mimeencode(w4)
Next
EncodeStr = strOut
End Function

[mariano_donati]

Perdon por este post... me olvidaba de Google y lo que todos recomendaban. Ya encontre para que sirve. Si alguien puede borrarlo sería mucho mejor. SAludos.

[sjam7]

y para que sirve?

[trasgukabi]

para que en vez de ir de uno en uno, vaya de 3 en tres. un valor negativo hace cuenta regresiva

[mariano_donati]

Claro, disculpen que no puse para que servia, es justamente lo que dice Trasgukabi.
Y alguien sabe para que sirve utilizar el operador AND de esta forma:

Public Function EncodeStr(byVal strIn)
Dim c1, c2, c3, w1, w2, w3, w4, n, strOut
For n = 1 To Len(strIn) Step 3
c1 = Asc(Mid(strIn, n, 1))
c2 = Asc(Mid(strIn, n + 1, 1) + Chr(0))
c3 = Asc(Mid(strIn, n + 2, 1) + Chr(0))
w1 = Int(c1 / 4) : w2 = (c1 And 3) * 16 + Int(c2 / 16)
If Len(strIn) >= n + 1 Then
w3 = (c2 And 15) * 4 + Int(c3 / 64)
Else
w3 = -1
End If
If Len(strIn) >= n + 2 Then
w4 = c3 And 63
Else
w4 = -1
End If

Y tambien hay veces que utiliza el OR y el XOR. Busque en google, pero me sale cualquier resultado, y en los tutoriales que comunmente se encuentran en la red no mencionan este uso de AND.
Saludos.

[Myakire]

Acá te explican: http://visualbasic.about.com/od/usin...and_or_not.htm

Saludos

[mariano_donati]

Muy bueno Myakire, gracias a ese articulo pude entender finalmente como funciona. Realmente muy interesante. Saludos y gracias.