Привязка скрипта к одному компьютеру (железу)

shift72 · 27 Сен 2012

Я конечно извиняюсь. Но кто нибудь может помочь с этим?
Могу скромно вознаградить.

shift72 · 6 Окт 2012

Балин народ что помочь никто не хочет?

Gzzk · 13 Ноя 2012

Т.е. нужно просто впихнуть обе функции в код и последовательно их вызвать перед выполнением основной части кода?
Добавлено:
Сообщение автоматически объединено: 13 Ноя 2012

Код:

>D:\Program Files\AI3\install\SciTe\..\au3check.exe "D:\MyProg.au3"
AutoIt3 Syntax Checker v1.54.8  Copyright (c) Tylo 2007

D:\MyProg.au3(68,57) : WARNING: $UHID_MB: possibly used before declaration.
    Local $sID = _WinAPI_UniqueHardwareID(BitOR($UHID_MB,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\MyProg.au3(68,69) : WARNING: $UHID_BIOS: possibly used before declaration.
    Local $sID = _WinAPI_UniqueHardwareID(BitOR($UHID_MB, $UHID_BIOS)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\MyProg.au3(68,57) : ERROR: $UHID_MB: undeclared global variable.
    Local $sID = _WinAPI_UniqueHardwareID(BitOR($UHID_MB,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\MyProg.au3 - 1 error(s), 2 warning(s)
>Exit code: 2    Time: 0.318

Вот такие вот чудесные ошибочки,подскажите,что я не так сделал?

shift72 · 17 Ноя 2012

моя проблема уже решена

LyU6I · 17 Ноя 2012

Клиент при старте связывается с сервером который представляет из себя PHP скрипт принимающий сигнатуру компа на котором стоит клиент. Сигнатуре может генериться различными способами, в любом случае пересылка туда и обратно должна делаться с динамичной шифровкой. Далее сервер смотрит ini файлик в котором указано до какого времени работает программа. Время истекло - плати снова абонентку. Сменил железку - изъявляй об этом разработчика и тебе перезапишут старую сигнатуру на новую. Не хочешь - покупай программу заново.
Проверка при старте и далее каждые несколько минут

Это на самом деле несложно организовать. Достаточно иметь бесплатный хост с установленным php, даже базы не нужны, можно организовать хранение в файлах на крайний случай. Синтаксис php очень похож на синтаксис autoit, поэтому любой кто знаком хорошо с аутоит легко разберется с php. У меня был обратный путь, я пришел с php на autoit, CreatoR заинтересовал своими наработками с оперой, которыми я пользовался несколько лет и даже не задумывался как все сделано, поэтому я и пришел сюда. Нагрузка на хост достаточно незначительна при такой привязке при условии что не миллионы обращений в секунду, поэтому подойдет практически любой хостинг, лишь бы доступность сайта по времени была близка к 100%.
Если кому нужна помощь для организации подобной проверки на стороне сервера то могу помочь. php + mysql знал раньше на достаточно высоком уровне. Сейчас просто этим не занимаюсь для себя.

shift72 · 17 Ноя 2012

Было бы неплохо наблюдать статейку от тебя на этом сайте. Думаю очень много народу будут тебе благодарны.

ivanius · 11 Дек 2014

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

Код:

Private Function Encode(ByVal strString As String) As String
  Dim tempstr2 As String
  Dim PArray() As String
  Dim VArray() As String

  KolS = Len(strString)
  If KolS Mod 2 = 1 Then
    ReDim PArray((KolS - 1) / 2)
    ReDim VArray((KolS - 1) / 2)
    PSim = Mid(strString, ((KolS - 1) / 2) + 1, 1)
    For I = 1 To (KolS - 1) / 2
      PArray(I) = Mid(strString, I, 1)
      VArray(I) = Mid(strString, I + ((KolS - 1) / 2) + 1, 1)
      tempstr2 = tempstr2 & PArray(I) & VArray(I)
    Next
    tempstr2 = tempstr2 & PSim
  Else
    ReDim PArray(KolS / 2)
    ReDim VArray(KolS / 2)
    For I = 1 To KolS / 2
      PArray(I) = Mid(strString, I, 1)
      VArray(I) = Mid(strString, I + KolS / 2, 1)
      tempstr2 = tempstr2 & PArray(I) & VArray(I)
    Next
  End If
  Encode = tempstr2
End Function

Private Function Decode(ByVal strString As String) As String
  Dim strHexDecode As String, tempstr1 As String

  Dim PArray() As String
  Dim VArray() As String
  Dim n As Integer
  Dim Mst As String

  KolS = Len(strString)
  ReDim PArray(KolS)
  ReDim VArray(KolS)

  If KolS Mod 2 = 1 Then
    Mst = Left(strString, KolS - 1)
  Else
    Mst = strString
  End If
  n = 1
  For I = 1 To Len(Mst) / 2
    PArray(I) = Mid(Mst, n, 1)
    VArray(I) = Mid(Mst, n + 1, 1)
    n = n + 2
    tempstr1 = tempstr1 & PArray(I)
  Next
  If KolS Mod 2 = 1 Then
    tempstr1 = tempstr1 & Right(strString, 1)
  End If
  For q = 1 To Len(Mst) / 2
    tempstr1 = tempstr1 & VArray(q)
  Next

  Decode = tempstr1

End Function

Private Function EncodeHX(ByVal strString As String) As String

  For index = 1 To Len(strString)
    EncodeHX = EncodeHX & Hex(Asc(Mid(strString, index, 1)))
  Next

End Function

Private Function DecodeHX(ByVal strString As String) As String
  
   On Error GoTo DecodeHX_Error

  For index = 1 To Len(strString) Step 2
    DecodeHX = DecodeHX & Chr(CLng("&H" & Mid(strString, index, 2)))
  Next

   On Error GoTo 0
   Exit Function

DecodeHX_Error:

  DecodeHX = ""

End Function

Public Function GetClientSerial() As String
    Dim pWMI As Object, pDisks As Object, pDisk As Object
     
    Set pWMI = GetObject("winmgmts:\\")
    Set pDisks = pWMI.ExecQuery("Select * from Win32_DiskDrive Where BytesPerSector Is Not Null", , 48)
    
    For Each pDisk In pDisks
        Dim SN As String: SN = pDisk.Model & pDisk.SerialNumber
    Next
    Dim clientsn As String, generetedSN As String
    GetClientSerial = Encode(Encode(SN))

End Function
 
Public Function CheckSerial(ByVal SN As String) As Boolean
    Dim pWMI As Object, pDisks As Object, pDisk As Object
    Set pWMI = GetObject("winmgmts:\\")
    SN = Decode(Decode(DecodeHX(Decode(Decode(SN)))))
    Set pDisks = pWMI.ExecQuery("Select * from Win32_DiskDrive Where BytesPerSector Is Not Null", , 48)
    CheckSerial = False
    For Each pDisk In pDisks
        If SN = pDisk.Model & pDisk.SerialNumber Then
          CheckSerial = True: Exit For
        End If
    Next
End Function

Код почти полностью пригоден к AutoIt - смысл его -
1)берем серийник винта -
2)пвседорандомом мешаем,
3)потом каждый символ по ASCII в цифру
4)и потом в HEX
5)и еще раз мешаем чтобы не догадались что там именно HEX значения,.
Мне присылают данные из пункта 3, я им отправляю из пункта 5, в программе расшифровую, для защиты функций 4 и 5 в программе клиента - нету.

