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

Вниз

Memo   Найти похожие ветки 

← →
KEBZ   (2004-12-11 23:49) [0]

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

---

← →
BURN ©   (2004-12-12 01:40) [1]

На закладке 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;


---

← →
KEBZ   (2004-12-13 10:18) [2]

Сенкс

---

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

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

Наверх

Память: 0.44 MB
Время: 0.038 c