Does any one know yow to use XOR Encription in VBscrtip with regular .asp?

I have searched the web but the samples are more complicated then I understand or need.

I need somting to just show how to encrypt and decript a given key.

For example:

<% Dim key
key = "TheTempKey"
encrypt  ( "this is a test message to incrypt", key)
%>

<%= show incripted message %>
<%= show decripted message %>

Just incase this does not auto email then please feel free to send info at troy at isointeractive dot com.

 
Thank you for any help as I am really not understanding this and need to use this to bette protect some of my current projects.