Что нового

Подскажите какой идентификатор ключей надо?

Black_Night

Новичок
Сообщения
67
Репутация
1
Можете дать генератор ключей?
Вот пример ключей:
5612561597
2569745631
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
Black_Night,
Код:
Global $sKey, $iLen = 12

For $i = 1 To $iLen
	$sKey &= Random(1, 9, 1)
Next
MsgBox(64, 'Info', $sKey)
 
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
Большое спасибо, но он этот ключ случайно генерирует.. На привязке это не как не подействует? мне надо идентификатор ключа для привязки..
 
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
Программы к компьютеру..
Код:
#include 'IniString.au3'

$iControl = _ValidateSerial()
If Not @error Then
    If $iControl Then
        MsgBox(64, 'Info', 'Все OK')
    Else
        MsgBox(16, 'Ошибка', 'Была произведена попытка передачи программы')
        Exit
    EndIf
Else
    Switch @error
        Case -1
            MsgBox(16, 'Ошибка', 'Не удалось проверить серийный номер. Проверьте подключение к интернет.')
            Exit
        Case 1
            MsgBox(16, 'Ошибка', 'Произошла ошибка проверки.')
            Exit
    EndSwitch
EndIf
MsgBox(64, 'Info', 'Работаем дальше')

Func _ValidateSerial()
    Local $s_Serial, $a_Control, $s_TextFromSite

    $s_TextFromSite = InetRead('http://updchsd3d.16mb.com/updater/Setting.ini')
    If @error Then Return SetError(-1)
    $s_TextFromSite = BinaryToString($s_TextFromSite)
    $s_Serial = DriveGetSerial(StringLeft(@ScriptDir, 2))
    If @error Then Return SetError(1)
    $a_Control = _IniString_ReadSection($s_TextFromSite, 'Options')
    If @error Then Return SetError(1)
    For $i = 1 To $a_Control[0][0]
        If $a_Control[$i][1] == $s_Serial Then Return SetError(0, 0, 1)
    Next
    Return SetError(0, 0, 0)
EndFunc   ;==>_ValidateSerial
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
Black_Night,
ИМХО, не самый удачный вариант, привязывать ключ к DriveGetSerial(). У меня, например, шесть дисков, а использовать Вашу программу я смогу только на одном из них или как? После переустановки Windows эти номера меняются, как в этом случае быть?
 
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
Я нуб в этом деле мне и такая привязка пойдет мне главное идентиификатор данных ключей найти..
Ну если у вас есть другие варианты, то можно их сюда (хотя ненадо)
Я просто прошу идентификатор данных ключей..
 
Верх