шифровка и дешифровка текста паролем

[s2dentishe]

добрый вечер! подскажите пожалуйста! есть такая функция
function kodirovka (text, parol_v: String; napr_kod: Boolean): String;
var
i, schet,vrem_p: integer;
d: shortInt;
begin
if napr_kod then d:=-1 else d:=1;
schet:=1;
vrem_p:=1;
for i:=1 to Length (text) do begin
if schet>length(parol_v) then schet:=1;
vrem_p:=(ord (text[i]) +d*ord (parol_v[schet]));
if vrem_p>255 then text[i]:= chr(vrem_p-255)
else if vrem_p<1 then text[i]:= chr(255+vrem_p)
else text[i]:= chr(vrem_p);
schet:=schet+1;
end;
result:=text;
end;

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

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

[Stepler]

Запускай в режиме отладки и пошагово смотри на каком шаге записивается некорректный результат, после чего делай выводы и исправляй код...

[Анатоль]

vrem_p:=(ord (text[i]) +d*ord (parol_v[schet]));
не совсем понятна эта строчка. Откуда умножение на d?
И кстати, тебе везде надо увеличивать счётчик, а ты увеличиваешь только если 1<vrem_p <255. Исправь должно зароботать.

[s2dentishe]

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