From C to VB.net

[Fabio]

Hi all,

Someone can convert this code to VB.net
int HilBcc (int bcc, char *s, int len)
{
int i;

for (i = 0; i < len; i++)
{
bcc ^= s[i];
}
return(bcc);
}
thanks in advance

[David Browne]

"Fabio" <fa***@glb.com.br> wrote in message
news:uD****************@tk2msftngp13.phx.gbl...

Hi all,

Someone can convert this code to VB.net
int HilBcc (int bcc, char *s, int len)
{
int i;

for (i = 0; i < len; i++)
{
bcc ^= s[i];
}
return(bcc);
}

Function HilBcc(ByVal bcc As Integer, ByVal s() As Byte) As Integer
For Each b As Byte In s
bcc = bcc Xor b
Next
Return bcc
End Function

David