FreeBasic
Главная
Вход
Регистрация
Вторник, 19.06.2018, 21:08Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Проверка целостности исполняемого файла
Проверка целостности исполняемого файла
haavДата: Понедельник, 30.03.2015, 07:44 | Сообщение # 1
Генерал-полковник
Группа: Администраторы
Сообщений: 852
Репутация: 34
Статус: Offline
Код
#Include "windows.bi"
#Include "win/imagehlp.bi"
Dim As ZString*MAX_PATH szFullPath
Dim As DWORD dwFileChecksum = 0, dwRealChecksum = 0
dim As ZString*10 sz = "Hello" ' строку которую будем менять
GetModuleFileName(GetModuleHandle(NULL), @szFullPath, MAX_PATH)
MapFileAndCheckSum(@szFullPath, @dwFileChecksum, @dwRealChecksum)

If dwFileChecksum<>dwRealChecksum Then
  ? "the checksum is not correct"
Else
  ? "the checksum is correct"  
EndIf

Sleep


После компиляции и запуска контрольная сумма будет верной. В любом HEX редакторе, можно подправить строку "Hello" и снова запустить EXE...


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Проверка целостности исполняемого файла
  • Страница 1 из 1
  • 1
Поиск: