Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.06 c
14-1102425219
Dmitriy O.
2004-12-07 16:13
2004.12.26
У кого диска разбит на несколько ?


14-1102197978
olookin
2004-12-05 01:06
2004.12.26
Авангард - Ак Барс


1-1102777296
VasRog
2004-12-11 18:01
2004.12.26
Ссылки


11-1084540772
Yustas
2004-05-14 17:19
2004.12.26
Много памяти


14-1102437035
Kolan
2004-12-07 19:30
2004.12.26
Помогите найти где прочесть о map