Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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. Не проверял ;)

---

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

Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c