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;
}
return(bcc);
}


thanks in advance

 

[David Browne]

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;
}
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