Whited · 11 Дек 2014

ivanius [?]

If SN = pDisk.Model & pDisk.SerialNumber Then

Вот такие проверки ломаются опытными на OllyDbg.
Мое мнение, нужно держать данные для клиента на серваке и отдавать их только если получил допустим тот же серийник жесткого.

ivanius · 18 Дек 2014

Whited сказал(а):
ivanius [?]

If SN = pDisk.Model & pDisk.SerialNumber Then

Нажмите, чтобы раскрыть...

Вот такие проверки ломаются опытными на OllyDbg.
Мое мнение, нужно держать данные для клиента на серваке и отдавать их только если получил допустим тот же серийник жесткого.

Да не сморю я знаком со взломами и пожно просто подменить функцию - сделать ее возвращающую всегда True и этого будет достаточно. НО!
Ты учитывай что это не Exe а VBA там может проще может сложнее - не знаю, но вот тебе пример на чем я зарабатываю последние 2 месяца (пример один из многих)
https://vk.com/topic-33511649_31194084 - то что продается за 1000-2000 рублей пользователей программы достаточно, обновляю ее не часто. А защита там из цитируемого кода. И буду продалжать ее использовать только менять ключ от программы к программе и сейчас в боте для WOWP сделаю тоже самое.

CreatoR · 5 Дек 2015

Немного изменил, в данном варианте можно дать кому то программу, и впредь она будет работать только там, где её запустили впервые.
Смысла нет, но так просто, ради интереса:

Код:

#include <WinAPIEx.au3>

Global $iUH_IDs = BitOR($UHID_MB, $UHID_BIOS)

If Not @Compiled Then
	MsgBox(16, ':-(', 'Please compile this program first.')
	Exit
EndIf

If Not _UniqueID_Inject(@ScriptFullPath, _WinAPI_UniqueHardwareID($iUH_IDs)) Then
	Switch @error
		Case 2
			;MsgBox(16, 'Error', 'MyProg.exe already patched.')
		Case Else
			MsgBox(16, 'Error', 'Unable to patch file.')
	EndSwitch
EndIf

If Not _UniqueID_Validate(@ScriptFullPath) Then
	MsgBox(16, ':-(', 'The program has not been installed on this computer.')
	Exit
EndIf

MsgBox(0, ':-)', 'OK')

Func _UniqueID_Validate($sFile)
	Local $sID = _WinAPI_UniqueHardwareID($iUH_IDs)
	
	If Not $sID Then
		Return 0
	EndIf
	
	Local $hFile = _WinAPI_CreateFile($sFile, 2, 2)
	
	If Not $hFile Then
		Return 0
	EndIf
	
	Local $tData = DllStructCreate($tagGUID), $pData = DllStructGetPtr($tData)
	Local $sData, $iByte, $Result = 0
	
	Do
		If Not _WinAPI_SetFilePointer($hFile, -16, 2) Then
			ExitLoop
		EndIf
		
		If (Not _WinAPI_ReadFile($hFile, $pData, 16, $iByte)) Or ($iByte <> 16) Then
			ExitLoop
		EndIf
		
		$sData = _WinAPI_StringFromGUID($pData)
		
		If (Not $sData) Or ($sData <> $sID) Then
			ExitLoop
		EndIf
		
		$Result = 1
	Until 1
	
	_WinAPI_CloseHandle($hFile)
	
	Return $Result
EndFunc

Func _UniqueID_Inject($sFile, $sID)
	Local $tData = _WinAPI_GUIDFromString($sID)
	
	If Not IsDllStruct($tData) Then
		Return 0
	EndIf
	
	Local $sTmp_File = @TempDir & '\InjectUID.exe'
	FileCopy($sFile, $sTmp_File, 1)
	
	Local $hFile = _WinAPI_CreateFile($sTmp_File, 2, 6)
	
	If Not $hFile Then
		Return 0
	EndIf
	
	Local $tSign = DllStructCreate('dword'), $pSign = DllStructGetPtr($tSign)
	Local $iByte, $Error = 1
	
	Do
		If Not _WinAPI_SetFilePointer($hFile, -20, 2) Then
			ExitLoop
		EndIf
		
		If (Not _WinAPI_ReadFile($hFile, $pSign, 4, $iByte)) Or ($iByte <> 4) Then
			ExitLoop
		EndIf
		
		If DllStructGetData($tSign, 1) = 0x0144ADDA Then
			$Error = 2
			ExitLoop
		EndIf
		
		If Not _WinAPI_SetFilePointer($hFile, 0, 2) Then
			ExitLoop
		EndIf
		
		DllStructSetData($tSign, 1, 0x0144ADDA)
		
		If (Not _WinAPI_WriteFile($hFile, $pSign, 4, $iByte)) Or ($iByte <> 4) Then
			ExitLoop
		EndIf
		
		If (Not _WinAPI_WriteFile($hFile, DllStructGetPtr($tData), 16, $iByte)) Or ($iByte <> 16) Then
			ExitLoop
		EndIf
		
		$Error = 0
	Until 1
	
	_WinAPI_CloseHandle($hFile)
	
	If $Error = 0 Then
		Run(@ComSpec & ' /C ping -n 2 localhost && move /y "' & $sTmp_File & '" "' & $sFile & '" && start "" "' & $sFile & '"', '', @SW_HIDE)
		Exit
	EndIf
	
	Return SetError($Error, 0, Number($Error = 0))
EndFunc

mef-t · 2 Фев 2016

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

Так же хотел попробовать, но при данном варианте есть проблема:
Необходимость держать сервер при условии, что он обеспечивает только проверку. А значит перенаправление данных на ложный сервер позволит легко обойти проверку. Если конечно не придумать более сложные ответы с шифрованием.
Если же на сервер перенести часть логики, то это становится дорогим удовольствием для простых приложений.

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

Как на счет такой логики.
1. Каждый экземпляр программы имеет свой ID
2. Для входа требуется логин (почта) и пароль.
3. Пароль проверяется по логину, ID программы, UID оборудования
Таким образом один и тот же пароль нельзя использовать на разных машинах.

Первый экран, или отдельная форма с полями логина и пароля.
В качестве логина используется почта.
Если пароль еще не известен, то рядом с логином можно нажать кнопку "Запросить пароль".
Далее программа формирует письмо и отправляет на вашу почту логин, ID программы, UID оборудования. (можно нарисовать формат письма, зашифровать и прочее)

