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

Кодирование.   Найти похожие ветки 

← →
pkm   (2006-03-23 07:44) [0]

Доброе время суток. Подскажите, мне в текстовом файле надо хранить пароли, как этот файл можно закодировать (чтобы никто не просмотрел их), и потом работать с ним?

---

← →
Der Nechk@ssoff ©   (2006-03-23 07:51) [1]

Скачай прогу для кодирования файлов.

---

← →
pkm   (2006-03-23 08:00) [2]

Я закодирую прогой файл. Просмотреть его не смогут, а если смогут - ничего не поймут, а моя программа поймет, что там написано, когда я начну обращаться к закодированному файлу?

---

← →
Der Nechk@ssoff ©   (2006-03-23 08:01) [3]

> pkm   (23.03.06 08:00) [2]


не факт...

---

← →
Morgoth_   (2006-03-23 09:03) [4]

Кодируй не файл, а сами строки с паролями, и сохраняй их, а потом считывай и раскодируй, в нете уйма примеров, можно взять любой и сделать по своему. Есть компоненты наверняка, которые поддерживают алгоритмы кодирования.

---

← →
AbrosimovA   (2006-03-23 09:26) [5]

function Crypt(Text,Key: String; Encode: boolean): String;
var
 i, KeyLength: integer;
 Sign: ShortInt;
begin
KeyLength:=Length(Key);
if Encode then Sign :=-1 else Sign:=1; //шифровать или расшифровывать?
for i:=1 to Length(Text) do  
 Text[i]:=chr(ord(Text[i])+Sign*ord(Key[i mod KeyLength+1]));
 Result:=Text;
end;

Использование:

OutPsw:=Crypt(InPsw,"256",true); \\Шифрование
OutPsw:=Crypt(InPsw,"256",false); \\Расшифровывание

---

← →
Parus ©   (2006-03-23 09:49) [6]

А лучше сам придумай алгоритм тогда никто не догадается как раскодировать :-)

Я в этом деле ламо

---

← →
Dec ©   (2006-03-23 09:53) [7]

http://delphiworld.narod.ru/base/encode_decode_pass.html

---

← →
Der Nechk@ssoff ©   (2006-03-23 10:45) [8]

А лучше создай шрифт(никому его не давай ато-Ахтунг!) и пароли вводи им

---

← →
Vetas   (2006-03-23 15:49) [9]

А зачем придумывать алгоритм, если есть стандартные, например, RC4. И, кстати, легко программируется.

---

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

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



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