Создание зашифрованной базы в Delphi

@kabardinec · Регистрация: 10.01.2014

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

Всем салам! Хочу написать программу типа "учета товаров, цен..ну и пр.". Остановился на том, как хранить информацию. Т.е. нужно создать базу с собственным форматом (т.е. чтоб нельзя было вытащить информацию блокнотом и пр.).

Додумался только до книги в excel (типа создать простую книгу и там хранить инфо). Можно было бы и так, если как-нибудь (не знаю как) сделать так, чтобы из него нельзя было вытащить инфо кроме в моей программе.

Пишу на Delphi XE3.

Вероятно что таких уже программ миллионы... проще 1с и пр...замутить... только нужна моя собственная.

И обсуждений наверное много (хотя с нормальными объяснениями ничего не нашел).

Я начинающий самоучка, поэтому прошу помочь и не ругать!

@qwertehok · 03.01.2017, 02:36

а субд + шифрование вас не устраивает?
+ в том же экселе можно поставить пароль на открытие книги
да в конце концов шифрованный типизированный файл

@kabardinec · 03.01.2017, 02:51 **[ТС]**

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

а субд + шифрование вас не устраивает?

т.е. типа sql и пр.? с ними никогда не сталкивался) устраивает или нет не могу сказать.

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

в том же экселе можно поставить пароль на открытие книги

наверное и так можно, только на сколько это безопасно?

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

да в конце концов шифрованный типизированный файл

можно по подробнее?

Добавлено через 8 минут
сам отвечу на свой второй вопрос)

пароль в excele взломать проще простого))

@qwertehok · 03.01.2017, 02:55

1. ну так почитайте
2. пароль можно подобрать перебором
а вы знаете анекдот про неуловимого Джо?

3. конечно, откройте учебник на главе "Типизированные файлы" и читайте.

@kabardinec · 03.01.2017, 03:02 **[ТС]**

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

2. пароль можно подобрать перебором

даже проще как оказалось (архиватором).. сам в шоке..http://youcanexcel.ru/interest... -passwords

А так спасибо! Я тоже до этого додумался книги прочитать. Только мне нужны ответы в более узком спектре, поэтому и пишу тут!!!

@northener · 03.01.2017, 03:14

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

олько мне нужны ответы в более узком спектре, поэтому и пишу тут!!!

Т.е. нужен готовый код?

@qwertehok · 03.01.2017, 13:12

Ps статья по взлому 12 года. Вы думаете за 5 лет ms ничего не сделала в этом плане?

Только мне нужны ответы в более узком спектре

Так задайте узкий вопрос. Пока все что вы спрашивали есть в книжках.

@kabardinec · 09.01.2017, 00:42 **[ТС]**

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

Т.е. нужен готовый код?

нет. блин. имею слабое представление обо всем этом, поэтому трудно объяснить.

Добавлено через 6 минут
Решил пока начать работать с Excel без защиты, а потом уже перейду к защите информации.

Узкий вопрос!

Выдает ошибку Invalid variant operation

код

Delphi

procedure TForm2.btn1Click(Sender: TObject);
   var
      XS: variant;
      Edit1: variant;
     
 begin
        begin
        XS:= CreateOleObject('Excel.Application');
        XS.Workbooks.Open('C:\kniga.xlsx');
        XS.Cells[1, 2]:= 'test4';
 
          XS.Cells[1, 7]:=Edit1.Text;
 
        XS.DisplayAlerts :=False;
        XS.Save;
        XS.Workbooks.close;
        end;
 Form2.close;
 end;

Добавлено через 2 минуты

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

XS.Cells[1, 7]:=Edit1.Text;

понимаю что ошибка в этой строке, только что за ошибка не пойму!
Не совпадают типы данных ячейки и Edit1 или что?

DenNik · 09.01.2017, 02:25

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

даже проще как оказалось (архиватором)

если установить пароль на открытие файла (именно на открытие, а не защита листа как указано в статье), то архив превращается в зашифрованный бинарник. проверено на офисе 2010

@kabardinec · 09.01.2017, 08:32 **[ТС]**

А что на счет моей ошибки?

@qwertehok · 09.01.2017, 08:33

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

Выдает ошибку Invalid variant operation

научитесь работать с экселем
Инструкция: Использование Excel из Delphi

@kabardinec · 09.01.2017, 08:52 **[ТС]**

я вот и пытаюсь научится!!!!!! эти инструкции я уже читал... и не только эти...

