шифр Цезаря

[Defa4ka]

помогите пожалуйста с такой задачей..

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

[p51x]

раздел фриланса ниже

[Noor]

Шифр Цезаря реализует кодирование фразы путем «сдвига» всех букв фразы на определенное число k (в оригинальном шифре Цезаря число k равнялось 3). Алфавит считается циклическим (...эюяавб...эюяабв...).

//Шифрование Цезаря
function Cesar_Crypt(s:string):string;
const
  SizeA = 33; //Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; //Алфавит
var i, P :integer;
    temp:string;
begin
s:=AnsiLowerCase(s);
temp:='';
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)+3;
  if P>SizeA then P:=P-SizeA;
  Result:=Result+RusA[P];
  end;
end;

//Дешифрование Цезаря
function Cesar_DeCrypt(s:string):string;
const
  SizeA = 33; //Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; //Алфавит
var i, P :integer;
    temp:string;
begin
s:=AnsiLowerCase(s);
temp:='';
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)-3;
  if P<=0 then P:=P+SizeA;
  Result:=Result+RusA[P];
  end;
end;

Как применить, думаю, разберетесь !!

[Defa4ka]

шифрование вродь получается.. а расшифровать - нет((((( кто знает -помогите..(

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

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

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  For i:=0 to 65 do
  begin                        
    a[i]:= alfa[(i+1) mod 66];
  end;

   // шифр
    k := StrToInt(Edit1.Text);
    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+(k-1)) mod 66];
    Memo2.Lines.Text := s2;
    s2 := '';
  end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// дешифр
    k := StrToInt(Edit1.Text);
    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-(k-1)) mod 66];
    Memo2.Lines.Text := s2;
    s2 := '';
  end;

[Noor]

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

[BioWolf]

Noor можеш ешо раз кинуть ссылку???