Зашифровать и в проге расшифровать файл

16.11.2009, 07:54. **Показов** 9213. **Ответов** 10

Студворк — интернет-сервис помощи студентам

Есть программа на делфи 'Тест' она из текстового файла читает вопросы и ответы нужно сделать так чтобы этот файл нельзя было прочитать без программы кто может помогите!

@Vladiator · 16.11.2009, 08:55

А какие в тесте типы вопросов, типы ответов, вообще, из чего состоит данный тест?

16.11.2009, 11:22

в файле 2 типа вопрсов с одним ответом и несколькими. первая строчка это сам вопрос 2-я это номер(а) правильных ответов 7-я строчка это тип вопроса с 1 или несколькии правильными ответами. вот для примера 2 вопроса:
{
Вопрос №1: В каких рядах во всех словах пропущена безударная проверяемая гласная корня?
12
зап..здалый,предст..вление,ст..рожевой
нак..пивший,благосл..вение,надл..мить
г..рячий,прип..сенный,пап..ротник
бл..гоухать,пл..вец,распол..жение
2
Вопрос №2: В каком слове есть суффикс -Д-?
1
кривда
запруда
посуда
причуда
1
}

Humanoid · 16.11.2009, 12:00

Можно обычным xor'ом закодировать.... и пароль выбрать по длиннее (ведь его всё равно вводить не надо будет).

@Vladiator · 16.11.2009, 12:06

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

в файле 2 типа вопрсов с одним ответом и несколькими. первая строчка это сам вопрос 2-я это номер(а) правильных ответов 7-я строчка это тип вопроса с 1 или несколькии правильными ответами. вот для примера 2 вопроса:
{
Вопрос №1: В каких рядах во всех словах пропущена безударная проверяемая гласная корня?
12
зап..здалый,предст..вление,ст..рожевой
нак..пивший,благосл..вение,надл..мить
г..рячий,прип..сенный,пап..ротник
бл..гоухать,пл..вец,распол..жение
2
Вопрос №2: В каком слове есть суффикс -Д-?
1
кривда
запруда
посуда
причуда
1
}

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

@mamedovvms · 16.11.2009, 12:38

ну вообще можно придумать великое множество кодировок

Humanoid · 16.11.2009, 14:22

Стало интересно... решил написать небольшой класс для работы с зашифрованными файлами методом XOR. В interface описываем класс:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Type
  TXORFile = class
  Private
    F : TextFile;  // Для работы с файлом
    Pass : String; // Пароль
    PassPos : Integer; // Текущая позиция на пароле
    Opened : Boolean; // Признак того, что файл открыт в данный момент
    OpenedWrite : Boolean; // Файл открыт для записи иначе для чтения
  Public
    Constructor Create;
    Destructor Destroy; Override;
    Function OpenFile(FName : String; Password : String; ForRewrite : Boolean = False): Boolean; // Открыть или создать файл (зависит от ForRewrite)
    Property FileOpened : Boolean read Opened; // Открыт ли файл в данный момент
    Function Code(S : String): String; // Закодировать строку... можно даже применять эту функцию без работы с файлами
    Function ReadLn : String; // Прочитать строку и раскодировать её
    Procedure WriteLn(S : String); // Закодировать строку и записать её
    Procedure CloseFile; // Закрыть открытый файл. Само вызывается при удалении объекта через .Free
    Function GeneratePassword(R : Integer; Size : Integer): String;
  End;

И после implementation сами функции:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Constructor TXORFile.Create;
Begin
  Inherited Create;
  Opened := False;
End;
 
Destructor TXORFile.Destroy;
Begin
  Self.CloseFile;
  Inherited Destroy;
End;
 
Function TXORFile.OpenFile(FName : String; Password : String; ForRewrite : Boolean = False): Boolean;
Begin
  Self.CloseFile;
  Pass := Password;
  PassPos := 1;
  If (ForRewrite) or FileExists(FName) then
  Begin
    AssignFile(F,FName);
    {$I-}
    If ForRewrite then ReWrite(F) else Reset(F);
    If IOResult=0 then
    Begin
      Opened := True;
      OpenedWrite := ForRewrite;
    End;
    {$I+}
  End;
  Result := Opened;
