Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизНужна процедурка (алгоритм) шифрования текста в текст. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c