[lmikle]

ну, i << 8 это i shl 8
При этом i видимо типа long (Integer) - 4 байта.
data - что-то типа array of byte
Не знаю, что такое decrypt_with_vector - с этим сам разбирайся, а остальное выглядит как-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11

var   I : Integer; begin   I := data[0];   I := (I shl 8) + data[1];   I := (I shl 8) + data[2];   I := (I shl 8) + data[3];   If (I = 0) Or (I+4 < dsize) then exit;     // что такое decrypt_with_vector???   I := decrypt_with_vector(...);