Главная страница
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.023 c
14-1102066344
Русел
2004-12-03 12:32
2004.12.26
Canvas


3-1101817437
leha
2004-11-30 15:23
2004.12.26
dBase + ADO


1-1102087230
Начинающий2
2004-12-03 18:20
2004.12.26
Вопрос по реестру.


1-1102677491
PalPalych
2004-12-10 14:18
2004.12.26
Регистрация пакетов "BPL".


3-1101264381
able
2004-11-24 05:46
2004.12.26
У каждой фирмы свой прайс