Untitled

     <cffunction function encrypt>	 	<cfargument data>	 	<cfargument key>	 	<cfargument size>              <cfset var e = "">              <cfset var i = 0>              <cfset var k = 0>              <cfset var kp = 0>			  			  <cfset k = len(key)-1>			  <cfloop index="i" from="0" to="size-1" step="1">			  	<cfset e = chr(BitNot(asc(data[i])^asc(key[kp])))>				<cfset kp = kp + 1>				<cfif kp GT k><cfset kp = 0></cfif>			  </cfloop>              <cfreturn e>      </cffunction>