encryption routine

Hi everyone,

I'm trying to give some sense to this piece of code, which is used as a module:

Option Explicit

Public Function Crypt$(sMsg$, sPhrase$, Optional bEnOrDec As Boolean = False)
Dim sEncryptionPhrase$
On Error Resume Next

sEncryptionPhrase = "**** YOU SPYWARENUKER AND BPS SPYWARE REMOVER!"

Dim i%, j%, sChar$, iChar%, sOut$
j = 1
For i = 1 To Len(sMsg)
sChar = Mid(sMsg, i, 1)
If bEnOrDec Then
'encrypt
sChar = Chr(Asc(sChar) + Asc(Mid(sPhrase, j, 1)))
If Asc(sChar) > 126 Then
'make sure encrypted char is within
'normal range (space to ~)
sChar = Chr(Asc(sChar) - 94)
End If
Else
'decrypt
iChar = Asc(sChar) - Asc(Mid(sPhrase, j, 1))
If iChar < 32 Then
'make sure decrypted char is within
'normal range (space to ~)
sChar = Chr(iChar + 94)
Else
'old encrypter doesn't encrypt chars above 126 :(
If Asc(sChar) < 192 Then
sChar = Chr(iChar)
End If
End If
End If
sOut = sOut & sChar
j = j + 1
If j > Len(sPhrase) Then j = 1
Next i
Crypt = sOut
End Function

Then i would have this in main frm
'set encryption string - THOU SHALT NOT STEAL
sProgramVersion = Chr(&H54) & Chr(&H48) & Chr(&H4F) & _
Chr(&H55) & Chr(&H20) & Chr(&H53) & Chr(&H48) & _
Chr(&H41) & Chr(&H4C) & Chr(&H54) & Chr(&H20) & _
Chr(&H4E) & Chr(&H4F) & Chr(&H54) & Chr(&H20) & _
Chr(&H53) & Chr(&H54) & Chr(&H45) & Chr(&H41) & _
Chr(&H4C)