Проверка Windows на подлинность (локальная)

@Pro_grammer · Регистрация: 24.04.2011

Студворк — интернет-сервис помощи студентам

Начиная с Windows 7 есть функция для проверки подлинности системы - SLIsGenuineLocalEx.
Проверка проводится локально.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
;https://docs.microsoft.com/en-us/windows/win32/api/slpublic/nf-slpublic-slisgenuinelocalex
 
#SL_GEN_STATE_IS_GENUINE = 0
 
 hDll = OpenLibrary(#PB_Any, "sppc.dll")    
If hDll 
    *SLIsGenuineLocal = GetFunction(hDll, "SLIsGenuineLocalEx")
    If *SLIsGenuineLocal
    If CallFunctionFast(*SLIsGenuineLocal, ?IID_NAME, 0, @test) = #S_OK
            If test = #SL_GEN_STATE_IS_GENUINE
               MessageRequester("Поздравляю! ", "Ваша Windows считается подлинной.", #PB_MessageRequester_Info)
            Else
               MessageRequester("Внимание! ",  "Ваша Windows не прошла проверку подлинности.", #PB_MessageRequester_Warning)
            EndIf
        EndIf
    EndIf    
    CloseLibrary(hDll)
  Else
    
   MessageRequester("Внимание! ",  "Ваша Windows немного устарела для этой проверки.", #PB_MessageRequester_Warning)  
  EndIf
  
  DataSection 
  IID_NAME:
  Data.l $55c92734
  Data.w $d682, $4d71
  Data.b $98, $3e, $d6, $ec, $3f, $16, $05, $9f
 EndDataSection

Проверяйте, тестируйте:

@locm · 03.05.2021, 11:04

Сообщение от Замабувараев

А ещё вам необходимо добавить ссылку на статическую библиотеку libsppc.dll.a

Статическая линковка?
Программа не запустится на винде ниже 7. Код из первого сообщения нормально будет работать.
Попробуйте запустить свою программу на линукс.

Узнаете насколько WinAPI кросплатформенные!

@Замабувараев · 03.05.2021, 11:22

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

Статическая линковка?

Да, статическая линковка. Это оправдано, потому что программа не будет работать без функции «SLIsGenuineLocalEx». Нет никакого смысла вручную убеждаться в отсутствии sppc.dll, когда операционная система сделает это сама.

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

Попробуйте запустить свою программу на линукс. Узнаете насколько WinAPI кросплатформенные!

1. Вы утверждаете, что программа со статической линковкой не сможет вызвать функцию «SLIsGenuineLocalEx» на Linux, а с динамической сможет?
2. Является ли программа на PureBasic, которая вызывает SLIsGenuineLocalEx, кроссплатформенной? Если да, является ли программа на FreeBASIC, которая вызывает SLIsGenuineLocalEx, кроссплатформенной? В чём разница?

@Pro_grammer · 03.05.2021, 11:33 **[ТС]**

Сообщение от Замабувараев

Что может быть непонятного в слове «успешно»?

Мне то понятно. Успешно, так успешно. При вызове функции ошибки нет, я с вами не спорю.

Сообщение от Замабувараев

Если FAILED не сработал, значит ошибки нет, можно продолжать.

Продолжать при S_FALSE?
Ваш код отработает неверно, потому что:
This function does not change the value of this parameter if the return value is any value other than S_OK.

Так что будет у вас лежать в pGenuineState?

@Замабувараев · 03.05.2021, 11:37

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

Продолжать при S_FALSE?

Да, потому что

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

99% методов COM возвращают S_OK, когда они успешны; но не позволяйте этому факту вводить вас в заблуждение.

@Pro_grammer · 03.05.2021, 11:52 **[ТС]**

Сообщение от Замабувараев

Да, потому что
Сообщение от MSDN
99% методов COM возвращают S_OK, когда они успешны; но не позволяйте этому факту вводить вас в заблуждение.

Замабувараев, А голову включить?

Вот что написано в MSDN конкретно по этой функции:

This function does not change the value of this parameter if the return value is any value other than S_OK.

И в этой связи задал простой и конкретный вопрос:
Так что будет у вас лежать в pGenuineState, если при её вызове вернётся S_FALSE?

@locm · 03.05.2021, 12:10

Сообщение от Замабувараев

Вы утверждаете, что программа со статической линковкой не сможет вызвать функцию «SLIsGenuineLocalEx» на Linux, а с динамической сможет?

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

Сообщение от Замабувараев

Является ли программа на PureBasic, которая вызывает SLIsGenuineLocalEx, кроссплатформенной?

Причем здесь это? Вы утверждали что WinAPI кроссплатформенны. Запустите вашу прогу со статической линковкой на линуксе и увидите что будет.

@Замабувараев · 03.05.2021, 12:50

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

Со статической линковкой программа не запустится.

И какой смысл запускать программу, если библиотеки sppc.dll всё равно нет? Чтобы выдать сообщение и тут же завершиться? Загрузчик сам умеет выдавать такие сообщения, нет смысла дублировать его поведение.

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

Запустите вашу прогу со статической линковкой на линуксе и увидите что будет.

А с динамической линковкой что будет?

Добавлено через 1 минуту

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

Так что будет у вас лежать в pGenuineState, если при её вызове вернётся S_FALSE?

То же, что и при S_OK.

@Quiet Snow · 03.05.2021, 13:16

Я тут короче подумал, надо бы пойти, что-ли, спросить с халявного линукса за подлинность

...

@Pro_grammer · 03.05.2021, 14:16 **[ТС]**

Сообщение от Замабувараев

То же, что и при S_OK.

Это не верный ответ, там будет то, что и было раньше этому адресу @GenuineState.

В MSDN написано так:
This function does not change the value of this parameter if the return value is any value other than S_OK.
Вы же понимаете, что S_FALSE отличается от S_OK?
Или вы не умеете читать документацию, или не хотите включить голову, дальше дискутировать с вами бессмысленно.

@Замабувараев · 03.05.2021, 14:20

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

Вы же понимаете, что S_FALSE отличается от S_OK?

Вы же сами говорите, что возвращает либо ошибку, либо S_OK.
На ошибку Я проверил, значит в hrGenuineLocal после этого может лежать только S_OK. Поэтому проверка на S_OK лишняя.

@locm · 03.05.2021, 14:54

Сообщение от Замабувараев

Я проверил, значит в hrGenuineLocal после этого может лежать только S_OK.

Тогда проверяем только на S_OK и все. Как в первом сообщении темы.
Если вдруг функция вернет S_FALSE или другой подобный статус, код из первого сообщения отработает правильно, а ваш нет.

@Замабувараев · 03.05.2021, 15:09

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

Если вдруг функция вернет S_FALSE

А несколько сообщений назад вы утверждали что может быть только S_OK или ошибка. Вы противоречите сами себе.

@locm · 03.05.2021, 15:19

Сообщение от Замабувараев

А несколько сообщений назад вы утверждали что может быть только S_OK

Не я а документация на функцию.

Сообщение от Замабувараев

Вы противоречите сами себе.

Не противоречу, а вот вы пишите код не согласно документации на функцию.

@Замабувараев · 03.05.2021, 15:38

Нет, всё правильно.

Функция возвращает:
* успех
* ошибку

Ошибку уже обработа внутри FAILED.
Теперь внутри hrGenuineLocal лежит успех. Проверять на успешность и S_OK уже не нужно.

@Pro_grammer · 03.05.2021, 16:37 **[ТС]**

Сообщение от Замабувараев

Вы же сами говорите, что возвращает либо ошибку, либо S_OK.

Быстро вы переобулись, прямо в воздухе

Сообщение от Замабувараев

А если она вернёт S_FALSE? Ведь S_FALSE — это тоже код успеха.

Сообщение от The trick

Положительных кодов может быть 2147483647 штук, любой из них.

@Замабувараев · 03.05.2021, 16:40

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

Быстро вы переобулись, прямо в воздухе

Нет конечно, мой код работает для любых успешных статусов без перекомпиляции.

@Pro_grammer · 03.05.2021, 16:50 **[ТС]**

Сообщение от Замабувараев

мой код работает

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

Не работает:
...\Compilier\fbc -s gui "GENUINE.bas"
GENUINE.o:fake: (.text+0x12) : undefined reference to `SLIsGenuineLocalEx@12'

Вы пишите избыточный, и не эффективный код, в котором сами же и запутались.

KISS principle - «Keep it simple, stupid», «keep it short and simple», «keep it simple and straightforward»
Принцип KISS утверждает, что большинство систем работают лучше всего, если они остаются простыми, а не усложняются. Поэтому в области проектирования простота должна быть одной из ключевых целей, и следует избегать ненужной сложности.

Тему можно закрывать, а свой код засуньте в раздел Basic, ему там место.

@Замабувараев · 03.05.2021, 16:59

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

Не работает:
...\Compilier\fbc -s gui "GENUINE.bas"
GENUINE.o:fake: (.text+0x12) : undefined reference to `SLIsGenuineLocalEx@12'

Я правильно понимаю, что вы проигнорировали сообщение с исправленной версией?

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

следует избегать ненужной сложности.

Всё верно. Только у вас самостоятельная загрузка библиотеки, получение адреса функции — это бессмысленное усложнение, ведь можно было просто вызвать продекларированную функцию.

@locm · 03.05.2021, 17:54

Сообщение от Замабувараев

ведь можно было просто вызвать продекларированную функцию.

И тогда в винде ниже 7, программа не запуститься, т. е. нет совместимости. Не разу не писали программу которая могла бы использовать функции современных ОС и работать в предыдущих ОС без этих функций?

@Pro_grammer · 03.05.2021, 17:56 **[ТС]**

Сообщение от Замабувараев

можно было просто вызвать продекларированную функцию

Так как у вас?

undefined reference to `SLIsGenuineLocalEx@12'

Лучше лишний раз проверить, есть ли такая функция, чем тупо вызывать то, чего нет

Новые блоги и статьи Все статьи Все блоги /
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .
сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .	10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	03.05.2021, 13:16
	Я тут короче подумал, надо бы пойти, что-ли, спросить с халявного линукса за подлинность ... 0

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	03.05.2021, 15:38
	Нет, всё правильно. Функция возвращает: * успех * ошибку Ошибку уже обработа внутри FAILED. Теперь внутри hrGenuineLocal лежит успех. Проверять на успешность и S_OK уже не нужно. 0