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

Вниз

Нужна процедурка (алгоритм) шифрования текста в текст.   Найти похожие ветки 

 
BlackTiger   (2003-02-18 19:51) [0]

Т.е. чтобы на выходе шифратора были бы только нормальные символы.
Хотя... Можно и поток байт.

Короче, мне нужно в регистре сохранить ConnectionString ADO-шный.
При его создании пользователь имеет возможность сохранить пароль, а я хочу эту строку немного шифрануть (и расшифрануть, есссесно). Просто чтобы не волялось оно открытым текстом.

Может у кого готовое что-то есть?


 
woland ©   (2003-02-18 22:12) [1]

Значит так.
...
s2:="";
for i:=1 to length(s)
s2:=s2+chr(ord(s[i])+5);

s:=s2;
...


 
woland ©   (2003-02-18 22:12) [2]

Значит так.
...
s2:="";
for i:=1 to length(s)
s2:=s2+chr(ord(s[i])+5);

s:=s2;
...

Знаю, примитивно но
> Просто чтобы не волялось оно открытым текстом.



 
Yuri-7 ©   (2003-02-18 22:15) [3]

Есть такая коллекция функций, в том числе и всякого шифрования - QStrings.pas. Поищи.


 
Sharik_212   (2003-02-18 22:20) [4]

Так более надежно. Ключ шифрования задается в UserKey, да и константы можно заменить. Хотя, нет ничего не ломающегося.
var
UserKey : longint;

function crypt(ch:char):char;
var
UserKey_byte : byte;
begin
UserKey_byte := UserKey shr 24;
crypt := chr(ord(ch) xor ord(UserKey_byte));
UserKey := $65C3 * UserKey + $A163;
end;



 
mrcat ©   (2003-02-18 22:28) [5]

BlackTiger (18.02.03 19:51)
>>Просто чтобы не волялось оно открытым текстом.


нафига нужна такая защита?! На кого она расчитана?!
Если хочешь что-то зашифровать - шифруй толково!

>>Может у кого готовое что-то есть?

"готового" навалом в сети - достаточно набрать 2 слова в "поисковике".


 
ION T ©   (2003-02-18 22:39) [6]

Кодируешь обычными алгоритмами а потом UUEncode...


 
woland ©   (2003-02-18 23:03) [7]


> mrcat © (18.02.03 22:28)


> нафига нужна такая защита?! На кого она расчитана?!
> Если хочешь что-то зашифровать - шифруй толково!

Человеку нужна защита от любителей шары.



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

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
1-87425
yaJohn
2003-02-15 15:26
2003.02.27
стандартный способ получить OleVariant в виде бинарных данных


1-87383
msgipss
2003-02-17 20:36
2003.02.27
Помогите найти глюкв коде, что то глаз замылился, не могу понять


1-87399
BurAn
2003-02-18 05:03
2003.02.27
FillRgn (SetWndRgn )


7-87721
msalex
2002-12-08 15:08
2003.02.27
TP7, DOS перезагрузка


14-87636
ev
2003-02-10 16:32
2003.02.27
kylix 3 и radhat 8