Vista - Ascii

Can someone please help me translate the following vb.net function to vbscript?




Code:Public Shared Function EncGuid(ByVal expression As String) As String

'Function receives GUID for calculate chksum.

Dim countEvens As Integer = 0

Dim countASCII As Integer = 0

Dim chkSum As Integer = 0



expression = expression.Replace("-", "")



For i As Integer = 0 To expression.Length - 1

countASCII = countASCII + Asc(expression.Chars(i))

If (Integer.Parse(expression.Chars(i),
System.Globalization.NumberStyles.HexNumber) Mod 2) = 0 Then

countEvens = countEvens + 1

End If

Next



countASCII = countASCII Mod 1000



chkSum = countASCII Xor countEvens



Return chkSum.ToString("000")

This is what I have so far but i can't seem to get it right:

Code:Function EncGuid(expression)
'Function receives GUID for calculate chksum.

countEvens = 0

countASCII = 0

chkSum = 0

'expression= expression.Replace("-", "")

expression=Replace(expression,"-","")

For i = 0 To Len(expression)- 1

Please note that the expression is a guid and the replace function will
return something like this:
1E6FCC590E094B14875C7AC1FD158E6D8651E6FCC590E094B14875C7AC1FD158E6D865.

I forgot to mention that the expression is a guid.

"collie" wrote: