powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение серийника HD
25 сообщений из 108, страница 2 из 5
Получение серийника HD
    #38856759
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_PristSaveSetting пишет исключительно в свою папку данные. В эту: HKEY_CURRENT_USER\Software\VB and VBA Program Settings\
WshShell.RegWrite же может записать в любую, какую укажете.

Очень полезная инфа. спасибо!
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856761
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Proпри наличии прав, разумеется )
Я так понимаю что если устанавливать программу с админскими правами, то запишет "в любую, какую укажете"
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856836
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не устанавливать, а запускать
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856855
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Хотел проверять по серийному номеру HD и уже код внес в проект, а сейчас сижу и думаю...какой толк от этого - ноль. Ведь если прогу просто скопировать и перенести на др. комп то это ничего не даст.

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

Уважаемые профи, может у вас есть идея. Походу этот способ проверки не подходит или я как обычно не вижу очевидного(((

Код: vbnet
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.
'DeleteSetting "MyApp", "Sekcia"
znachenieSN = GetSetting("MyApp", "Sekcia", "Kluch", "")
  If znachenieSN = "" Then
     strComputer = "."
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
        Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)
           For Each objItem In colItems
             s = Trim(objItem.SerialNumber)
                Next
                sn = ""
                For i = 1 To Len(s) / 2
        sn = sn & Chr(Val("&H" & Mid(s, i + i - 1, 2)))
  Next i
znachenieSN = sn
SaveSetting "MyApp", "Sekcia", "Kluch", znachenieSN
Else
   strComputer = "."
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
     Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)
        For Each objItem In colItems
          s = Trim(objItem.SerialNumber)
             Next
             sn = ""
             For i = 1 To Len(s) / 2
        sn = sn & Chr(Val("&H" & Mid(s, i + i - 1, 2)))
    Next i
If sn <> GetSetting("MyApp", "Sekcia", "Kluch", "") Then MsgBox " жопа"
End If
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856856
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что такое "перенос программы"? Что есть у программы, кроме ее exe-шника? Сам exe-шник, конечно, можно модифицировать, но это не лучшая идея.
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856857
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.ProА что такое "перенос программы"?

Ну элементарно юзер подумает.- "Скопирую папку с программой из Program Files на другой комп и проверю, вдруг прокатит" а оно таки прокатит, если будет тот код, что показал выше.
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856862
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Неужели в VB6 нет возможности сохранять значение переменной, но судя по вашему комменту, нет(((

Shocker.Proприснилось
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856872
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vdekameron,

Вы для себя для начала определитесь от чего защита. Если от переноса на другой ПК то только два варианта: 1. Вы для каждого пользователя делаете эксклюзивную версию программы, в которую вшит номер диска
2. Заводите БД на сервере и в программе обращаетесь к этой БД через инет для получения данных о пользователе и серийнику диска. Если не совпадают - программа не работает.
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856879
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Prist1. Вы для каждого пользователя делаете эксклюзивную версию программы, в которую вшит номер диска
Куда же он будет вшит? Вы предлагаете до установки программы каждому пользователю, узнавать его серийник HD? или я не так понял.
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856905
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vdekameronВы предлагаете до установки программы каждому пользователю, узнавать его серийник HD?
Я ничего не предлагал - я написал, что для реализации того, что задумали, есть два варианта.
Подумайте сами-то: программа не может хранить данные абы где. Либо это внешняя БД, либо ресурс самой программы. Но ресурсы самой программы нельзя менять во время работы этой программы и он зашивается перед компиляцией проекта. К тому же - даже если отыщете способ изменения ресурса на лету(есть методы): кто мешает пользователю тупо взять исходный чистый файл проги и запустить именно его на другом ПК?
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856910
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Pristтупо взять исходный чистый файл проги и запустить именно его на другом ПК?
Не понял, про какой исходный чистый файл проги идет речь

Зря столько времени потратил аж злость берет! Многие используют считываение sn HD и не только HD для защит.
Как же они тогда организуют защиту. Что прямо все хранят на внешних БД. А нельзя например как-то обхитрить VB. И допустим сказать программе что sn это переменная а не значение. Понимаю что бред говорю, но я просто не понимаю как разработчики не предусмотрели хранение каких-то значений в самом приложении.
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856915
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vdekameronНе понял, про какой исходный чистый файл проги идет речь
Так....Вы бы прежде чем что-то защищать все же учли бы совет, который я дал давно: прочтите книжку умную . Вы сейчас тыркаетесь как котенок, не понимая что именно делаете и куда идти дальше. Ничего хорошего из этого не выйдет. Вы же даже азов не понимаете, о какой нормальной защите речь?
Про исходный файл проги давайте поясню на пальцах и апельсинах, раз не додумывается у Вас логически:
1. возьмите любой файл, заархивируйте его.
2. вышлите себе на почту этот архив
3. после этого скачайте данный архив из почты себе локально на ПК
4. распакуйте архив, измените любые данные распакованного файла(запишите туда тот же серийник)
5. теперь откройте почту с другого ПК и посмотрите: появился ли сейрийник в этом файле?
Тоже самое и с программой: вот поместили Вы внутрь программы серийник. Что мешает пользователю взять и заменить файл программы на тот, который был получен изначально? На тот, в котором еще нет внутри серийника? и его использовать хоть на том же ПК, хоть на другом?

И кстати разработчики, которых Вы упомянули, всегда понимают что они делают и какую цель преследуют. Обычно серийники и прочие свойства железа запоминаются для обеспечения ДЕМО-периода или ДЕМО-версий программ, а не для того, чтобы можно было лишь на один ПК установить. Поэтому у них все проще - устанавливай на какие угодно ПК - 15 дней поработал и будь добр оплатить. Иначе программа, считав данные откуда либо(реестр, файл, БД), просто откажется работать, "вымогая" копеечку. А запрет запуска на другом ПК пока самый надежный через электронные ключи.

vdekameronА нельзя например как-то обхитрить VB. И допустим сказать программе что sn это переменная а не значениеКак бы помягче сказать...Возьмите ведро воды, залейте в бензобак своей машины и скажите, что это не вода, а 95-ый. Посмотрите на результат. Тогда все станет ясно и с VB...
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856916
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Akina советовал как вариант защиты навешивать поток 17064961
Если не сложно расскажите как это делается и что за смысл этой защиты. Может есть ссылка какого-то конкретного примера, чтобы почитать и попытаться разобраться самому, чтобы не тратить ваше время
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856917
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Pristтыркаетесь как котенок,
В точку, но все-равно дотыкаюсь до чего-то
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856920
ATM-TURBO 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856934
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vdekameronЕсли не сложно расскажите как это делается и что за смысл этой защитыХм...как бы попроще...поток это по сути и есть файл. Только не все знают, что поток может быть добавлен к любому файлу и без спец.программ или знаний его обнаружить не получится(в проводнике не видать, диспетчер тоже не отображает). Т.е. можно создать текстовый файл, а к нему навесить исполняемый. Или наоборот. При этом вес текстового файла может быть 10Кб и именно столько будет отражаться в проводнике, несмотря на то, что исполняемый файл(который на него навешен) будет весить еще 500Кб.
Я бы советовал погуглить для начала теорию, прежде чем использовать это бездумно в своих проектах. Как таковых примеров под рукой нет, т.к. на VB этим не промышлял - надо стряпать с нуля, а сейчас уже лень.
...
Рейтинг: 0 / 0
Получение серийника HD
    #38856970
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Prist,

Спасибо за доступное объяснение! Почитаю об этом!
...
Рейтинг: 0 / 0
Получение серийника HD
    #38857024
vdekameronСтраница 65 - Время жизни переменных
www.bstu.by/uploads/attachments/metodichki/kafedri/Visual_Basic_6.pdfВсего-то приставка "под" пропущена, но как поменялся смысл. Термин "контейнер" в том же разделе спорный, как минимум. Определение событий (стр. 25) вызывает недоумение. И это при том, что на текст смотрел секунд 30.

Я, кстати, не критикую, отнюдь. Хотя бы потому, что методичка написана самостоятельно, а не "слизана" (как 95% подобного материала) с книжек, шедших в коробке с продуктом, это вызывает уважение. Но независимое (а не в соседнем ВУЗе) рецензирование/редактура могло бы улучшить качество материала.

Наиболее полный источник информации по VB6.
...
Рейтинг: 0 / 0
Получение серийника HD
    #38857219
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
13-й квартал,

Спасибо за ссылку!
...
Рейтинг: 0 / 0
Получение серийника HD
    #38857443
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ATM-TURBO 2,

Большое спасибо! Это решает мой вопрос!
...
Рейтинг: 0 / 0
Получение серийника HD
    #38857471
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vdekameronБольшое спасибо! Это решает мой вопрос!программы, которые модифицируют exe-файлы, очень не любят антивирусы
...
Рейтинг: 0 / 0
Получение серийника HD
    #38857597
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А ещё наличие права на выполнение файла не означает наличия права записи в него - даже в ресурсы и даже вставкой на ассемблере.
...
Рейтинг: 0 / 0
Получение серийника HD
    #38857639
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

Ну вот, а я только обрадовался)
...
Рейтинг: 0 / 0
Получение серийника HD
    #38857734
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Трабла, почему сейчас в пошаговом цикл выполняется дважды, и второй раз Sn= абракадабра ?
...
Рейтинг: 0 / 0
Получение серийника HD
    #38857738
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
переменные глобальные? зачем? сделай автономную функцию
...
Рейтинг: 0 / 0
25 сообщений из 108, страница 2 из 5
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение серийника HD
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]