Шифр цезаря (не работает)

aydar · 21 Jun 2010

задача такая сделать шифр цезаря, сдвиг 10, алфавит лат строчные буквы, язык паскаль (тр7) вот накидал но комп выдает ошибку

Function Cesar_Crypt (s:string):string;
Const
SizeA = 26;
EngA = 'ABCDEFGHIKLMNOPQRSTVXYZ';
Var i, P :integer;
Temp,Result:string;
Begin
Temp:='';
For i := 1 to length (s) do if pos (s, EngA)<>0 then temp:=temp+s;
S:=temp;
For i:=1 to length (s) do
Begin
P:=pos (UpCase (s), EngA)+10;
If P>SizeA then P:=P-SizeA;
Result:=Result+EngA[P];
End;
End;

function Cesar_DeCrypt(s:string):string;
const
SizeA = 33;
EngA =
var i, P :integer;
temp:string;
begin
s:=AnsiLowerCase(s);
temp:='';

for i := 1 to length(s) do if pos(s,EngA)<>0 then temp:=temp+s;
s:=temp;
for i:=1 to length(s) do
begin
P:=pos(s,EngA)-10;
if P<=0 then P:=P+SizeA;
Result:=Result+EngA[P];
end;
end;

begin

Cesar_Crypt:=result;;
end.

Click to expand...

desTiny · 21 Jun 2010

проверь вначале тут:
EngA = 'ABCDEFGHIKLMNOPQRSTVXYZ';

cel1697i845 · 21 Jun 2010

вроде так должно быть:
EngA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

aydar · 21 Jun 2010

вот тут набросал исправлений, у кого нибудь комплируеться?

function Cesar_Crypt(s:string):string;
const
SizeA = 26;
EngA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var i, P :integer;
temp,result:string;
begin
Result := '';
s:=LowerCase(s);
temp:='';

for i := 1 to length(s) do if pos(s,EngA)<>0 then temp:=temp+s;
s:=temp;
for i:=1 to length(s) do
begin
P:=pos(s,EngA)+3;
if P>SizeA then P:=P-SizeA;
Result:=Result+EngA[P];
end;
end;

function Cesar_DeCrypt(s:string):string;
const
SizeA = 26;
EngA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var i, P :integer;
temp.result:string;
begin
Result := '';
s:=LowerCase(s);
temp:='';

for i := 1 to length(s) do if pos(s,RusA)<>0 then temp:=temp+s;
s:=temp;
for i:=1 to length(s) do
begin
P:=pos(s,RusA)-3;
if P<=0 then P:=P+SizeA;
Result:=Result+RusA[P];
end;
end;

var
aStr : String;
begin
aStr := Cesar_Crypt ('abc' );
writeln ( aStr );
writeln (Cesar_DeCrypt(aStr));
end.

Click to expand...

slesh · 21 Jun 2010

Один хер пахать не будет.
Прежде чем чтото писать прочти доку. В первую очередь про функцию LowerCase

Шифр цезаря (не работает)

aydar Member

desTiny Elder - Старейшина

cel1697i845 Elder - Старейшина

aydar Member

slesh Elder - Старейшина

Useful Searches

Шифр цезаря (не работает)

aydar Member

desTiny Elder - Старейшина

cel1697i845 Elder - Старейшина

aydar Member

slesh Elder - Старейшина