Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.12.2009, 00:38
malekskv malekskv вне форума
Прохожий
 
Регистрация: 13.11.2009
Сообщения: 44
Репутация: 14
По умолчанию Шифрирование txt файла

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

Спасибо
Ответить с цитированием
  #2  
Старый 26.12.2009, 00:52
Аватар для Енот
Енот Енот вне форума
Прохожий
 
Регистрация: 17.12.2009
Сообщения: 28
Репутация: 10
По умолчанию

Нет, так нельзя, если только дельфи модифицировать как-то. Или можно написать отдельную прогу, которая сможет открывать твои шифрованые файлы.

Последний раз редактировалось Енот, 26.12.2009 в 03:27.
Ответить с цитированием
  #3  
Старый 26.12.2009, 03:06
Аватар для Ferra
Ferra Ferra вне форума
Местный
 
Регистрация: 12.03.2006
Адрес: Минск
Сообщения: 527
Репутация: 1336
По умолчанию

Есть куча способов/методов шифрования. Гугл + вики в руки и вперёд :-) или нужен конкретный пример?
__________________
Нет повести печальнее на свете, чем повесть о заклиневшем Resete.
Ответить с цитированием
  #4  
Старый 26.12.2009, 14:10
malekskv malekskv вне форума
Прохожий
 
Регистрация: 13.11.2009
Сообщения: 44
Репутация: 14
По умолчанию да

Цитата:
Сообщение от Ferra
Есть куча способов/методов шифрования. Гугл + вики в руки и вперёд :-) или нужен конкретный пример?

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

А еще лучше было бы закинуть txt файл в res и читать его в дельфи. Тогда было бы вообще отлично)

Последний раз редактировалось malekskv, 26.12.2009 в 14:25.
Ответить с цитированием
  #5  
Старый 26.12.2009, 14:34
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от malekskv
Желательно, самый простой.
RC4.

От NSА не спасет, а вот от обычных пользователей вполне.

П.С.: описание и пример кода см. на педивикии.

На делфи где-то так: (ели память не подводит )

Код:
for i:= 0 to 255 do
begin
  S[i]:= i;
end;

j:= 0;
for i:= 0 to 255 do
begin
j:= (j + S[i] + ord(Key[i mod L])) mod 256; 
t:=S[i];
S[i]:=S[j];
S[j]:=t;
end;

j:= 0;
i:=0;
for m:=1 to N do
begin
i:= (i + 1) mod 256;
j:= (j + S[i]) mod 256;
t:=S[i];
S[i]:=S[j];
S[j]:=t;
K:= S[(S[i] + S[j]) mod 256];

C[m]:=ord(P[m]) xor ord(K);
end;

Key - ключ + ВИ(очень важный параметр, по сути от него будет зависить криптостойкость);
Р[m] - m-й символ открытого текста.
С[m] - m-й знак шифртекста.
N- длина сообщения.
S: само собой понятно array of byte;

Последний раз редактировалось Konrad, 26.12.2009 в 15:15.
Ответить с цитированием
  #6  
Старый 26.12.2009, 15:04
malekskv malekskv вне форума
Прохожий
 
Регистрация: 13.11.2009
Сообщения: 44
Репутация: 14
По умолчанию )

Цитата:
Сообщение от Konrad
RC4.

От NSА не спасет, а вот от обычных пользователей вполне.

П.С.: описание и пример кода см. на педивикии.

На делфи где-то так: (ели память не подводит )

Код:
for i:= 0 to 255
begin
  S[i]:= i;
end;

j:= 0;
for i:= 0 to 255
begin
j:= (j + S[i] + ord(Key[i mod L])) mod 256; 
t:=S[i];
S[i]:=S[j];
S[j]:=t;
end;

j:= 0;
for i:=0 to N do
begin
i:= (i + 1) mod 256;
j = (j + S[i]) mod 256;
t:=S[i];
S[i]:=S[j];
S[j]:=t;
K= S[(S[i] + S[j]) mod 256];

C[i]:=ord(P[i]) xor ord(K);
end;

Key - ключ + ВИ(очень важный параметр, по сути от него будет зависить криптостойкость);
Р[i] - i-й символ открытого текста.
С[i] - i-й знак шифртекста.

Будем разбираться) спасибо
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:08.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025