| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Memo

KEBZ ©   (2004-12-11 23:49:00) 

Как создать зашифрованный текстовы файл. Чтоб грузить с отуда текст в Memo.

---

KEBZ   (2004-12-13 10:18:00) [1]

Сенкс

---

BURN   (2004-12-12 01:40:00) [2]

На закладке Indy Misc есть компоненты IdCoderUUE, IdCoderXXE, IdCoder64E ("64", "UU", "XX") с их помощью можно шифровать, а если их использовать вместе то можно очень хорошовсе запутать.

procedure TForm1.Button1Click(Sender: TObject);
var rs:string;
   ri:integer;
begin
memo2.Clear;
rs:= IdEncoderXXE1.EncodeString(Memo1.Text);
rs:=(fetch(rs,';'));
memo2.Text:=fetch(rs,';');
end;

procedure TForm1.Button2Click(Sender: TObject);
var rs:string;
   ri:integer;
begin
memo3.Clear;
rs:=IdDecoderXXE1.DecodeString(memo2.Text);
rs:=(fetch(rs,';'));
memo3.Text:=fetch(rs,';');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo2.Lines.SaveFromFile('C:\xXx.dat');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
memo2.Lines.LoadFromFile('C:\xXx.dat');
end;


---

Наверх