Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Wirtal
1 / 1 / 1
Регистрация: 12.11.2014
Сообщений: 29
#1

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

30.05.2015, 16:05. Просмотров 475. Ответов 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;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2015, 16:05
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Простое шифрование файла (Delphi):

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

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

Простое шифрование текста методом перестановки букв - Delphi
Программа шифрует текст, введенный в МЕМО, методом перестановки букв, должен быть ключ (из 5 букв например). У меня есть программа просто...

шифрование файла - Delphi
у меня есть текстовый файл, который по заполнению при помощи Edit нужно зашифровать... procedure TForm2.sBitBtn1Click(Sender:...

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

Шифрование ini-файла - Delphi
Где можно все узнать про шифрование файла? У меня ini файл, там данные элементов программы. Хочу чтобы была элементарная защита от Д. Если...

1
Sergio Leone
2456 / 1101 / 402
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Быстрое шифрование/дешифрование файла mp3 - Delphi
Доброго времени суток! Перелопатил кучу тем, но то, что мне нужно, не нашел. Задача такая: Необходимо зашифровать mp3 файл, а потом,...

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


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

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

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