End;
 
Function TXORFile.Code(S : String): String;
Var I : Integer;
Begin
  For I := 1 to Length(S) do
  Begin
    S[I] := Chr(Ord(S[I]) xor Ord(Pass[PassPos]));
    If PassPos>=Length(Pass) then PassPos := 1 else PassPos := PassPos + 1;
  End;
  Result := S;
End;
 
Function TXORFile.ReadLn : String;
Var S : String;
Begin
  If (not Opened) or (OpenedWrite) then // Если файл не открыт... или открыт для записи, тогда ничего не делать
  Begin
    Result := '';
    Exit;
  End;
  System.ReadLn(F,S);
  Result := Code(S);
End;
 
Procedure TXORFile.WriteLn(S : String);
Begin
  If (not Opened) or (not OpenedWrite) then Exit; // Если файл не открыт... или открыт для чтения, тогда ничего не делать
  S := Code(S); // Кодируем строку
  System.WriteLn(F,S); // Записываем
End;
 
Procedure TXORFile.CloseFile;
Begin
  If Opened then System.CloseFile(F); // Если файл открыт, то закрыть
  Opened := False;
End;
 
Function TXORFile.GeneratePassword(R : Integer; Size : Integer): String;
Var I : Integer;
Begin
  RandSeed := R;
  Result := '';
  For I := 1 to Size do Result := Result + Chr(Random(256));
End;

Функция OpenFile открывает файл. Если ForWrite указана как True, то создаётся новый файл (даже если он уже был). Если ForWrite не указан или указан как False, то открывается существующий файл для чтения. FName - имя файла. Password - пароль, который использовать для работы с файлом.

ReadLn читает строку из файла и раскодирует её.

WriteLn закодирует строку и запишет её в файл.

Code - сама функция кодирования.

CloseFile закрывает файл, с которым в данный момент идёт работа. Эту функцию не обязательно вызывать вручную... она вызывается сама и при открытии другого файла или при удалении объект через Free.

