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:

> 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

>