Ресурсы внутри exe

[--=GAMER=--]

Есть много-много мелких файлов - изображений и текстовиков, все они используются случайным образом, и лежат папке с программой.
Однако, в принципе любой, может открыть их и отредактировать, чего мне нужно избежать.
Вопрос: как запихнуть все эти ресурсы внутрь vb проекта (что бы на выходе получился один лишь exe файл) , и как их использовать/подгружать по мере надобности.

Заранее спасибо за ответы)

[Antonariy]

>_<
Вот уж от кого не ожидал…

[--=GAMER=--]

Antonariy, неужто вопрос из FAQ

[FireFenix]

http://visualbasic.about.com/od/usevb6/a/ResVB6.htm
http://visualbasic.about.com/od/usevb6/a/ResVB6_2.htm
http://visualbasic.about.com/od/usevb6/a/ResVB6_3.htm

[--=GAMER=--]

Спасибо, не силён я в IDE)

[Andrey Fedorov]

Вопрос: как запихнуть все эти ресурсы внутрь vb проекта (что бы на выходе получился один лишь exe файл) , и как их использовать/подгружать по мере надобности.

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

[--=GAMER=--]

Была идея резать один большой джипег или бмп, на нужные части, ну и хранить его md5)
В итоге ресурсы обошлись "дешевле" )

[Andrey Fedorov]

Была идея резать один большой джипег или бмп, на нужные части, ну и хранить его md5)
В итоге ресурсы обошлись "дешевле" )

Можно еще запихивать все файлы в MDB-шку и вытаскивать из нее.

А в чем, собственно, криминал подмены рисунка юзером на своей машине? Хочет менять - пускай развлекается - это его проблемы. Ресурсы программы при желании ведь тоже можно отредактировать...

[Денис]

А, допустим, если имеется много графики, то вся эта графика пихается в ресурсы dll. Потом эта dll присоединяется поздним связыванием (даже с возможностью выбора из комбобокса). А уж эту dll можно хоть хэш хранить, хоть цифровой подписью подписать. И тут мы вплотную подходим к явлению скинов.

[Andrey Fedorov]

А, допустим, если имеется много графики, то вся эта графика пихается в ресурсы dll. Потом эта dll присоединяется поздним связыванием (даже с возможностью выбора из комбобокса). А уж эту dll можно хоть хэш хранить, хоть цифровой подписью подписать. И тут мы вплотную подходим к явлению скинов.

А скинам какая разница откуда берутся рисунки - из отдельных файлов, базы или dll/exe? Причем отдельные файлы в данном случае зачастую удобней - юзер может создавать свои...

[Денис]

А скинам какая разница откуда берутся рисунки - из отдельных файлов, базы или dll/exe? Причем отдельные файлы в данном случае зачастую удобней - юзер может создавать свои...

Для пользователя разницы никакой, но производитель может, скажем, из соображений безопасности, выпускать свои подписанные скины. Как темы оформления в Windows, например, начиная с ХР. (Да, не спорю, можно крякнуть библиотеку тем и цеплять сторонние темы, но это езмь прямое нарушение лиц.соглашения и MS в этом случае не гарантирует работоспособность своей системы.)

[SLIM]

Лично я не склоняюсь хранить в ресурсах такую и столько информации.
Вариант с хранением контрольной суммы куда лучше. Вот данные о контрольных суммах можно хранить и в ресурсах.
Ну или вообще, хранить все в запараленном архиве. Если юзер может вскрыть пароль архива, смею предположить что и ресурсы он может редактировать. Я, например, редактировал ресурсы, когда еще знать не знал о программировании.
Ну, или, взять и объединить все файлы в один непрерывный, да еще и закодировать. Тогда пользователь даже если и будет править что-то, то точно не будет знать что именно - цифры, буквы в текстовике никому не интересны.

[Andrey Fedorov]

Ну, или, взять и объединить все файлы в один непрерывный, да еще и закодировать. Тогда пользователь даже если и будет править что-то, то точно не будет знать что именно - цифры, буквы в текстовике никому не интересны.

Ну а проще всего это проделать с той-же mdb-шкой...

[--=GAMER=--]

Постановка задачи была такой)
Что на выходе единственный exe файл) (Максимум разрешенного - рантаймы)

Ну уж если и отредактируют, то заменить exe проблемы не составит)

[Денис]

Постановка задачи была такой)
Что на выходе единственный exe файл) (Максимум разрешенного - рантаймы)

Ну уж если и отредактируют, то заменить exe проблемы не составит)

Ну, тогда все просто. Пересчитываем хэши всех ресурсов, в функции, достающей и возвращающей объект из ресурсов параметром передаем хэш. Например, так: FuncLoadMyRes(ResType, ResID, ResHash) as Object

Функция достает ресурс стандартной функцией, потом считает хэш и сравнивает. если совпадает, возвращает ресурс, ееееслииии жееее нееет :

Код: Выделить всё

msgbox ("Нарушена целостность приложения!", vbCritical, "Приложение")
unload me
end

[--=GAMER=--]

А чем хуже проверять md5 самого exe, если все ресурсы в нём?)

[MIT]

--=GAMER=--, а расскажи: как ты собрался проверять md5 exe`шника? Где будет хранится значение, с которым должно сравниваться полученное?

[Денис]

Пересчитываем хэши всех ресурсов, в функции, достающей и возвращающей объект из ресурсов параметром передаем хэш. Например, так:

Пользуясь классом MD5Hash.cls отсюда, я написал небольшой примерчик. Я не стал заморачиваться с ресурсами, закомментил вызов LoadResData.
Чтобы начать работу, надо, значит, раскомментить нужные строки и удалить код, генерирующий блок случайных данных в буффер, а так же объявление буффера на уровне формы. Ну и еще кинуть на форму кнопку Command1:

Код: Выделить всё

Option Explicit

Dim TmpBuffer() As Byte

Private Function SecureLoadResData(ResID As Variant, ResType As Variant, ResHash As String) As Variant
   
   'Dim TmpBuffer() As Byte
   Dim TmpHash As String
   
   Dim cMD5 As MD5Hash
   Set cMD5 = New MD5Hash
   
   'TmpBuffer = LoadResData(ResID, ResType)
   TmpHash = cMD5.HashBytes(TmpBuffer)
   
   Set cMD5 = Nothing
   
   If TmpHash = ResHash Then
      SecureLoadResData = TmpBuffer
      Debug.Print "Done!"
   Else
      MsgBox "Нарушение целостности приложения!", vbCritical, "Приложение"
      Debug.Print TmpHash
   End If
   
End Function

Private Sub Command1_Click()
   SecureLoadResData 1, 1, "68A8514FE71BBFCF5B6F33145F146CB6"
End Sub

Private Sub Form_Load()
   
   'Randomize
   
   Dim i As Integer
   ReDim TmpBuffer(1000)
     
      For i = 0 To 1000
         TmpBuffer(i) = Int(Rnd * 255)
      Next
     
End Sub


При загрузке произвольных данных возвращается массив байт, при загрузке строк возвращаются строки, проблема в том, что при загрузке картинок возвращается объект-картинка. Чтобы посчитать хэш, придется преобразовать содержимое этого объекта в массив байт. Или еще поискать класс, который умеет считать хэш из объекта-картинки.