Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi]Написать программу Шифратор в форме

Автор: Froster 16.5.2008, 19:02

Расположим буквы  русского алфавита в таблице 6 на 6

   0  1  2    3   4  5
0     З   И   Ы   Р  С
1 А  Т   У   Й   Ь  Э
2     Б   В   Ф   К  Л
3 М  Ю  Я   Г   Х  Ц
4 Ч  Н   О       Д  Е
5 Ж Ш  Щ  П

Каждая буква кодируеться парой цифр: первая -номер строки;  Вторая -номер столбца.

1вводим в строку edit
2нажимаем кнопку
3 вывод ответа
сделать на Delphi

Автор: mmvds 16.5.2008, 20:35

Button1-кнопка
Edit1 - поле куда вводим
Edit2 - куда выводит результат

Код


procedure TForm1.Button1Click(Sender: TObject);
Var
  s,ch,ssh:string;
  i,j:integer;
const
  alf=' ЗИЫРСАТУЙЬЭ БВФКЛМЮЯГХЦЧНО ДЕЖШЩП';
begin
  s:=Edit1.Text;
  ssh:='';
  for i:=1 to length(s) do
    begin
    j:=pos(s[i],alf)-1;
    ch:=inttostr((j mod 6)+10*(j div 6));
    if length(ch)=1 then ch:='0'+ch;
    ssh:=ssh+ch;
    end;
  edit2.Text:=ssh;
end;

На строку 'АБВГД'
Вывел '1021223344'