если вы знаете/предполагаете причину ошибки будьте добры поделитесь.. и не отправляйте инструкции читать.. а вопрос задал, поскольку ответа не нашел в этих инструкциях и других обсуждениях..

@D1973 · 09.01.2017, 10:31

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

Не совпадают типы данных ячейки и Edit1 или что?

Или что... Edit1 - это у тебя нормальный компонент типа TEdit. Зачем же ты его Variant-ом обозвал.
Твой код рабочий, если заменить твой раздел var на вот это

Delphi

1	var XS: OLEVariant;

Не по теме:

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

и не отправляйте инструкции читать

а вот читать надо... И не только по принуждению

Добавлено через 2 минуты
И еще один нюанс: избавляйся от порочной практики что-то писать в корень диска, тем более диска С: (он, как правило, системный и, банально, прав на запись может не быть)

@kabardinec · 09.01.2017, 14:18 **[ТС]**

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

а вот читать надо... И не только по принуждению

дело в том, что перед тем как спрашивать, я сначала инструкции и форумы читаю..

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

И еще один нюанс: избавляйся от порочной практики что-то писать в корень диска, тем более диска С: (он, как правило, системный и, банально, прав на запись может не быть)

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

Добавлено через 1 час 22 минуты
А так за помощь СПАСИБО! Исправил как сказали и получилось! ))

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

var XS: OLEVariant;

Добавлено через 2 минуты
Теперь нужно попробовать поставить пароль как выше сказали.. пока не покидайте меня)))

DenNik · 09.01.2017, 14:55

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

нужно попробовать поставить пароль

go here

@kabardinec · 09.01.2017, 21:41 **[ТС]**

я в смысле про это

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

если установить пароль на открытие файла (именно на открытие, а не защита листа как указано в статье), то архив превращается в зашифрованный бинарник. проверено на офисе 2010

DenNik · 09.01.2017, 21:49

kabardinec, а я тебе зачем картинку сделал, по-твоему?

@kabardinec · 10.01.2017, 00:00 **[ТС]**

я думал архив типа .rar/.zip... там тоже на открытие файла ставится ))) а не запароленная книга)))) сори)

DenNik · 10.01.2017, 00:04

тебе хочется долбаться с извлечением файла во временную папку, затем снова архивировать его?
чем тебе запароленная книга не нравится? при работе с Excel из приложения Delphi книгу вообще можно не показывать пользователю (кстати, так быстрее будет идти работа с книгой). она будет висеть невидимая в памяти

@kabardinec · 10.01.2017, 01:30 **[ТС]**

вообще я согласен с тобой.. вот щас пытаюсь открыть запароленную книгу из delphi..

Добавлено через 40 минут
Чтоб запароленную книгу открыть мне же нужно использовать параметр password в Excel.Workbooks.Open? Блин че то синтаксис не получается разобрать.. че то туплю я.. подскажите ребята..

Добавлено через 19 минут
реально затупил..не объявил тип переменной для параметра password. теперь работает!

Добавлено через 10 минут
заработал после объявления типа переменной в var для password

Delphi

procedure TForm2.btn1Click(Sender: TObject);
   var
      XS: OLEvariant;
      password: string;
 begin
        begin
        XS:= CreateOleObject('Excel.Application');
        XS.Workbooks.Open('C:\kniga.xlsx', password:=1);

только появилось предупреждение, что объявленная переменная не используется

[dcc32 Hint] programma.Adds.pas(95): H2164 Variable 'password' is declared but never used in 'TForm2.btn1Click'

