Форум: "Основная";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];

Вниз

Как можно шифровать текст в Memo ListBox RichEdit перед сохранением на диск. А при чтении расшифровывать. Чтоб никто не читал его. Желательно чтобы было быстро и просто.   Найти похожие ветки 

← →
дикое Кенгуру   (2002-02-28 04:52) [13]

McSimm
Точно ! Очень полезная вещь оказалась.

включаю в проэкт файл StrUtils.pas
записываю StrUtils в uses.
и

procedure TForm1.Button1Click(Sender: TObject);
begin //Шифрую словом "KeyString"
Memo1.Text := XorEncode ( "KeyString" , Memo1.Text );
end;

procedure TForm1.Button2Click(Sender: TObject);
begin //Расшифрую словом "KeyString"
Memo1.Text := XorDecode ( "KeyString" , Memo1.Text );
end;

-------------
Оказалось что в StrUtils ещё куча полезных функций. Какие открытия я для себя делаю !

---

Страницы: 1 2 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c