хмм могу предположить что ключ неправильно задается, программно правильно, но логически нет.
и еще кажется что в
Цитата:
For j:=1 to n do
begin
akey:=Byte(key[j]);
If akey = 0 then Break;
If i + akey <= kolsimvolov then
textkey:=textkey + text[i + akey];
end;
i:=i + n;
|
где-то тут ошибка, времени разбираться нету ,взглянул чисто символически.