не понимаю..

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	09.01.2017, 08:33	11
	Сообщение от kabardinec Выдает ошибку Invalid variant operation научитесь работать с экселем Инструкция: Использование Excel из Delphi 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	09.01.2017, 14:55	15
	Сообщение от kabardinec нужно попробовать поставить пароль go here 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
		1
	Создание зашифрованной базы в Delphi 03.01.2017, 02:32. Показов 1575. Ответов 30 Метки нет (Все метки) Всем салам! Хочу написать программу типа "учета товаров, цен..ну и пр.". Остановился на том, как хранить информацию. Т.е. нужно создать базу с собственным форматом (т.е. чтоб нельзя было вытащить информацию блокнотом и пр.). Додумался только до книги в excel (типа создать простую книгу и там хранить инфо). Можно было бы и так, если как-нибудь (не знаю как) сделать так, чтобы из него нельзя было вытащить инфо кроме в моей программе. Пишу на Delphi XE3. Вероятно что таких уже программ миллионы... проще 1с и пр...замутить... только нужна моя собственная. И обсуждений наверное много (хотя с нормальными объяснениями ничего не нашел). Я начинающий самоучка, поэтому прошу помочь и не ругать! 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	03.01.2017, 02:36	2
	а субд + шифрование вас не устраивает? + в том же экселе можно поставить пароль на открытие книги да в конце концов шифрованный типизированный файл 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	03.01.2017, 02:51 [ТС]	3
	Сообщение от qwertehok а субд + шифрование вас не устраивает? т.е. типа sql и пр.? с ними никогда не сталкивался) устраивает или нет не могу сказать. Сообщение от qwertehok в том же экселе можно поставить пароль на открытие книги наверное и так можно, только на сколько это безопасно? Сообщение от qwertehok да в конце концов шифрованный типизированный файл можно по подробнее? Добавлено через 8 минут сам отвечу на свой второй вопрос) пароль в excele взломать проще простого)) 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	03.01.2017, 02:55	4
	1. ну так почитайте 2. пароль можно подобрать перебором а вы знаете анекдот про неуловимого Джо? 3. конечно, откройте учебник на главе "Типизированные файлы" и читайте. 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	03.01.2017, 03:02 [ТС]	5
	Сообщение от qwertehok 2. пароль можно подобрать перебором даже проще как оказалось (архиватором).. сам в шоке..http://youcanexcel.ru/interest... -passwords А так спасибо! Я тоже до этого додумался книги прочитать. Только мне нужны ответы в более узком спектре, поэтому и пишу тут!!! 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	03.01.2017, 03:14	6
	Сообщение от kabardinec олько мне нужны ответы в более узком спектре, поэтому и пишу тут!!! Т.е. нужен готовый код? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	03.01.2017, 13:12	7
	Ps статья по взлому 12 года. Вы думаете за 5 лет ms ничего не сделала в этом плане? Только мне нужны ответы в более узком спектре Так задайте узкий вопрос. Пока все что вы спрашивали есть в книжках. 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	09.01.2017, 02:25	9
	Сообщение от kabardinec даже проще как оказалось (архиватором) если установить пароль на открытие файла (именно на открытие, а не защита листа как указано в статье), то архив превращается в зашифрованный бинарник. проверено на офисе 2010 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	09.01.2017, 08:32 [ТС]	10
	А что на счет моей ошибки? 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	09.01.2017, 08:52 [ТС]	12
	я вот и пытаюсь научится!!!!!! эти инструкции я уже читал... и не только эти... если вы знаете/предполагаете причину ошибки будьте добры поделитесь.. и не отправляйте инструкции читать.. а вопрос задал, поскольку ответа не нашел в этих инструкциях и других обсуждениях.. 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	09.01.2017, 14:18 [ТС]	14
	Сообщение от D1973 а вот читать надо... И не только по принуждению дело в том, что перед тем как спрашивать, я сначала инструкции и форумы читаю.. Сообщение от D1973 И еще один нюанс: избавляйся от порочной практики что-то писать в корень диска, тем более диска С: (он, как правило, системный и, банально, прав на запись может не быть) ну да, согласен. это я понимаю. это у меня тестовый код как бы (черновик). на самом деле там еще другие строчки добавить нужно (сначала изучаю где что и как писать, а потом в чистовик переношу)..такая стратегия..)) Добавлено через 1 час 22 минуты А так за помощь СПАСИБО! Исправил как сказали и получилось! )) Сообщение от D1973 var XS: OLEVariant; Добавлено через 2 минуты Теперь нужно попробовать поставить пароль как выше сказали.. пока не покидайте меня))) 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	09.01.2017, 21:41 [ТС]	16
	я в смысле про это Сообщение от DenNik если установить пароль на открытие файла (именно на открытие, а не защита листа как указано в статье), то архив превращается в зашифрованный бинарник. проверено на офисе 2010 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	09.01.2017, 21:49	17
	kabardinec, а я тебе зачем картинку сделал, по-твоему? 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	10.01.2017, 00:00 [ТС]	18
	я думал архив типа .rar/.zip... там тоже на открытие файла ставится ))) а не запароленная книга)))) сори) 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	10.01.2017, 00:04	19
	тебе хочется долбаться с извлечением файла во временную папку, затем снова архивировать его? чем тебе запароленная книга не нравится? при работе с Excel из приложения Delphi книгу вообще можно не показывать пользователю (кстати, так быстрее будет идти работа с книгой). она будет висеть невидимая в памяти 0