Получение дампа биоса

Для любителей поизвращаться в своей программе со всяким родом привязок к компьютеру, данный пример получает дамп памяти биоса. Далее все зависит о вас, что использовать для защиты методом привязку к компу.

Платформа: Windows
Автор: не помню где и на каком языке попалась, но адаптация за мной.

Declare Function GetSystemFirmwareTable Lib "kernel32.dll" Alias "GetSystemFirmwareTable"( _
Byval FirmwareTableProviderSignature As Long, _
Byval FirmwareTableID As Long, _
Byval pFirmwareTableBuffer As Byte Ptr, _
Byval BufferSize As Long) As Long
Dim As Integer RSMB = &h52534d42 'R=&h52,S=&h53,M=&4D,B=&h42
Dim size As Integer
Dim As Byte Ptr mem
Dim As Byte vb
size=GetSystemFirmwareTable(rsmb,0,0,0)' получаем размер для буфера
mem=Allocate(size)
GetSystemFirmwareTable(rsmb,0,mem,size) 'заполняем инфой
For i As Integer = 0 To size-1
    vb=*mem
    ? Chr(vb);
    mem+=1
Next
Sleep
Deallocate(mem)