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

Вниз

Кодирование   Найти похожие ветки 

 
DELPHer   (2003-02-21 14:52) [0]

Как можно "закодировать" текст в Memo с паролем в Tedit(Декодировать)?


 
pasha676   (2003-02-21 15:07) [1]

В TMemo ты имеешь доступ к любой строке и любому символу. В чем проблемма кодировки-раскодировки?


 
ZmeiGorin ©   (2003-02-21 15:38) [2]

/В чем проблемма кодировки-раскодировки?/
В том, что самому лень что-то придумывать, читать книжки и STFW... ;-)
Если ты кодируешь для себя, то можно сбелать побайтный xor с ключом, если что-то посерьёзнее, то тебе на www.torry.net :-)

Следующий вопрос: как сделать xor? Читать хелп. :-)

function crypt(data,key:string):string;
var
i:integer;
begin
while data<>"" do begin
inc(i);
if i>length(key) then i=0;
result:=result+(data[1] xor key[i]);
delete(data,1,1);
end;
end;
....
//шифровка-расшифровка
memo1.text=crypt(memo1.text,edit1.text)

У этого способа есть рад недостатков:
1. на выходе не обязательно получится читаемая строка(т.е. могут быть символы #0 и т п
2. я его не проверял
3. его стойкость :-)

А вообще-чтеая книжки. В частности, учебники по программированию. Каждый автор обязательно запихнёт туда хотя бы один пример шифровки-дешифровки :-)


 
mrcat ©   (2003-02-21 16:42) [3]

>>Как можно "закодировать"

Кашпировский "кодирует"



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

Текущий архив: 2003.03.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-5460
Zelius
2003-02-13 11:43
2003.03.03
Опять про


14-5715
Сергей
2003-02-13 02:02
2003.03.03
Своеобразная


8-5665
FreeStyle
2002-06-20 10:58
2003.03.03
Как юзать меню в DYNAMIC SKIN FORM


1-5527
Checist [root]
2003-02-21 11:02
2003.03.03
Отображение текста в Memo


1-5512
kudatsky
2003-02-19 11:25
2003.03.03
TQuickReport