Вопрос: Зашифровка текстовых файлов, используемых программой

[kotzzz]

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

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

Вопрос: как это мне реализовать?! и можно ли это сделать для конкретных файлов, которые использует программа или шифруются - абсолютно все?!

(если можно поподробней) я только начинающий... Заранее, спасибо...

[Utkin]

Инвентируй байты перед чтением и записью. Если записи текстовые, то просто делай перекодировку по другому положению букв - допустим а у Вас будет пробелом, с станет п и т.д.

[Serge_Bliznykov]

1) способов шифрования - огромное множество.
я бы, например, предложил Вам выполнять побайтную операцию XOR со строкой-ключом (используя эту строку циклически)
2) приведите пример, как Вы работаете с текстовым файлом (чтение/запись) - я напишу Вам КОНКРЕТНЫЙ пример кодирования.

3) в принципе, если задаться целью, что можно подключить библиотечки криптографии и тогда шифровать файл уже серьёзными алгоритмами (правда, в Вашем случае ключ всё равно прийдётся хранить в программе, поэтому, теоретически его оттуда можно достать)...
я бы Вам всё же рекомендовал остановиться на XOR

[kotzzz]

Сообщение от Utkin

Инвентируй байты перед чтением и записью. Если записи текстовые, то просто делай перекодировку по другому положению букв - допустим а у Вас будет пробелом, с станет п и т.д.

Это мне нужно к примеру использовать перечисляемый тип, ну например:
type alfafit= (А,Б,В..э,ю,я);

только я не могу понять как реализовать к примеру метод: разбили строку на символы, и теперь сравниваем с перечисляемым типом, находим его там и отсчитываем 5(или любой другой шаг) последующих символов и заменяем символ...
Н/р, было "А", шаг 5, стало "Е"...

Можно хотя бы пример кода замены, а дальше я сам... У меня при обучении именно с перечисляемым типом возникали проблемы...

[kotzzz]

Сообщение от Serge_Bliznykov

1) способов шифрования - огромное множество.
я бы, например, предложил Вам выполнять побайтную операцию XOR со строкой-ключом (используя эту строку циклически)
2) приведите пример, как Вы работаете с текстовым файлом (чтение/запись) - я напишу Вам КОНКРЕТНЫЙ пример кодирования.

3) в принципе, если задаться целью, что можно подключить библиотечки криптографии и тогда шифровать файл уже серьёзными алгоритмами (правда, в Вашем случае ключ всё равно прийдётся хранить в программе, поэтому, теоретически его оттуда можно достать)...
я бы Вам всё же рекомендовал остановиться на XOR

Спс... но с XOR я пока не знаком, только начали Delphi осваивать, и большинство приходится самому рыскать...

var
key, text, longkey, result: string;
i: integer;
toto, c: char;
begin
for i := 0 to (length(text) div length(key)) do
longkey := longkey + key;
for i := 1 to length(text) do
begin
toto := chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
result := result + toto;
end;
end;

вот пример нашел с xor, но принцип действия не пойму... и как потом вернуть истинное значение...

А пример чтения, записи(различие только в ключ. словах) наипростейший....

type TMedal = record
vopr:string[200];
otvet1:string[50];
otvet2:string[50];
otvet3:string[50];
otvet4:string[50];
end;
var
F: file of TMedal;
readd: TMedal;

begin
Path:='тырым-пырым';
assignFile(F,Path);
Reset(f);
read(f,readd);
closefile(f);
end;

потом я уже оперирую с записями readd...

Помогите пожалуйста... или с шаговым методом или с XOR...

[Serge_Bliznykov]

метод XOR
операция XOR - обратима! Т.е.
ЗашифрованныйБайт := ИсходныйБайт XOR Ключ
затем
ИсходныйБайт := ЗашифрованныйБайт XOR Ключ

т.о. вызовете Вашу функцию для зашифрованного текста, получите расшифрованный! (хотя, реализация не очень эффективная - можно обойтись без longkey, но вроде бы рабочая!)


_____________________
метод замены одних букв на другие

для замены символом перечисляемый тип НЕ НУЖЕН!
достаточно иметь строку:
const Alfavit = ' АБВГДЕЖ...ЮЯабвг...эюя';
const NewAlfavit = 'ЯгДжУПроСцудЙфх...' строго такой же длины что и Alfavit!!!!
ОДИНАКОВЫХ СИМВОЛОВ в строках Alfavit и NewAlfavit НЕ ДОПУСКАЕТСЯ (потом не расшифруете!)
и код:

Str_Shifr :=  '';
for i:=1 to Length(Str_IShod) do begin
    Pos1 := Pos(Str_IShod[i], Alfavit );
    if Pos1 >0 then Str_Shifr := Str_Shifr + NewAlfavit[Pos1]
    else Str_Shifr := Str_Shifr + Str_IShod[i]
end;

строка Str_IShod - исходный текст, строка Str_Shifr - зашифрованный!

[kotzzz]

Спасибо, за помощь и разъяснение... буду пробовать...

[DeKot]

const Alfavit = ' АБВГДЕЖ...ЮЯабвг...эюя';
const NewAlfavit = 'ЯгДужПроСцуЙфх...' строго такой же длины что и Alfavit!!!! 
ОДИНАКОВЫХ СИМВОЛОВ в строках Alfavit и NewAlfavit НЕ ДОПУСКАЕТСЯ (потом не расшифруете!)

Это, я так понимаю, недостаток метода XOR?
Не проще ли простую кодировку и раскодировку по следующему методу? :
При записи текста в файл - текст -> код символа + ключ (ключ как угодно динамический) = кодированный код;
При чтении с файла - кодированный код - ключ = код символа -> текст

[spamer]

Вот когда то была подобная тема и кто то выложил dll с функцией шифрования и расшифровки :

[Serge_Bliznykov]

Сообщение от DeKot

Это, я так понимаю, недостаток метода XOR?

я так и думал, что меня НЕВЕРНО поймут!
я описал ДВА разных метода шифрования.
то, что Вы процитировали, НИКАКОГО ОТНОШЕНИЯ К XOR НЕ ИМЕЕТ!
это просто пример реализации замен одних букв на другие, как предложил Utkin в пост #2

проще XOR'а уж ничего и быть не может. Алфавит задавать не надо, отдельные методы для шифрации/дешифрации делать не надо, стойкость (при достаточной длине и зашумленности строчки ключа) отличная!
именно поэтому я и рекомендую в простых случаях пользоваться методом шифрования через операцию XOR.

а в сложных случаях защиты — использовать специальные криптобиблиотеки, благо что есть много бесплатных!