#COMPILE EXE
#DIM ALL
#INCLUDE "WIN32API.INC"

'#Compile Dll
'Function PbLibMain
' [...]
'Function = 1
'End Function

%HK=%HKEY_LOCAL_MACHINE

 FUNCTION GetSetting(BYVAL AppName AS STRING, BYVAL Key AS STRING, BYVAL DEFAULT AS STRING) AS STRING
  LOCAL hKey    AS LONG
  LOCAL Result  AS LONG
  LOCAL KeyType AS LONG
  LOCAL Buffer  AS STRING * 2048
  LOCAL SIZE    AS LONG
  ' ** Exit is AppName, Section or Key are null
  IF (LEN(AppName) * LEN(Key)) = 0 THEN
    FUNCTION = DEFAULT
    EXIT FUNCTION
  END IF

  ' ** Open the section
  IF RegOpenKeyEx(%HK, ""+AppName+"", 0, %KEY_ALL_ACCESS, _
                  hKey) <> %ERROR_SUCCESS THEN
    FUNCTION = DEFAULT
    EXIT FUNCTION
  END IF
  ' ** Get the key value
  SIZE = SIZEOF(Buffer)
  Result = RegQueryValueEx(hKey, Key+CHR$(0), 0, KeyType, Buffer, SIZE)
  ' ** Close the registry
  RegCloseKey hKey
  ' ** Exit if not successful or nothing there
  IF (Result <> %ERROR_SUCCESS) OR (SIZE = 0) THEN
    FUNCTION = DEFAULT
    EXIT FUNCTION
  END IF
  ' ** Return the data
  IF KeyType = %REG_SZ THEN
    FUNCTION = LEFT$(Buffer, SIZE - 1)
  ELSE
    FUNCTION = LEFT$(Buffer, SIZE)
  END IF
END FUNCTION

'-----------------------------------------------------------------------------
' GetSetting - Retrieves application entry in the Windows registry.
' Syntax:
'   Value = GetSetting(AppName, Section, Key)
' Where:
'  AppName = String expression containing the name of the application.
'  Section = String expression containing the name of the section where the
'            key setting is being saved.
'  Key     = String expression containing the name of the key setting being
'            saved.
'  efault = Default value if no registry value is found.
' Returns:
'  Value   = Value from the registry.  If the value is DWORD, use the CVL()
'            or CVDWD() functions to convert from string to numeric.    !!!!!!!!!!

FUNCTION PBMAIN () AS LONG
DIM  Value AS STRING '* 2048
DIM  ValueVse AS STRING

DIM  aa AS STRING
DIM  bb AS STRING
DIM  dd AS STRING

DIM  ii AS INTEGER
DIM  pigg AS INTEGER
DIM  kodBios AS INTEGER

'для WIN 98
aa = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
bb = "Enum\Root\*PNP0C01\0000"

Value = GetSetting(aa , "VendorIdentifier", "kjkj"
 MSGBOX   Value
  ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(aa , "Identifier", "treg"
 MSGBOX   Value
  ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(bb , "BIOSDate", "vbxcvb"
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(bb , "BIOSName", "sdsad"
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(bb , "BIOSVersion", "vbbbbc"
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(bb , "CPU", "konec98"
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)



'для WIN 2000 ---------------------------------------------
aa = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
dd = "HARDWARE\DESCRIPTION\System"

Value = GetSetting(aa, "ProcessorNameString", "privet" 'для usera  !!!!!!!!!!
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(aa, "Identifier", "privet" 'для usera  !!!!!!!!!!
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(aa, "VendorIdentifier", "sonvbn" 'для usera  !!!!!!!!!!
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(dd, "SystemBiosDate", "sbvnnhlen" 'для usera  !!!!!!!!!!!
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(dd, "SystemBiosVersion", "yutrh" 'для usera  !!!!!!!!!!!
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(dd, "VideoBiosDate", "fgjf" 'для usera  !!!!!!!!!!!
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)
Value = GetSetting(dd, "VideoBiosVersion", "fghytu" 'для usera  !!!!!!!!!!!
 MSGBOX   Value
   ValueVse= ValueVse + TRIM$(Value)


MSGBOX   ValueVse
MSGBOX  STR$(LEN(ValueVse))


FOR ii=1 TO LEN(ValueVse)
  pigg = ASC(MID$(ValueVse, ii, 1))
 IF pigg > 26 AND pigg <= 128 THEN
 kodBios = kodBios + (pigg * 125.56 + pigg * 34.8 + pigg * 554/37) MOD 322.23
 END IF
NEXT ii


MSGBOX "     "+STR$(kodBios)+$CRLF+"Отправьте этот код"+$CRLF,,"<>"
END FUNCTION

JMP-помоему твой код выводит метку тома, и она меняется при каждом форматировании, это мне не подходит

Как его узучать???

JMP-помоему твой код выводит метку тома, и она меняется при каждом форматировании, это мне не подходит

И вместе с ПО поставлять свой микроконтроллер?

Это он про шевеление извилинами