Код
#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...
