Защита программы по железу

[BarakudaX777]

Почему то не работает на Windows7. Ворачивает пустую строку.
Получаю код таким образом:

uses
  NB30;

function GetAdapterInfo(Lana: Char): string;
var
  Adapter: TAdapterStatus;
  NCB: TNCB;
begin
  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBRESET);
  NCB.ncb_lana_num := Lana;
  if Netbios(@NCB) <> Char(NRC_GOODRET) then
  begin
    Result := 'mac not found';
    Exit;
  end;

  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBASTAT);
  NCB.ncb_lana_num := Lana;
  NCB.ncb_callname := '*';

  FillChar(Adapter, SizeOf(Adapter), 0);
  NCB.ncb_buffer := @Adapter;
  NCB.ncb_length := SizeOf(Adapter);
  if Netbios(@NCB) <> Char(NRC_GOODRET) then
  begin
    Result := 'mac not found';
    Exit;
  end;
  Result :=
  IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;

function GetMACAddress: string;
var
  AdapterList: TLanaEnum;
  NCB: TNCB;
begin
  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBENUM);
  NCB.ncb_buffer := @AdapterList;
  NCB.ncb_length := SizeOf(AdapterList);
  Netbios(@NCB);
  if Byte(AdapterList.length) > 0 then
    Result := GetAdapterInfo(AdapterList.lana[0])
  else
    Result := 'mac not found';
end;

Знаю что с МАК работать не желательно поэтому и прошу помочь найти другой способ защитить свой програмный продукт, чтобы он работал только на одной машине.
Заранее благодарен всем кто поможет разобраться с данной проблемкой!

[BarakudaX777]

А что если получать CRC какого нибудь файла? МОжет есть в системе файл, чтобы у него был уникальный CRC

Хотя легко будет обходить такую защиту.
Люди помогите! нужна функция которая поможет идентифицировать систему. ЧТоб и на Семёрке работала!

[BarakudaX777]

Пока реализовал такой метод. Если кто может проверьте его пожалуйста на WIndows 7!

function SirealNumberDisk: string;
// Определяем серийный номер диска
var
  VolumeName         : array [0..MAX_PATH-1] of Char;
  FileSystemName     : array [0..MAX_PATH-1] of Char;
  VolumeSerialNo     : DWord;
  MaxComponentLength : DWord;
  FileSystemFlags    : DWord;
  disk: string;

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

  function GetReplaceCDNumber(num: String): String;
  var
    i, len: Integer;
  begin
    Result:= '';
    len:= Length(num);
    if len <> 8 then exit;
    for i:= 1 to (len div 2) do begin
       Dec(len);
       Result:= Result + num[len];
       Result:= Result + num[len+1];
       Dec(len);
    end;
  end;

begin
  disk:=copy(GetSpecialPath(CSIDL_WINDOWS),1,1)+':\';
 // showmessage(disk);
  GetVolumeInformation(PChar(disk), VolumeName, MAX_PATH, @VolumeSerialNo, MaxComponentLength,
FileSystemFlags, FileSystemName, MAX_PATH);
  Result:= IntToHex(Integer(VolumeSerialNo), 8);
  if Win32Platform <> VER_PLATFORM_WIN32_NT then
    Result:= GetReplaceCDNumber(Result);
end;

[ex.cluz]

А что бы вам из реестра информацию о железе не вытягивать?

[BarakudaX777]

Сообщение от ex.cluz

А что бы вам из реестра информацию о железе не вытягивать?

Реестр можно легко подтереть, да и слишком уж много прог по отслежке таких обращений

[ex.cluz]

С таким подходом, как у вас, надо защиту по электронному ключу (Стелс 2, например) реализовывать

Вы знаете, кому надо, тот все равно вскроет защиту.
Я, обычно делаю только "защиту от дураков", т.к. от профи спасет лишь серьезная защита, которая сама стоит дорого.

Что у вас за программа? Если серьезная коммерческая, то лучше смотреть в сторону хард-локов, ИМХО.

[BarakudaX777]

Конечно я в курсе что нет той защиты что нельзя обойти, но всё же!
Тот кто пользуется программой полюбому подключен к интернету, это позволило мне сделать программу с интернет защитой+ реализовал шифрование текста всей программы. ПОдписками программы можно управлять через web сайт. Программа привязана к компу и работает на 1 копию.
+ собираюсь сделать проверку CRC от патчеров. Уже реализована проверка версий, и многое "вкусное"

[ex.cluz]

[OFFTOP]
Хорошо вы потрудились. Мне интересно стало, а сколько времени вы потратили на меры по предотвращению взлома вашей программы?

Мне как-то лень терять время на реализацию серьезной защиты, т.к. мне это время лучше пустить на работу над каким-нибудь новым проектом.
[/OFFTOP]

[BarakudaX777]

Сообщение от ex.cluz

[OFFTOP]
Хорошо вы потрудились. Мне интересно стало, а сколько времени вы потратили на меры по предотвращению взлома вашей программы?

Мне как-то лень терять время на реализацию серьезной защиты, т.к. мне это время лучше пустить на работу над каким-нибудь новым проектом.
[/OFFTOP]

ну на разработку защиты гдето около 2х недель. очень долго искать приходилось что да как сделать.
А на разработку сайта уже около 3х месяцев. И ещё работаю над ним.
Пока новых проектов не намечается, работаю с этим