Шифрование 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 в игре

Самое простое
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;

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;

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