PantaloneНу чтобы изменить файл при неизменном размере это надо немало постараться, поэтому я думаю вместо контрольной суммы файла использовать его размер, хотя не уверен. Вообще еще встает проблема вывяснения этой суммы, т.е. при компиляции ее уже надо знать чтобы оталкиваться от нее при проверках.
Про размер файла. простейший пример в текстовом поле есть значение "Edit1" открываем программу даже в блокноте без всяких там HEX редакторов и изменяем это значение на "1tidE" длинна файла не изменилась. а програма да. А если именить байты где прорверяется купленна прога или нет на противоположные :).
Про контрольную сумму . Я выше писал, что
ReadAll считывает весь файл с текущего указателя файла и возвращает его строку . Значит нам нужно этот указатель поставить после значения конрольной суммы. Как найти расположение контрольной суммы, можно заведома поставить значение контрольной суммы такое, чтоб легче было найти в HEXредакторе, к примеру "CRCRCRCRCRCRCRC". Вот после этой переменной с небольшим запасом можно читать содержимое файла, и расчитывать CRC.
если всетаки думаешь, что длинны файла достаточно то вот пример
1.
2.
3.
4.
Const ForReading = 1 , ForWriting = 2
Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(App.Path & "\" & App.EXEName & ".exe", ForReading)
MsgBox Len(ts.ReadAll)
В референсах нужно подклучать Scripting RunTime, ну я думаю и так все догодались
