Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Текст и строки » Простейшее криптование текста

Простейшее криптование текста

Автор: Kindman

Каждый символ ANSI (ASCII) имеет свой порядковый номер, функция, возвращающая номер символа Ord(S), а функция возвращения символа по номеру - Chr(N), где S - символ, а N - порядковый номер. С помощью этих двух функций можно провести простейшую криптовку текста.

Выложите на форму две кнопки TButton и область просмотра TRichEdit.

Обработчик OnClick для кнопки, которая будет вызывать криптовку:

procedure TForm1.Button1Click(Sender: TObject);
var S: string;
    i: Cardinal;
begin
  if not (RichEdit1.Text = '') then
  begin
    S := RichEdit1.Text;
    for i:=1 to Length(S) do
      if (Ord(S[i]) <= 253) then S[i]:=Chr(Ord(S[i])+2);

    RichEdit1.Text:=S
  end
  else
    Application.MessageBox('Поле не заполнено', 'Пустое поле', mb_Ok);

end;

Обработчик OnClick для кнопки декриптовки:

procedure TForm1.Button2Click(Sender: TObject);
var S: string;
    i: Cardinal;
begin
  S := RichEdit1.Text;
  for i:=1 to Length(S) do
    if (Ord(S[i]) <= 253) then S[i] := Chr(Ord(S[i])-2);

  RichEdit1.Text := S;
end;

Массажные кресла

Иллюстрированный каталог с указанием цен. Продажа мебели оптом и в розницу.

sensa-massage.ru
линолеум форс купить

linoleum-moskva.ru

Просмотров: 1424

Обсудить на форуме