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

Шифрование MEMO   Найти похожие ветки 

← →
$tranger ©   (2004-04-05 19:24) [0]

Господа, подскажите как средствами Delphi записать файл из MEMO так, чтобы он не смог прочитаться Блокнотом или чем либо подобным. Спасибо

---

← →
YurikGl ©   (2004-04-05 19:40) [1]

Проще всего:
Добавляешь к каждому символу еденицу и пишешь в файл.

---

← →
pasha_golub ©   (2004-04-05 20:00) [2]

var F:text;
i:integer;
begin
assignfile(f,"name.txt");
rewrite(f);
Writeln(f,"this file is corrupted"#0#0);
for i:=0 to memo1.lines.count -1 do
 writeln(f,memo1.lines[i];
closefile;
end;

---

← →
formatC'vt   (2004-04-05 20:59) [3]

Читаться-то он будет всегда (если не применять какие-нибудь хитроумные способы записи на диск), но этого не стоит боятся, нужно просто в таком виде записать, что бы читать было бестолку (зашифровать т.е.).

---

← →
$tranger ©   (2004-04-09 13:45) [4]

А что-нибудь про шифрование INI-шек не подскажите, а то я сейчас увидел опытный образец шифрования INI в игре

---

← →
serge ©   (2004-04-09 13:54) [5]

Самое простое

Function Pass_Code_Decode(in_par: String): String;
Var i: byte;
 Sim: String;
Begin
 sim := in_par;
 For i := 1 To Length(Sim) Do
   sim[i] := chr((ord(Sim[i])) Xor 255);//(Length(Sim) * i + 2));
 Result := Sim;
End;


---

← →
fatal ©   (2004-04-09 15:28) [6]

function code(t:string):string;
var i:integer;
begin
result:="";
if length(t)>0 then
 begin
  for i:=1 to length(t) do
  result:=result+chr(ord(t[i])-1);
 end
end;

function decode(t:string):string;
var i:integer;
begin
result:="";
if length(t)>0 then
 begin
  for i:=1 to length(t) do
  result:=result+chr(ord(t[i])+1);
 end
end;

---

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

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



Память: 0.46 MB
Время: 0.021 c