Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Вниз
Кодирование. Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.013 c