GeneratePassword генерирует пароль, который состоит из различных символов (не только текстовых, а во всём диапазоне от #0 до #255 ). Этот пароль будет одинаковым, если указывать всегда одинаковый параметр R. Параметр Size - это длинна пароля.
Думаю, многие замечали, что функция Random будет всегда возвращать одинаковую последовательность результатов при повторном запуске, если в программе не использовалась процедура Randomize. Функция Randomize просто выставляет специальную переменную RandSeed (которая используется для работы функции Random ) в значение, которое зависит от текущего времени и времени работы компьютера. А функцию GeneratePassword устанавливает эту переменную в значение параметра R.

Использовать очень просто:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TForm1.Button1Click(Sender: TObject);
Var F : TXORFile;
    Pas : String;
begin
  F := TXORFile.Create;
  F.OpenFile('a.txt','mypassword',True);
  F.WriteLn('Ляляля... это первая строка');
  F.WriteLn('Гыгыгы... это вторая строка');
  F.OpenFile('a.txt','mypassword');
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('А теперь пытаемся использовать неправильный пароль:');
  Memo1.Lines.Add('');
  F.OpenFile('a.txt','password');
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add(F.ReadLn);
 
 
  Memo1.Lines.Add('');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('А теперь будем использовать сгенерированный пароль:');
  Memo1.Lines.Add('');
  Pas := F.GeneratePassword(1259971,10);
  F.OpenFile('a.txt',Pas,True);
  F.WriteLn('Ляляля... это первая строка');
  F.WriteLn('Гыгыгы... это вторая строка');
  F.OpenFile('a.txt',Pas);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('А теперь пытаемся использовать неправильный сгенерированный пароль:');
  Memo1.Lines.Add('');
  Pas := F.GeneratePassword(1259972,10);
  F.OpenFile('a.txt',Pas);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add(F.ReadLn);
  F.Free;
  RandSeed := 0;
end;

Результат будет таким:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Ляляля... это первая строка
Гыгыгы... это вторая строка
 
А теперь пытаемся использовать неправильный пароль:
 
Цзинпг+%,%гшй.отчмби:зрхншд
Яюидюы... это=ъсьфьъ+учодно
 
 
А теперь будем использовать сгенерированный пароль:
 
Ляляля... это первая строка
Гыгыгы... это вторая строц
 
А теперь пытаемся использовать неправильный сгенерированный пароль:
 
Г_2
pUцd#_х+7ТtO(ЁнW("+u@8
%цKу-"Ьч"ш·яF(-+kJ'jьZш>/

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

08.12.2009, 01:26

Humanoid, большое спасибо, что написал программу.
Я "начинающий" и эта программа очень поможет мне, если кто-нибудь объяснит, как решить ошибку, которую выдает Delphi:
Создал форму с компонентами Memo1 и Button1, пользуясь примером, написал программу:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm);
  TXORFile = class
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    F : TextFile;  // Для работы с файлом
    Pass : String; // Пароль
    PassPos : Integer; // Текущая позиция на пароле
    Opened : Boolean; // Признак того, что файл открыт в данный момент
    OpenedWrite : Boolean; // Файл открыт для записи иначе для чтения
  public
    Constructor Create;
    Destructor Destroy; Override;
    Function OpenFile(FName : String; Password : String; ForRewrite : Boolean = False): Boolean; // Открыть или создать файл (зависит от ForRewrite)
    Property FileOpened : Boolean read Opened; // Открыт ли файл в данный момент
    Function Code(S : String): String; // Закодировать строку... можно даже применять эту функцию без работы с файлами
    Function ReadLn : String; // Прочитать строку и раскодировать её
    Procedure WriteLn(S : String); // Закодировать строку и записать её
    Procedure CloseFile; // Закрыть открытый файл. Само вызывается при удалении объекта через .Free
    Function GeneratePassword(R : Integer; Size : Integer): String;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Constructor TXORFile.Create;
Begin
  Inherited Create;
  Opened := False;
End;
 
Destructor TXORFile.Destroy;
Begin
  Self.CloseFile;
  Inherited Destroy;
End;
 
Function TXORFile.OpenFile(FName : String; Password : String; ForRewrite : Boolean = False): Boolean;
Begin
  Self.CloseFile;
  Pass := Password;
  PassPos := 1;
  If (ForRewrite) or FileExists(FName) then
  Begin
    AssignFile(F,FName);
    {$I-}
    If ForRewrite then ReWrite(F) else Reset(F);
    If IOResult=0 then
    Begin
      Opened := True;
      OpenedWrite := ForRewrite;
    End;
    {$I+}
  End;
  Result := Opened;
End;
 
Function TXORFile.Code(S : String): String;
Var I : Integer;
Begin
  For I := 1 to Length(S) do
  Begin
    S[I] := Chr(Ord(S[I]) xor Ord(Pass[PassPos]));
    If PassPos>=Length(Pass) then PassPos := 1 else PassPos := PassPos + 1;
  End;
  Result := S;
End;
 
Function TXORFile.ReadLn : String;
Var S : String;
Begin
  If (not Opened) or (OpenedWrite) then // Если файл не открыт... или открыт для записи, тогда ничего не делать
  Begin
    Result := '';
    Exit;
  End;
  System.ReadLn(F,S);
  Result := Code(S);
End;
 
Procedure TXORFile.WriteLn(S : String);
Begin
  If (not Opened) or (not OpenedWrite) then Exit; // Если файл не открыт... или открыт для чтения, тогда ничего не делать
  S := Code(S); // Кодируем строку
  System.WriteLn(F,S); // Записываем
End;
 
Procedure TXORFile.CloseFile;
Begin
  If Opened then System.CloseFile(F); // Если файл открыт, то закрыть
  Opened := False;
End;
 
Function TXORFile.GeneratePassword(R : Integer; Size : Integer): String;
Var I : Integer;
Begin
  RandSeed := R;
  Result := '';
  For I := 1 to Size do Result := Result + Chr(Random(256));
End;
 
procedure TForm1.Button1Click(Sender: TObject);
Var F : TXORFile;
    Pas : String;
begin
  F := TXORFile.Create;
  F.OpenFile('a.txt','mypassword',True);
  F.WriteLn('Ляляля... это первая строка');
  F.WriteLn('Гыгыгы... это вторая строка');
  F.OpenFile('a.txt','mypassword');
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('А теперь пытаемся использовать неправильный пароль:');
  Memo1.Lines.Add('');
  F.OpenFile('a.txt','password');
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('А теперь будем использовать сгенерированный пароль:');
  Memo1.Lines.Add('');
  Pas := F.GeneratePassword(1259971,10);
  F.OpenFile('a.txt',Pas,True);
  F.WriteLn('Ляляля... это первая строка');
  F.WriteLn('Гыгыгы... это вторая строка');
  F.OpenFile('a.txt',Pas);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('А теперь пытаемся использовать неправильный сгенерированный пароль:');
  Memo1.Lines.Add('');
  Pas := F.GeneratePassword(1259972,10);
  F.OpenFile('a.txt',Pas);
  Memo1.Lines.Add(F.ReadLn);
  Memo1.Lines.Add(F.ReadLn);
  F.Free;
  RandSeed := 0;
end;
end.

После запуска выдаться ошибка: [Error] Unit1.pas(116): Undeclared identifier: 'Button1Click'
и указывается строка: procedure TForm1.Button1Click(Sender: TObject);

Humanoid · 08.12.2009, 08:46

Favorit, по кнопке щёлкни мышью два раза... что бы процедура Button1Click привязалась к кнопке.

@alexanderwdark · 08.12.2009, 09:22

Посмотрите мой исходник - тут немного необычное, но сравнительно стойкое шифрование (гораздо сложнее для анализа, чем простой XOR), но пример очень прост. Вообще, это крипто задачка. Зашифровывается русский текст, пароль - текстовый, паролей может быть два, режим - что-то вроде поточного шифра, относительно замены символ заменяется в каждом выходе новым, поэтому соответствий просто так не найти. Да и изменение одного символа в пароле дает совершенно иной результат. Кстати, здесь нет проблемы нулевого символа, которая характерна при работе со строкой как S[n] := Char ( Byte(S[n]) xor Byte[Pwd[n]] ), где S[n] = Pwd[n]

@alexanderwdark · 08.12.2009, 09:33

В прикрепленном файле - четыре рабочих варианта шифра с примером зашифровки/расшифровки текста.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

pawel32

	Зашифровать и в проге расшифровать файл 16.11.2009, 07:54. Показов 9213. Ответов 10 Метки нет (Все метки) Есть программа на делфи 'Тест' она из текстового файла читает вопросы и ответы нужно сделать так чтобы этот файл нельзя было прочитать без программы кто может помогите!

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	16.11.2009, 08:55
	А какие в тесте типы вопросов, типы ответов, вообще, из чего состоит данный тест? 0

pawel32
	16.11.2009, 11:22
	в файле 2 типа вопрсов с одним ответом и несколькими. первая строчка это сам вопрос 2-я это номер(а) правильных ответов 7-я строчка это тип вопроса с 1 или несколькии правильными ответами. вот для примера 2 вопроса: { Вопрос №1: В каких рядах во всех словах пропущена безударная проверяемая гласная корня? 12 зап..здалый,предст..вление,ст..рожевой нак..пивший,благосл..вение,надл..мить г..рячий,прип..сенный,пап..ротник бл..гоухать,пл..вец,распол..жение 2 Вопрос №2: В каком слове есть суффикс -Д-? 1 кривда запруда посуда причуда 1 }

Humanoid Почетный модератор 11556 / 4351 / 452 Регистрация: 12.06.2008 Сообщений: 12,454
	16.11.2009, 12:00
	Можно обычным xor'ом закодировать.... и пароль выбрать по длиннее (ведь его всё равно вводить не надо будет). 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	16.11.2009, 12:38
	ну вообще можно придумать великое множество кодировок 0

Humanoid Почетный модератор 11556 / 4351 / 452 Регистрация: 12.06.2008 Сообщений: 12,454
	08.12.2009, 08:46
	Favorit, по кнопке щёлкни мышью два раза... что бы процедура Button1Click привязалась к кнопке. 0

@alexanderwdark 109 / 95 / 9 Регистрация: 19.02.2009 Сообщений: 312
	08.12.2009, 09:33
	В прикрепленном файле - четыре рабочих варианта шифра с примером зашифровки/расшифровки текста. 0