[Stamerlan]

Сообщение от PhoeniX

Значения a, b, c, d, sum, k[] на этом этапе совпадают с "эталонными" (из оригинального кода)?

Да, если расшифровывать одну и ту же строку одинаковым ключем, то с принимает неверное значение.

Код:

function rol(base:LongWord; shift:LongWord) :LongWord;

Я попробовал заменить, но с так и осталось с прежним значением.

UPD: не хватало скобочек в выражениях при с и а. Надо было написать с := c - (... + ... + ...), а у меня было c := c - ... + ... + ...
Всем спасибо!