прикладная математика

if t>=256 then dec (T,256);
Kod[i]:=Chr(t);
end;
Shifr := Kod;
end;

var
a,k,s:string;

Begin

writeln('vvedite slovo');
readln(a);
writeln('vvedite klu4');
readln(k);
s:= Shifr(a,k);
writeln('s= ', Shifr (a, k));
readln;
End.

расшифровывающая
program Kriptograf;

function DeShifr (DeKod,K:string):string;
var i,t:integer;
begin
for i:=1 to length(DeKod) do begin
t:=(Ord(DeKod[i])-(ord(K[(pred(i) mod length(K))+1])-ord('0')));

if t<0 then Inc(t,256);
DeKod[i]:=Chr(t);
end;
DeShifr:=DeKod;
end;

var
a,k,s:string;

Begin
writeln('vvedite zashifrovannui text');
readln(a);
writeln('vvedite klu4');
readln(k);
s:= DeShifr(a ,k );

writeln('s= ', DeShifr (a,k));
readln;
End.

помог сайт http://volvo71.narod.ru/faq_folder/code_text.htm
=)

Добавлено (21.04.2009, 16:50)
---------------------------------------------
Но она все равно не так вычисляет (((
Все работает...
Но там где в ключе "1" она не должна менять букву,а она меняет(((
Т.е слово info при ключе 1254 =jpks,а должно быть Ipks.,.
Как это исправить???

вот мой также ящик..CLEARSKY1986 СОБАКА ЯНДЕКС ТОЧКА РУ кто здесь откликнится*

Добавлено (02.06.10, 11:41)
---------------------------------------------
И ЕСЛИ НЕ ТРУДНО расписать подробно что да куда и зачем

Добавлено (02.06.10, 11:57)
---------------------------------------------
и если можно чс подробным правильным описанием что брали и куда сували