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

← →
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 слова в "поисковике".

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

> mrcat © (18.02.03 22:28)

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

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

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