Вы раз в день/час проверяете почту. В свой программе указываете полученные данные.
Программа проверяет, оплачен ли данный экземпляр (по ID программы в каком нибудь файле).
Если оплачен, то формирует пароль по полученным данным и отправляет обратно на почту.
У Вас в файле дописывается привязка экземпляра (id программы) к почте.

Алгоритм формирования пароля и проверки в программе одинаковый.

Просьба высказать о недостатках такого метода и трудностях реализации

inververs · 2 Фев 2016

mef-t вы изобрели серийный ключ. Вам присылается строка в виде XXXX-XXXX-XX-XXX-XXXXX, а ваша программа проверяет его на валидность.

vovsla · 2 Фев 2016

Если цель - простая привязка ПО к железу, то мне кажется лишним ID программы, логин, пароль.
Можно же просто брать UID оборудования, шифровать его вместе с каким-нибудь контрольным словом, например.

Код:

$UID= ;получить UID
_Crypt_EncryptData('ПО для UID ПК '&$UID&' не активировано', 'Огроменный ключ шифрования', $CALG_AES_256)

Шифрованные данные отправляются на сервер, сервер расшифровывает данные, проверяет наличие слов которые должны быть постоянно, например "ПО для UID ПК". Если слова есть, то пришел корректный код и сервер просто меняет "не активировано" на "активировано" и отправляет шифрованный ключ.

Код:

_Crypt_EncryptData('ПО для UID ПК '&$UID&' активировано', 'Огроменный ключ шифрования', $CALG_AES_256)

Клиент получает код, дает его программе, программа расшифровывает код, ищет контрольные слова "ПО для UID ПК" для проверки корректности ключа, потом проверяет соответствует ли UID в коде UIDу текущего ПК, смотрит в коде какой статус должен быть у программы "не активировано" / "активировано".

mef-t · 3 Фев 2016

inververs сказал(а):
mef-t вы изобрели серийный ключ. Вам присылается строка в виде XXXX-XXXX-XX-XXX-XXXXX, а ваша программа проверяет его на валидность.

Все верно. Я отталкивался от истории существующих защит.
Это простой вариант в реализации. Не требует настройки серверной части. Можно просто проверять почту.
Этот вариант защищает программу от неразрешенной установки.
Этот вариант защищает программу от копирования. Но при этом позволяет выслать новый ключ, если переустановлена система, произведен апргрейд компа, или вообще новый комп.
Я допускаю простоту обхода защиты, но и затраченные средства на защиту достаточно малы.

Vovsla сказал(а):
Если цель - простая привязка ПО к железу, то мне кажется лишним ID программы, логин, пароль.
...

А что делать, если произошел апгрейд?
В остальном все тоже самое, только вместо того, чтобы отправлять на сервер, как реализовать который я не знаю, данные отправляются на почту.
Вместо одной составляющей их будет три, т.е. общий шифрованный код будет сформирован из трех составляющих.
В остальном все почти так.
Разве что почта появляется. Но ее вводить так же можно всего один раз в начале.
Ваш вариант более приятен, если все абсолютно автоматизировано. Т.е. данные отправились, программа ждет. Сервер получил, обработал, вернул данные. Программа получила данные и активировалась.

Garrett · 3 Фев 2016

mef-t

Предупреждение За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

С уважением, ваш Глобальный модератор.

vovsla · 4 Фев 2016

А что делать, если произошел апгрейд?

А как отличить апгрейд от передачи логина и пароля другому лицу?
Как вариант, можно брать не UID, а например, серийный номер системного диска.

Ваш вариант более приятен, если все абсолютно автоматизировано.

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

Автор темы	Похожие темы	Форум	Ответы	Дата
T	Привязка к Железу	Общие вопросы по AutoIt	4	5 Мар 2023
S	Привязка скрипта по ПК	Общие вопросы по AutoIt	3	28 Ноя 2022
S	(Привязка скрипта к одному компьютеру (железу)) помогите в переделке скрипта.	Общие вопросы по AutoIt	7	14 Окт 2012
A	[Элементы GUI] привязка запуска скрипта к кнопке "старт"в GUI	GUI - Графический интерфейс пользователя	6	31 Авг 2012
A	Привязка скрипта к железу - несколько вопросов для совершенствования.	Общие вопросы по AutoIt	9	4 Ноя 2011

Поиск

Поиск

Привязка скрипта к одному компьютеру (железу)

shift72

Новичок

shift72

Новичок

Gzzk

Новичок

shift72

Новичок

LyU6I

Новичок

shift72

Новичок

ivanius

Знающий

Whited

Знающий

ivanius

Знающий

CreatoR

Must AutoIt!

mef-t

Осваивающий

inververs

AutoIT Гуру

vovsla

Осваивающий

mef-t

Осваивающий

Garrett

Модератор

vovsla

Осваивающий