Форум: "Основная";
Текущий архив: 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