Encrypt

Function Encipher(InText as String, Password as Integer) as String
Rnd -(Abs(Password))
For i = 1 To Len(InText)
Encipher = Encipher & Chr(Asc(Mid(InText, i, 1)) Xor Int(Rnd * 255))
Next
End Function