Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Wirtal
1 / 1 / 1
Регистрация: 12.11.2014
Сообщений: 29
#1

Простое шифрование файла - Delphi

30.05.2015, 16:05. Просмотров 554. Ответов 1
Метки нет (Все метки)

Выбрал за основу метод XOR , латинские буквы и цифры шифруются и расшифровываются отлично !
Но возникли данные проблемы:
1) Если взять кириллицу, то при расшифровке получаем иероглифы.
2) Многострочный текст сливается в одну строку.

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
function XORString(str:String; XORKey:byte):string;
var e:integer;
begin
result:='';
for e :=1  to length(str) do
begin
result:=result+chr(byte(str[e]) xor XORKey);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i:integer;
ss:tstringlist;
begin
ss:=tstringlist.Create;
ss.LoadFromFile('1.txt');
AssignFile(output,'1.txt');rewrite(output);
for i := 0 to ss.Count-1 do
begin
s:=ss[i];
write(XORString(s,20));
end;
CloseFile(output);
ss.Free;
end;

http://www.cyberforum.ru/delphi-beginners/thread513818.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2015, 16:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Простое шифрование файла (Delphi):

Простое шифрование методом замены символов
Всем привет. Нужна помощь в написании программы, которая бы шифровала и...

Простое шифрование текста методом перестановки букв
Программа шифрует текст, введенный в МЕМО, методом перестановки букв, должен...

шифрование файла
у меня есть текстовый файл, который по заполнению при помощи Edit нужно...

Шифрование ini-файла
Где можно все узнать про шифрование файла? У меня ini файл, там данные...

Шифрование текстового файла
Собственно как можно зашифровать текстовый файл? подскажите самый простой...

1
Sergio Leone
2462 / 1107 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
31.05.2015, 21:54 #2
Цитата Сообщение от Wirtal Посмотреть сообщение
2) Многострочный текст сливается в одну строку.
писать нужно не Write(шифрованная строка), а WriteLn(шифрованная строка)

Цитата Сообщение от Wirtal Посмотреть сообщение
) Если взять кириллицу, то при расшифровке получаем иероглифы.
тут сложнее. у вас и латиница работает только потому, что Вы для шифрации выбрали код 20
возмите код больше 80 и, скорее всего, получите тоже бессмыслицу.
А проблема в том, что при кодировании получаются непечатные символы. Выход простой.
Шифрованные символы не пишите в текстовый файл (потому как текстовый файл должен содержать ПЕЧАТНЫЕ символы), а вместо них пишите коды символов (лучше в шестнадцатеричном виде,так компактнее и проще).
И всё сразу наладится!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2015, 21:54
Привет! Вот еще темы с решениями:

Шифрование файла методом XOR
Помогите с исходником для шифрования файла методом xor. Заранее благодарен.

Шифрование и дешифровка .ini файла
Здравствуйте уважаемые форумчане. Столкнулся с необходимостью шифровать данные...

Быстрое шифрование/дешифрование файла mp3
Доброго времени суток! Перелопатил кучу тем, но то, что мне нужно, не нашел....

Шифрование/дешифрование файла методом простой замены
Плз очень нужна программа на Delphi (способ перестановки символов при ключе...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru