Encrypt Password

Public Function EncryptPassword(Number As Byte, DecryptedPassword As String)
Dim Password As String, Counter As Byte
Dim Temp As Integer
' The number passed may be 0 - 60 (seconds) mod by 10 to get range 0 - 10
Number = Number Mod 10
Counter = 1 ' See also : Option Base 1
Do Until Counter = Len(DecryptedPassword) + 1
Temp = Asc(Mid(DecryptedPassword, Counter, 1))
If Counter Mod 2 = 0 Then
Temp = Temp - Number
Else
Temp = Temp + Number
End If
Temp = Temp Xor (10 - Number) ' Swap
Password = Password & Chr$(Temp)
Counter = Counter + 1
Loop
EncryptPassword = Password
End Function