Id компа и его отправка

[mihali4]

Продолжение:

begin 
  Result := ''; 
  FillChar(Buffer,BufferSize,#0); 
  if Win32Platform=VER_PLATFORM_WIN32_NT then 
    begin // Windows NT, Windows 2000 
      // Get SCSI port handle 
      hDevice := CreateFile( '\\.\Scsi0:', GENERIC_READ or GENERIC_WRITE, 
        FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 ); 
      if hDevice=INVALID_HANDLE_VALUE then Exit; 
      try 
        srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL); 
        System.Move('SCSIDISK',srbControl.Signature,8); 
        srbControl.Timeout := 2; 
        srbControl.Length := DataSize; 
        srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY; 
        pInData := PSendCmdInParams(PChar(@Buffer)+SizeOf(SRB_IO_CONTROL)); 
        pOutData := pInData; 
        with pInData^ do 
        begin 
          cBufferSize := IDENTIFY_BUFFER_SIZE; 
          bDriveNumber := 0; 
          with irDriveRegs do 
          begin 
            bFeaturesReg := 0; 
            bSectorCountReg := 1; 
            bSectorNumberReg := 1; 
            bCylLowReg := 0; 
            bCylHighReg := 0; 
            bDriveHeadReg := $A0; 
            bCommandReg := IDE_ID_FUNCTION; 
          end; 
        end; 
        if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer, 
          BufferSize, @Buffer, BufferSize, cbBytesReturned, nil ) then Exit; 
      finally 
        CloseHandle(hDevice); 
      end; 
    end 
  else 
    begin // Windows 95 OSR2, Windows 98 
      hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 ); 
      if hDevice=INVALID_HANDLE_VALUE then Exit; 
      try 
        pInData := PSendCmdInParams(@Buffer); 
        pOutData := PChar(@pInData^.bBuffer); 
        with pInData^ do 
        begin 
          cBufferSize := IDENTIFY_BUFFER_SIZE; 
          bDriveNumber := 0; 
          with irDriveRegs do 
          begin 
            bFeaturesReg := 0; 
            bSectorCountReg := 1; 
            bSectorNumberReg := 1; 
            bCylLowReg := 0; 
            bCylHighReg := 0; 
            bDriveHeadReg := $A0; 
            bCommandReg := IDE_ID_FUNCTION; 
          end; 
        end; 
        if not DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA, pInData,  
           SizeOf(TSendCmdInParams)-1, pOutData, W9xBufferSize, 
           cbBytesReturned, nil ) then Exit; 
      finally 
        CloseHandle(hDevice); 
      end; 
    end; 
    with PIdSector(PChar(pOutData)+16)^ do 
    begin 
      ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber)); 
      SetString(Result,sSerialNumber,SizeOf(sSerialNumber)); 
    end; 
end; 

Пример использования: 

var s : String; 
    rc : DWORD; 
begin 
  s := GetIdeDiskSerialNumber; 
  if s='' then 
    begin 
      rc := GetLastError; 
      if rc=0 then Label1.Caption:='IDE drive is not support SMART feature'
      else WriteLn(SysErrorMessage(rc));
    end else Label1.Caption:='Disk serial number: '+s;
end.  

//Автор: Alex Konshin, akonshin@earthlink.net, Boston, USA

Сайт автора - delphibase.endimus.com или
home.earthlink.net/~akonshin/index.htm
Там же можно посмотреть, как узнать номер второго физического винчестера.
Да, кстати, функция может не работать, если первый контролер в системе не ATA или если первое устройство не является винчестером, который поддерживает SMART.
У меня такого не встретилось, работает отлично.

[Jeni]

Вот, спасибо! И откуда буржуины всё это знают?

[mihali4]

Сообщение от Jeni

Вот, спасибо! И откуда буржуины всё это знают?

Им несколько проще - вся документация рядом и на родном языке.
Но светлых голов и у нас предостаточно. К ним относится, кстати, и названный вами "буржуином" Алексей, который, судя по владению "олбанским", находится за бугром не очень давно.

[Marsik]

Пипец такой код большой.Надо искать обходной путь. Я думаю вместо этого использовать адрес мыла.Только встает вопрос: предположим мыло vasek_pupkin@loh.ru и надо оставив только vasek_pupkin перемешать все буквы(возможно и цифры) по определенному алгоритму(например,invaspupke),доба вить после каждой буквы еще какие нить буквы,например ibndvsawsipaudpmkgeh,и после этого посмотреть какой цифре соответствует каждая буква или цифра букве: а=1,б=2,6=е и т.д. Получается примерно 8294....759(только я очень плохо знаю abc) это и будет пароль.Только один существенный недостаток: зарегав на одно мыло,этим мылом может пользоваться каждый. А может вместо мыла использовать к примеру, название 5 первых папок в program files,перемешать названия,отправить по мылу полученный текст(перемешать чтобы юзверь не подумал что нить нето),у себя опять перемешать и по вышеописанному способу сделать пароль.Только вопрос реально ли это?И поймет ли такой пароль программа?Что думаете?

[Карась]

Сообщение от Marsik

Пипец такой код большой.Надо искать обходной путь. Я думаю вместо этого использовать адрес мыла.Только встает вопрос: предположим мыло vasek_pupkin@loh.ru и надо оставив только vasek_pupkin перемешать все буквы(возможно и цифры) по определенному алгоритму(например,invaspupke),доба вить после каждой буквы еще какие нить буквы,например ibndvsawsipaudpmkgeh,и после этого посмотреть какой цифре соответствует каждая буква или цифра букве: а=1,б=2,6=е и т.д. Получается примерно 8294....759(только я очень плохо знаю abc) это и будет пароль.Только один существенный недостаток: зарегав на одно мыло,этим мылом может пользоваться каждый. А может вместо мыла использовать к примеру, название 5 первых папок в program files,перемешать названия,отправить по мылу полученный текст(перемешать чтобы юзверь не подумал что нить нето),у себя опять перемешать и по вышеописанному способу сделать пароль.Только вопрос реально ли это?И поймет ли такой пароль программа?Что думаете?

Расплавило мозг. Для чево такая непонятная защита? Поймёт ли она пароль... трудно сказать.. исходника то нет.

[mihali4]

зарегав на одно мыло,этим мылом может пользоваться каждый.

Во-первых, юзер не должен знать, что есть какая-то связь между его мыльным адресом и паролем (или кодом активации).
Во-вторых, наличие корректного адреса мыла проверяется самой программой - ведь используемые адреса прописаны просто у юзера в WIN.INI.
В-третьих - пусть ваша программа в момент установки генерит некий "свой серийный номер", прислав который, юзер получит код активации, который явился результатом неких хитромудрствований над его мылом.
И пусть этот кулхацкер ищет несуществующую связь между серийным номером и кодом активации всю оставшуюся жизнь...

[Marsik]

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

[AlDelta]

Блог программистов - Шифрование