Страница 5 из 12

Re: Текущие вопросы по Delphi

Добавлено: 03 мар 2008, 23:13
C_O_D_E
Спасибо!!! "Королева в восторге! МЫ в восторге"(с. М.А. Булгаков. Мастер и Маргарита)

Re: Текущие вопросы по Delphi

Добавлено: 04 мар 2008, 07:08
Serge_Bliznykov
Медвед и госпожа КОДЕ.
в начале темы (стр.2) somewhere было предложено использовать xor
И, если, Вы решили не использовать стойкую крипто (Ваше право ;) ),
то тогда я лично всё таки рекомендую использовать XOR со строкой фиксированной длины.
Преимущество - простота реализации, алгоритм шифровки/дешифровки один и тот же, стойкость достаточная от вышеупомянутых "хакеров"! ;-)
Кинуть реализацию??

Re: Текущие вопросы по Delphi

Добавлено: 04 мар 2008, 10:28
Хыиуду
Medved писал(а):Шифровка против ламмеров:
Ах, старый-добрый шифр Цезаря-Августа... Ему уже несколько тысяч лет, а все еще испольльзуется...

(цитируем :))

Добавлено: 04 мар 2008, 10:30
BBB
C_O_D_E писал(а):ПОЖАЛУЙСТА!!!!!
И заранее спасибо
"Я и слово волфебное фнаю. ПАЗАЛУФТА" ((c), "Падал...")

Re: Текущие вопросы по Delphi

Добавлено: 04 мар 2008, 16:32
MOTOCoder
Вообще советую не лезть в дебри, и использовать какой-нибудь несложный алгоритм, например шифрование случайным ключом(просто, но эффективно) или что нибудь в этом роде(если, конечно, не правительственные документы шифруете :) ).

Re: Текущие вопросы по Delphi

Добавлено: 04 мар 2008, 20:08
Medved
&quot писал(а):Вообще советую не лезть в дебри, и использовать какой-нибудь несложный алгоритм, например шифрование случайным ключом(просто, но эффективно) или что нибудь в этом роде(если, конечно, не правительственные документы шифруете ).
Значит я опоздал со своим "ОЧ крутым способом" .Это был немного усложненный вариант шифровки ключём. А САМЫЙ крутой способ, который я знаю, это шифровка в BMP или JPG файле. Идея такая:
к каждый последний бит из байта файла BMP заменяется битом исходного файла. При считывании считываются только последние биты файла BMP , откода получается исходник. На JPG не практиковался, а вот с BMP предостерегаю - надо пропускать первые 1024 байта (это информация о размере,глубине цвета и т.д. ) и писать с 1025. На изображении нет И СЛЕДА информации. А если её зашифровать в виндовские примеры изображений, то ууу... :rolleyes:

Re: Текущие вопросы по Delphi

Добавлено: 04 мар 2008, 20:13
MOTOCoder
Это стеганография чтоли?

Re: Текущие вопросы по Delphi

Добавлено: 04 мар 2008, 20:20
Medved
&quot писал(а):стеганография
А существует ли лексическое значение этого слова? (так, для интереса) )))

Re: Текущие вопросы по Delphi

Добавлено: 04 мар 2008, 20:31
MOTOCoder
Не знаю, по моему это просто название метода шифрования.

На счет метода шифрования случайными значениями.
Вот процедуры шифрования и дешифрования.
При всей простоте алгоритма, врятли у вас возникнет желание ломать *.cpt файл.
От данных там остается разве что размер файла.
Пароль при желании можно усложнить.
[syntax='Delphi']
program crypt;

uses crt;

var
b,bb,rb:byte;
FIn,FOut:file of byte;

procedure Encrypt(Key:integer;UFName,EFName:string);
begin
RandSeed:=Key;
Assign(FIn,UFName);
Assign(FOut,EFName);
Reset(FIn);
Rewrite(FOut);
while not EOF(FIn) do
begin
read(FIn,b);
rb:=Random(255);
bb:=b xor rb;
write(FOut,bb);
end;
Close(FIn);
Close(FOut);
end;

procedure Decrypt(Key:integer;EFName,DFName:string);
begin
RandSeed:=Key;
Assign(FIn,EFName);
Assign(FOut,DFName);
Reset(FIn);
Rewrite(FOut);
while not EOF(FIn) do
begin
read(FIn,b);
rb:=Random(255);
bb:=b xor rb;
write(FOut,bb);
end;
Close(FIn);
Close(FOut);
end;

begin
Encrypt(1234,'e:\temp\file.txt','e:\temp\file.cpt');
Decrypt(1234,'e:\temp\file.cpt','e:\temp\DFile.txt');
end.
[/syntax]

Re: Текущие вопросы по Delphi

Добавлено: 04 мар 2008, 20:42
Medved
А про BMP файл - код
&quot писал(а): ...не поместится на этих узких полях... (C)
=)