Текущий архив: 2003.06.09;
Скачать: CL | DM;
Вниз
Подскажите алгоритм зашифровки и расшифровки текстового файла Найти похожие ветки
← →
Егр (2003-05-27 08:10) [0]Подскажите алгоритм зашифровки и расшифровки текстового файла.
У меня текст хранится в Memo, мне надо сохранить его на диск, только что бы он был не читабельным, а потом его опять прочитать в Memo.
← →
Dimich1978 © (2003-05-27 08:53) [1]Можешь воспользоваться компанентом
http://www.cityinthesky.co.uk/
DCPcrypt Cryptographic Component Library
← →
Zilog © (2003-05-27 09:40) [2]Можешь скопировать текс в свой, заранее приготовленный буффер, там его зашифровать, и самостоятельно скинуть буффер на диск.
Незнаю как на паскале, но на асме шифровка может выглядеть примерно следующим образом:
mov ah,text[i]
mov al,ключ шифровки
xor ah,al
...
сюда можно вставить
дополнительный код шифровки
усложняющий взлом
...
mov buffer[i],ah
Всё это можно взломать, но для определённых ситуаций вполне подходит.
← →
FoxBox (2003-05-27 09:40) [3]Сделай лучше сам процедуру кодинга на основе ключевой строки и посимвольно кодируй (то есть складывай res[i]:=chr((ord(source[i])+ord(pass[j])) mod 256) ) и даже пробелы закодируются, причем так, что хрен разберешь.
← →
Zilog © (2003-05-27 09:46) [4]Но если делаешь на базе этого защиту своей проги, советую всётаки воспользоваться ассемблером, т.к. отсутствие вызовов посторонних функций усложнит взлом...
← →
Barman © (2003-05-27 10:57) [5]Оставь мыло, вышлю пример, если надо.
Я такое уже делал, XOR- шифрование. Просто и сердито...
← →
___Nikolay © (2003-05-27 12:18) [6]Алгоритм шифрование XOR
program Crypt;
{$APPTYPE CONSOLE}
uses Windows;
var
key, text, longkey, result : string;
i : integer;
toto, c : char;
F : TextFile;
begin
writeln("Enter the key:");
readln(key);
writeln("Enter the text:");
readln(text);
for i := 0 to (length(text) div length(key)) do
longkey := longkey + key;
for i := 1 to length(text) do
begin
// XOR алгоритм
toto := chr((ord(text[i]) xor ord(longkey[i])));
result := result + toto;
end;
writeln("The crypted text is:");
writeln(result);
write("Should i save it to result.txt ?");
read(c);
if c in ["Y","y"] then
begin
AssignFile(F,"result.txt");
Rewrite(F);
Writeln(F,result);
CloseFile(F);
end;
end.
← →
Egr (2003-05-28 16:18) [7]Спасибо всем... вот и мыло - okov@inbox.ru
← →
Кулюкин Олег © (2003-05-28 16:49) [8]2 Egr
Посмотрите на торри.
ТАм масса алгоритмов в исходниках (bzip2 например).
← →
Егр (2003-05-29 07:54) [9]Кулюкин Олег
Где посматреть???
← →
Tuzemec © (2003-05-29 09:08) [10]Сам нуждался в подобном алгоритме.
Форум - очень полезная штука.
← →
DVM © (2003-05-29 09:25) [11]http://delphibase.endimus.com/?action=viewtopic&topic=mathcode
← →
Palladin © (2003-05-29 09:27) [12]да, к сожалению сейчас мало кто алгоримы сам составляет...
ведь есть Форум, никто не спрашивает принципа, все хотят готовый...
← →
Кулюкин Олег © (2003-05-29 09:37) [13]2 Егр (29.05.03 07:54)
> Где посматреть???
www.torry.ru
← →
drnet (2003-05-29 15:22) [14]на том-же torry.net есть ZLibExtended - рульная вещь, сразу с процедурами для работы с текстом.
Страницы: 1 вся ветка
Текущий архив: 2003.06.09;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.014 c
