Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.033 c
3-16961
Sergey Masloff
2003-02-17 13:27
2003.03.06
Всем лентяям и чайникам посвящается...


1-17051
EndDie
2003-02-25 14:04
2003.03.06
Пакеты-plugins - КАК?


3-16970
Антон.
2003-02-14 09:40
2003.03.06
Посчитать сумму столбца


1-17194
denis24
2003-02-24 12:36
2003.03.06
quickreport


1-17044
RV
2003-02-25 12:16
2003.03.06
FastReport. Windows. Глюки со шрифтами.