Кодирование

← →
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. его стойкость :-)

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

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

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

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