[aasaiyo]

Пишу шифровальщик по цезарю. В общем, почти все работает, но дешифрует какими-то неверными ниоткуда взявшимися символами О_о
исходный: абв
обработанный: я0Ґ
исходный: АБВГДЕ
обработанный: Эя
остальные комбинации переводит как надо, проблема в начале алфавита.

Код:

//Алфавит
const letter:array[0..65] of char = ('А','а','Б','б','В','в','Г','г','Д','д','Е','е','Ё','ё','Ж','ж','З','з','И','и','Й','й','К','к','Л','л','М','м','Н','н','О','о','П','п','Р','р','С','с','Т','т','У','у','Ф','ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ','Ъ','ъ','Ы','ы','Ь','ь','Э','э','Ю','ю','Я','я');


var
  Form1: TForm1;
     a:array[0..65] of char;
  s, s2:string;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
begin
  For i:=0 to 65 do
  begin                        
    a[i]:= letter[(i+1) mod 66];
  end;
// зашифровать
    s := Memo1.Lines.Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i] = a[j] then s2 := s2+a[(j+6) mod 66];
    Memo2.Lines.Text := s2;
    s2 := '';
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j: integer;
begin
  For i:=0 to 65 do
  begin                        
    a[i]:= letter[(i+1) mod 66];
  end;
// дешифровать
    s := Memo1.Lines.Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i] = a[j] then s2 := s2+a[(j-6) mod 66];
    Memo2.Lines.Text := s2;
    s2 := '';
end;

[aasaiyo]

...доп вопрос решен...остался в топике...откуда он вообще эти символы берет?? 0Ґ их ведь нет в заданном алфавите...

[Konrad]

Есть несколько способов реализации, но для учебных целей пойдет и такая:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
p,c:string;
i,n,x:integer;
begin
p:=edit1.text;   //Откр.текст
n:=length(p); //его длина
c:=''; //начальное значение Шфр-текста
for i:=1 to n do
begin
  x:=ord(p[i]);
  if x<253 then
    c:=c+char(x+3)  //собственно сама реализация
  else c:=c+char(x-61);
end;
edit2.Text:=c;

end; 


и обратое преобразование:

PHP код:

begin
  x:=ord(p[i]);
  if x>195 then
    c:=c+char(x-3)  //собственно сама реализация
  else c:=c+char(x+61);
end;