Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 01.02.2016
Сообщений: 57
1

Шифровка и расшифровка ini-файла

29.08.2019, 12:01. Показов 1697. Ответов 5
Метки нет (Все метки)

Привет всем, есть ли у кого-то простой код для шифровки и расшифровки ini файла? Спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.08.2019, 12:01
Ответы с готовыми решениями:

Шифровка/расшифровка текста
Дана такая задача: Чтобы зашифровать текст, записанный с помощью русских букв и знаков, его...

Шифровка и расшифровка числа
Доброго дня, сделал шифровку числа, а теперь нужно его расшифровать. Как это сделать? var ...

Шифровка и расшифровка строки
Мне нужны 2 одинаковых пары функций, на Delphi и php. Первая функция должна на основе секретного...

Пароль Ini-файла
Компонент Chart

__________________
5
Модератор
6793 / 4381 / 1875
Регистрация: 21.01.2014
Сообщений: 18,557
Записей в блоге: 3
29.08.2019, 12:07 2
Возьмите шифр Цезаря - чего уж проще-то...
0
882 / 402 / 174
Регистрация: 20.10.2016
Сообщений: 1,828
02.09.2019, 08:30 3
Лучший ответ Сообщение было отмечено aztek1994 как решение

Решение

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
uses EncdDecd...;
 
Procedure Encode(AFilename:String);
var LStream:TFileStream;
     LEncodedStream:TFileStream;
begin
LStream := TFileStream.Create(AFilename);
 
LEncodedStream := TFileStream.Create('encodedini.ini');
try
EncodeStream(LStream, LEncodedStream);
finally
FreeAndNil(LStream);
FreeAndNil(LEncodedStream);
end;
end;
 
procedure Decode(AFilename:String);
var LStream:TFileStream;
     LEncodedStream:TFileStream;
begin
LStream := TFileStream.Create(AFilename);
 
LEncodedStream := TFileStream.Create('decodedini.ini');
try
DecodeStream(LStream, LEncodedStream);
finally
FreeAndNil(LStream);
FreeAndNil(LEncodedStream);
end;
end;
1
0 / 0 / 0
Регистрация: 01.02.2016
Сообщений: 57
02.09.2019, 11:12  [ТС] 4
Ругается на строчку "LStream := TFileStream.Create(AFilename);" выдает ошибку: "There is no overloaded version of Create that can be called with these arguments".
0
882 / 402 / 174
Регистрация: 20.10.2016
Сообщений: 1,828
02.09.2019, 11:25 5
Delphi
1
2
3
4
5
6
7
8
...
LStream := TFileStream.Create(AFilename, fmOpenRead);
 
if fileexists('decodedini.ini') then
LEncodedStream := TFileStream.Create('decodedini.ini', fmOpenWrite)
else 
LEncodedStream := TFileStream.Create('decodedini.ini', fmCreate);
...
0
2171 / 1021 / 409
Регистрация: 19.03.2019
Сообщений: 3,284
02.09.2019, 11:26 6
aztek1994, скажи, а ты какую задачу решаешь?
вот, допустим, у тебя есть какой-то зашифрованный файл krokozabra.enc, ты хочешь запустить программу, она его расшифрует и запишет уже расшифрованное содержимое в mygood.ini ?
так тогда можно легко прочитать этот самый mygood.ini.

Тебе для чего это нужно?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.09.2019, 11:26

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Окрашивание с ini файла
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Удаление ini файла
Привет, как можно удалить ini файл в папке с exe. а то что-то я, в гугле, никак найти не могу?

Чтение ini файла
ini := Tinifile.Create('F:\рограммирование\лаба3зад2\name.ini'); label3.caption :=...

Создание ini файла
Вопрос в следующем. Есть прога. Значение CheckBox1.Checked должно записыватся в ини файл jimp.ini а...


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

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

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