Script conversion

[mansii]

Mates,
I got this simple VBScript encryption from somewhere else (I forgot that excelent site):

Function denc(txt)
	Dim str, i, strlen
	strlen = Len(txt)
	For i = 1 To strlen
		str = str + Chr(Asc(Mid(txt, i)) Xor 128)
	Next
	denc = str
End Function
{/code]

I've struggling to conver those to <CFSCRIPT> codes or change it to a <CFLOOP> tag with no luck.

Any help would be appreciated.
TIA
mansii

 

[FALCONSEYE]

what's this supposed to do?

http://www.jetansolutions.com

 

[r937]

it encrypts the data by applying an exclusive or to each byte of the text against 128 (which, if i'm not mistaken, is 0100 0000)

r937.com | rudy.ca

 

[FALCONSEYE]

why not use the Encrypt() function ?

http://www.jetansolutions.com

 

[r937]

oops, 128 is actually 1000 0000

r937.com | rudy.ca

 

[mansii]

Okay, here is the story:

We are dealing with a sort of data processing which will be using an offline desktop application written in VBNet. In order to monitor the whole process, we put the progress info in our company's web site.
I decided to let those offline processing administrators upload the progress info. Then that encryption crossed my mind just to make a simple security. I mean, at least those people cannot easily create the progress info file.

Now that I want to convert those VB codes to <CFSCRIPT>.

Or, perhaps there is another strategy?

TIA
mansii