Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c