с "С" на "VB"

[val]

Помогите кто нибудь перекинуть кусочек кода с С на vb6 или vb.net

Код: Выделить всё

void sumcrc(c) int c; {
      unsigned int i, k, flag;
      k = 1;
      fori(8) {
            crc ^= ((k & c) ? 1 : 0);
            flag = (crc & 1);
            crc >>= 1;
            if( flag ) crc ^= 0xA001;
            k <<= 1;
            }}


заранее спасибо

[Jenizix]

Это оригинал ф-ии, или ты уже тут поковырялся????
На первый взгляд код странный... даже эта строка:

void sumcrc(c) int c; {

[val]

Нее... Я ничего не трогал. Это оригинал код

[GSerg]

Бредовый код...

[tyomitch]

Нормальный код, на настоящем C им. тов. Кернигана и Ритчи... Это уже потом отступники придумали прототипы и проверку типа вызываемых функций.

Код: Выделить всё

Sub sumcrc(ByVal c As Integer)
Dim i As Integer, k As Integer, Flag As Integer
      k = 1
      For i = 0 To 7 'полагаю, что fori - это такой макрос
            crc = crc Xor IIf(k And c, 1 , 0)
            flag = crc And 1
            crc = crc \ 2
            If flag Then crc = crc Xor &HA001
            k = k * 2
      Next
End Sub


[val]

tyomitch

Большое спасибо.