нужна перевести циклическую сумму с бэйсика на с++

[TiNTi]

встретилась необходимость в курсовой(шифрование бинарными операциями). Вот код:

Dim SourceCycle(0 To 3) As Byte
Call CycleSumma(SourceArray, SourceCycle)
   
Public Sub CycleSumma(Source() As Byte, Cycle() As Byte)
  ' вычисление циклической суммы
  Dim k&, nc%
  For k = LBound(Source) To UBound(Source)
    nc = k Mod 4
    Cycle(nc) = Cycle(nc) Xor Source(k)
  Next
End Sub

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[TiNTi]

что никто не знает?

[*PB*]

Это элементарная программа!
Чему вас только учили, раз даже такие простые вещи не знаете?