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