Супер-пупер защита. ))
Сначала запускаем такой код:
SetFormat, IntegerFast, H
DriveGet, ss, serial, C:
Clipboard := ss
Затем число из буфера обмена, т.е. серийный номер ж.диска, подставляем в этот фрагмент:
While % AllRightsReserved()
DllCall(Chr(0x53)Chr(0x6C)Chr(0x65)Chr(0x65)Chr(0x70), UInt, 0xC350)
; Начало полезного кода.
MsgBox Легальная копия.
AllRightsReserved(){
DriveGet, ss, serial, C:
Return 0x3E78E736-ss ; вместо 0x.. - свое значение
}
Сообщение "Легальная копия", (т.е. в вашем случае защищенный код) запустится, только если будет подставлено значение из первого кода.
Пару строк
While % AllRightsReserved()
DllCall(Chr(0x53) Chr(0x6C) Chr(0x65) Chr(0x65) Chr(0x70), UInt, 0xC350)
не обязательно вставлять в начало, лучше "спрятать" в середине своего кода, главное, чтоб до них дошла очередь.