Текущий архив: 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.44 MB
Время: 0.008 c
