Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Компонент MainMenu
   Категория: Компоненты
  Пароль на ADO
   Категория: Базы данных
  Удалить или оставить симолы
   Категория: Текст и строки
  Упаковать TinyDB
   Категория: Базы данных
  Создание и удаление полей
   Категория: Базы данных
  Listbox - элементы вверх-вниз
   Категория: Компоненты
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Объект экрана — Screen
   Категория: Компоненты

Delphi - База Знаний: Шифрование текста по паролю

  << Вернуться к Содержанию  

var
  s
: string;
 
//Шифрование
procedure
Code(var text: string; password: string;
  decode
: boolean);
var
  i
, PasswordLength: integer;
  sign
: shortint;
begin
 
PasswordLength := length(password);
 
if PasswordLength = 0 then
   
Exit;
 
if decode then
    sign
:= -1
 
else
    sign
:= 1;
 
for i := 1 to Length(text) do
    text
[i] := chr(ord(text[i]) + sign *
      ord
(password[i mod PasswordLength + 1]));
end;
{Пример использования:}

procedure
TForm1.Button1Click(Sender: TObject);
begin
  s
:= Memo1.Text;
  code
(s, Edit1.Text, false);
 
Memo1.Text := s;
end;

procedure
TForm1.Button2Click(Sender: TObject);
begin
  code
(s, Edit1.Text, true);
 
Memo1.Text := s;
end;
  << Вернуться к Содержанию