![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кодирование. [D2005, 2000]
pkm © (2006-03-23 07:44:00)Доброе время суток. Подскажите, мне в текстовом файле надо хранить пароли, как этот файл можно закодировать (чтобы никто не просмотрел их), и потом работать с ним?
Vetas (2006-03-23 15:49:00) [1]А зачем придумывать алгоритм, если есть стандартные, например, RC4. И, кстати, легко программируется.
Der Nechk@ssoff (2006-03-23 10:45:00) [2]А лучше создай шрифт(никому его не давай ато-Ахтунг!) и пароли вводи им
Dec (2006-03-23 09:53:00) [3]http://delphiworld.narod.ru/base/encode_decode_pass.html
Parus (2006-03-23 09:49:00) [4]А лучше сам придумай алгоритм тогда никто не догадается как раскодировать :-)
Я в этом деле ламо
AbrosimovA (2006-03-23 09:26:00) [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); \\Расшифровывание
Morgoth_ (2006-03-23 09:03:00) [6]Кодируй не файл, а сами строки с паролями, и сохраняй их, а потом считывай и раскодируй, в нете уйма примеров, можно взять любой и сделать по своему. Есть компоненты наверняка, которые поддерживают алгоритмы кодирования.
Der Nechk@ssoff (2006-03-23 08:01:00) [7]
> pkm (23.03.06 08:00) [2]
не факт...
pkm (2006-03-23 08:00:00) [8]Я закодирую прогой файл. Просмотреть его не смогут, а если смогут - ничего не поймут, а моя программа поймет, что там написано, когда я начну обращаться к закодированному файлу?
Der Nechk@ssoff (2006-03-23 07:51:00) [9]Скачай прогу для кодирования файлов.