Шифровальшик

← →
User (2003-02-21 17:33) [0]

Как можно зашифровать текст в Memo с паролем в Tedit(Дешифровать)?

← →
LongIsland © (2003-02-21 17:43) [1]

Это как???

← →
DarkKnight (2003-02-21 18:20) [2]

Простое решение:

var BufStr:String;
Password:String;
i,j:integer;
begin
BufStr:=Memo1.Lines.Text;
Password:=Edit1.Text;
j:=1;
if Password="" then exit;
for i:=1 to Length(BufStr) do
begin
BufStr[i]:=Char(Byte(BufStr[i]) xor Byte(Password[j]));
Inc(j);
if J>Length(Password) then J:=1;
end
Memo1.Lines.Text:=BufStr;
end;

P.S. Не проверял ;)

Шифровальшик Найти похожие ветки