Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c