CryptDecrypt

Function EncryptPassword(Number As Byte, _
DecryptedPassword As String) As String
Dim Password As String, Counter As Byte
Dim Temp As Integer
Counter = 1
Do Until Counter = Len(DecryptedPassword) + 1
Temp = Asc(Mid(DecryptedPassword, Counter, 1))
'see if even

If Counter Mod 2 = 0 Then
Temp = Temp - Number
Else
Temp = Temp + Number
End If
Temp = Temp Xor (10 - Number)
Password = Password & Chr$(Temp)
Counter = Counter + 1
Loop
EncryptPassword = Password
End Function

'To decrypt the password, use the following code:

Function DecryptPassword(Number As Byte, _
EncryptedPassword As String) As String
Dim Password As String, Counter As Byte
Dim Temp As Integer
Counter = 1
Do Until Counter = Len(EncryptedPassword) + 1
Temp = Asc(Mid(EncryptedPassword, _
Counter, 1)) Xor (10 - Number)
'see if even

If Counter Mod 2 = 0 Then
Temp = Temp + Number
Else
Temp = Temp - Number
End If
Password = Password & Chr$(Temp)
Counter = Counter + 1
Loop
DecryptPassword = Password
End Function