|
|
| Тема |
 Ще ти свърши, ама няма да ти се чете цялото [re: Nachko] |
|
| Автор | ShaDoW (Нерегистриран) | |
| Публикувано | 17.08.04 01:32 |
|
|
|
Естествено че има :) Ето ти нещо просто :
--
Memo1.Lines.LoadFromFile('1.dat');
for i:=1 to Length(Memo1.Text) do
temp:=temp+chr(ord(Memo1.text) xor $A1 and $FC);
Memo1.text:=temp;
--
примерно само :) обратния процес е същия - като сейваш файла,инфото което ще запишеш пак го минаваш през същия цикъл, и след това сейваш...много е просто, и за такива "незаангажиращи" цели върши перфектна работа..
| |
| |
| 
|
|
