Методы зашиты VB программы от копирования.

[SeT]

А никто не знает, как взломать значения в Warcraft 3 TFT( мнебы денег там побольше) Скан памяти почему-то ни к чему не приводит. Тоесть нахожу значение, изменяю, но толку нету. Правда это вообще не для этого форума...

[Денис Победря]

А никто не знает, как взломать значения в Warcraft 3 TFT( мнебы денег там побольше) Скан памяти почему-то ни к чему не приводит. Тоесть нахожу значение, изменяю, но толку нету. Правда это вообще не для этого форума...

А теперь дружно читаем название темы

[SergT]

Не обижайся! Тяжелая неделя.. Давай сыграем в игру : Ты продавец, Я - покупатель. Хочу у тебя купить программу!
1. Что надо делать? Ну ООччень понравилась! Куда Жать

[SergT]

Maxtor 2B020H1B1K06LSE
Странно, я и забыл про него! Windows на E:

[SergT]

личку
Жду

[SeT]

environ(windir) определит, где винда

[bayasaa]

Вот вам код на память ребята
форма 1

Код: Выделить всё


Private Sub cmdEvaluate_Click()
Load Startup
Unload Me
End Sub

Private Sub cmdRegCode_Click()
frmRegCode.Show vbModal
End Sub


Private Sub Form_Load()
If App.PrevInstance Then End
If modRegCode.IsRegistered = True Then
    Load 'имя вашей основной формы
    Me.Hide
End If

Dim intDays As Integer
intDays = modRegCode.getTrialDays
PBar.Max = 10
PBar.Value = intDays
lblTrial = "Вам остался " & CStr(intDays) & " дней."
If intDays = 0 Then
    cmdEvaluate.Enabled = False
    lblTrial.ForeColor = vbRed
    lblTrial = "Ваше время кончился"
    lblTrial.ForeColor = vbRed
End If

End Sub



Private Sub Label1_Click()

End Sub



форма 2 имя frmRegCode

Код: Выделить всё


Dim intEntered As Integer

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()

intEntered = intEntered + 1

If intEntered > 3 Then End


txtComputerID.Text = Trim(txtComputerID.Text)
txtRegCode.Text = Trim(txtRegCode.Text)


If txtComputerID.Text = "" Or Len(txtComputerID.Text) < 3 Then
    MsgBox "Введите правильно имя ", vbOKOnly
    txtUserName.SelStart = 0
    txtUserName.SelLength = Len(txtComputerID.Text)
    txtUserName.SetFocus
    Exit Sub
End If


If txtRegCode.Text = "" Or Len(txtRegCode.Text) < 14 Then
    MsgBox "Введите правильно CD-KEY!", vbOKOnly
    txtRegCode.SelStart = 0
    txtRegCode.SelLength = Len(txtRegCode.Text)
    txtRegCode.SetFocus
    Exit Sub
End If


If txtRegCode.Text <> modRegCode.GenCode(txtComputerID.Text) Then
    MsgBox "Введите правильно данные", vbOKOnly
    txtRegCode.SelStart = 0
    txtRegCode.SelLength = Len(txtRegCode.Text)
    txtRegCode.SetFocus
    Exit Sub
End If


modRegCode.MakeRegEntries txtRegCode.Text


MsgBox "Спасибо!" & vbCrLf & _
"Запустите програму ещё", vbInformation
End
End Sub

Private Sub Form_Load()
txtComputerID.Text = modRegCode.getComputerID
End Sub


modul имя modRegCode

Код: Выделить всё


Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, ByVal lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long
Public Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const SYNCHRONIZE = &H100000
Public Const READ_CONTROL = &H20000
Public Const STANDARD_RIGHTS_ALL = &H1F0000
Public Const STANDARD_RIGHTS_EXECUTE = (READ_CONTROL)
Public Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Public Const KEY_CREATE_LINK = &H20
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_EVENT = &H1
Public Const KEY_NOTIFY = &H10
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Public Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE))
Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))


Public Const ERROR_NO_MORE_ITEMS = 259&
Public Const ERROR_SUCCESS = 0&
Public Const ERROR_MORE_DATA = 234

Public Const REG_SZ = 1
Public Const REG_OPTION_NON_VOLATILE = 0
Public Const REG_OPTION_RESERVED = 0
Public Const REG_OPTION_VOLATILE = 1

Public Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
Public Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
Public Type ACL
        AclRevision As Byte
        Sbz1 As Byte
        AclSize As Integer
        AceCount As Integer
        Sbz2 As Integer
End Type
Public Type SECURITY_DESCRIPTOR
        Revision As Byte
        Sbz1 As Byte
        Control As Long
        Owner As Long
        Group As Long
        Sacl As ACL
        Dacl As ACL
End Type


Public Function GenCode(ByVal strUN As String) As String
Dim P1 As Long, P2 As Long, P3 As Long
Dim S1 As String, S2 As String, S3 As String
Dim j As Integer

For j = 1 To Len(strUN)
    P1 = P1 + Asc(Mid(strUN, j, 1)) * 65
Next
strUN = LCase(strUN)
For j = 1 To Len(strUN)
    P2 = P2 + Asc(Mid(strUN, j, 1)) * 50
Next
strUN = UCase(strUN)
For j = 1 To Len(strUN)
    P3 = P3 + Asc(Mid(strUN, j, 1)) * 75
Next

S1 = CStr(Hex(P1))
S2 = CStr(Hex(P2))
S3 = CStr(Hex(P3))

If Len(S1) > 4 Then S1 = Left(S1, 4)
If Len(S2) > 4 Then S2 = Left(S2, 4)
If Len(S3) > 4 Then S3 = Left(S3, 4)

GenCode = S1 & "-" & S2 & "-" & S3
End Function

Public Function MakeRegEntries(ByVal strRC As String)

Dim ret As Long, hKey As Long, dispo As Long
Dim strValueName As String
Dim SA As SECURITY_ATTRIBUTES

ret = RegCreateKeyEx(HKEY_LOCAL_MACHINE, _
"Software\Meja\Registration", 0, vbNullString, _
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, hKey, dispo)

If ret = ERROR_SUCCESS Then
    strValueName = "RegCode"
    ret = RegSetValueEx(hKey, ByVal strValueName, 0, REG_SZ, _
    ByVal strRC & vbNullChar, Len(strRC))
    ret = RegCloseKey(hKey)
End If
End Function

Public Function getComputerID() As String
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName("C:\")))
getComputerID = d.SerialNumber
Set fso = Nothing
Set d = Nothing
End Function

Private Function setInstallDate()

Dim ret As Long, hKey As Long, dispo As Long
Dim strValueName As String, strIDate As String
Dim SA As SECURITY_ATTRIBUTES

strIDate = Now

ret = RegCreateKeyEx(HKEY_LOCAL_MACHINE, _
"Software\SystemDate", 0, vbNullString, _
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, hKey, dispo)

If ret = ERROR_SUCCESS Then
    strValueName = "InstallDate"
    ret = RegSetValueEx(hKey, ByVal strValueName, 0, REG_SZ, _
    ByVal strIDate & vbNullChar, Len(strIDate))
    ret = RegCloseKey(hKey)
End If
End Function

Private Function getInstallDate() As String

Dim ret As Long, hKey As Long
Dim strValueName As String
strValueName = "InstallDate"
ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\SystemDate", 0, KEY_READ, hKey)
If ret = ERROR_SUCCESS Then
    Dim lngData As Long
    lngData = 255
    strValueName = strValueName & vbNullChar
    getInstallDate = Space(lngData)
    ret = RegQueryValueEx(hKey, ByVal strValueName, 0, REG_SZ, ByVal getInstallDate, lngData)
    ret = RegCloseKey(hKey)
    getInstallDate = Trim(Left(getInstallDate, lngData - 1))
End If
End Function

Public Function IsRegistered() As Boolean

Dim ret As Long, hKey As Long
Dim strValueName As String, strVal As String


strValueName = "RegCode": strVal = ""
ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Meja\Registration", 0, KEY_READ, hKey)
If ret = ERROR_SUCCESS Then
    Dim lngData As Long
    lngData = 255
    strValueName = strValueName & vbNullChar
    strVal = Space(lngData)
    ret = RegQueryValueEx(hKey, ByVal strValueName, 0, REG_SZ, ByVal strVal, lngData)
    ret = RegCloseKey(hKey)
    strVal = Left(strVal, lngData - 1)
End If

If strVal = "" Then
    IsRegistered = False
    Exit Function
End If

strVal = UCase(strVal)
If GenCode(getComputerID()) <> strVal Then
    IsRegistered = False
    Exit Function
Else
    IsRegistered = True
End If
End Function

Private Function setLastUse()
Dim ret As Long, hKey As Long, dispo As Long
Dim strValueName As String, strIDate As String
Dim SA As SECURITY_ATTRIBUTES

strIDate = Now
ret = RegCreateKeyEx(HKEY_LOCAL_MACHINE, _
"Software\SystemDate", 0, vbNullString, _
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, hKey, dispo)

If ret = ERROR_SUCCESS Then
    strValueName = "UseDate"
    ret = RegSetValueEx(hKey, ByVal strValueName, 0, REG_SZ, _
    ByVal strIDate & vbNullChar, Len(strIDate))
    ret = RegCloseKey(hKey)
End If
End Function

Private Function getLastUse() As String
Dim ret As Long, hKey As Long
Dim strValueName As String
strValueName = "UseDate"
ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\SystemDate", 0, KEY_READ, hKey)
If ret = ERROR_SUCCESS Then
    Dim lngData As Long
    lngData = 255
    strValueName = strValueName & vbNullChar
    getLastUse = Space(lngData)
    ret = RegQueryValueEx(hKey, ByVal strValueName, 0, REG_SZ, ByVal getLastUse, lngData)
    ret = RegCloseKey(hKey)
    getLastUse = Trim(Left(getLastUse, lngData - 1))
End If
End Function

Public Function getTrialDays() As Integer

On Error GoTo ErrHandler
Dim strIDate As String, strUDate As String

strIDate = getInstallDate
strUDate = getLastUse

If strIDate = "" And strUDate = "" Then
    getTrialDays = 10
    Call setInstallDate
    Call setLastUse
    Exit Function
End If


If (strIDate <> "" And strUDate = "") Then
    getTrialDays = 0
    Exit Function
End If

If (strIDate = "" And strUDate <> "") Then
    getTrialDays = 0
    Exit Function
End If
strIDate = FormatDateTime(strIDate, vbShortDate)
strUDate = FormatDateTime(strUDate, vbShortDate)

If Int(CDate(strUDate)) > Int(Now) Then
ErrHandler:
    getTrialDays = 0
    Exit Function
End If

Call setLastUse
getTrialDays = 10 - (Int(Now) - Int(CDate(strIDate)))
End Function


[BV]

2 bayasaa

Отладчик > поиск сообщений > поиск проверок > замена > защиты больше нет.

[hCORe]

Код "на память"... ужасен, да

Кстати, могу предложить разложенные мной (сам себя не похвалишь, никто тебя не похвалит!) по полочкам рекомендации из различных источников:

[keks-n]

А никто не знает, как взломать значения в Warcraft 3 TFT( мнебы денег там побольше) Скан памяти почему-то ни к чему не приводит. Тоесть нахожу значение, изменяю, но толку нету. Правда это вообще не для этого форума...

Жмешь в игре Enter, пишешь greedisgood 10000
потом снова Enter
И у тя на 10000 золота и дерева БОЛЬШЕ

А ежели надобно именно сломать,то качай ArtMoney:
http://www.artmoney.ru/r_download_se.htm и читай хелпы.
З. Ы. тип переменной 4 байта, но она зашифрована(то ли на 100, то ли на 1000 умножена)

[Mizin Alex]

Hi All!
Подскажите,тот код,что предоставил Flex 2004 для определения имени и серийного номера HDD,проверял на SATA?Работает?

С ув.Alex

[Mizin Alex]

Не поняль!
Я чегой,дубовый вопрос задал?По моему как раз по теме,которая обсуждается.Или пропустил в обсуждении данный аспект?Кстати Warcraft то тут как раз не в тему!

С ув.Alex

[bayasaa]

а если по существу тот твоя защита =0 изменение 1 байта в modRegCode там где у тебя проверяется If GenCode(getComputerID()) <> strVal Then
а особо меня порадовало : If strVal = "" Then
IsRegistered = False
Exit Function
End If
если немного подправить фэлс на тРу ... и фсе ==) гыгы... и у тебя нихрена не проверятся.. просто достаточно иметь в реестре пустую строку =)

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

[bayasaa]

а если по существу тот твоя защита =0 изменение 1 байта в modRegCode там где у тебя проверяется If GenCode(getComputerID()) <> strVal Then
а особо меня порадовало : If strVal = "" Then
IsRegistered = False
Exit Function
End If
если немного подправить фэлс на тРу ... и фсе ==) гыгы... и у тебя нихрена не проверятся.. просто достаточно иметь в реестре пустую строку =)

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

[Pantalone]

Привязка к железу - зло. Лишние проблемы юзеру, неудобство, о которых он пойдет и поведает на куче форумов. Онлайн активация только для тех прог, чья работа связана с выходом в инет, иначе имеем ругань файрвола, недоумение юзера и все та же куча негативных отзывов на форумах.
Любая другая защита - не защита, кардер покупает прогу, получает ключ, делает возврат денег и в тот же день на варезах лежит наша многострадальная прога с рабочим ключиком.
Вывод - защита нужна минимальная, дабы подтолкнуть добропорядочного пользователя к покупке.
Что не так?

[GAGArin]

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

Уверен? Никогда не встречался с несломанными программами? Одна прога (Credo) ломалась больше года (завязка на ключ) теперь сломана, но ошибки в пиратках до сих пор отлавливаются.
Есть сейчас еще пара прог. Одна сломана, но кряк стОит больших денег. А кряк на кряк не найти. (RGS) Точнее найти можно, но запустить я например смог после долгих стараний только на одной машине.

Теперь представь прогу ценой 300-500$ нужную узкопрофильным специалистам. И кто её будет ломать? В их среде редко встретишь профи, а нанимать кракера со стороны дороже выйдет.

[Vladimir!]

В точку!

[alibek]

Что не так?

Все не так.
Уже надоело повторять, но попробую еще раз.
Найди XSpider 7.

[moshkin]

как топик разросся!
мне кажется что действительно некоторые участники этого обсуждения говорят немного о разном. Одно дело это использование программ так скажем, повседневных. К примеру WinRar, puntoswitcher, Far и т.п. Если пользователю будет трудно легально купить и зарегистрировать эту программу он, скорее всего, этого делать не будет. А вот если говорить о каких-то редких программах: биллинг, чертежные, да не знаю, любые производственные. То там совсем другая ситуация. По сути у пользователя почти нет выбора. То есть он есть конечно, но если уж ему нужна эта программа, то небольшой минус из-за сложной регистрации его не испугает. Поэтому, наверное, надо как-то обговаривать о каком типе программ кто говорит. Тоже вот недавно сталкивался: мельница, производственный комплекс, большой. Программа не работает. Оказалось они что-то там недоплатили при покупке - то ли миллион, то ли полтора. Естественно программа которая всем этим управляет отказалась спустя некоторое время работать. Вообще. Она сама себя стерла и перед стиранием еще себя и покоцала. Если бы заранее знать, а так - к хозяевам. Там даже и софт-то не опкупался отдельно. Это просто комплекс оборудования был.
2 alibek - а при чем тут XSpider 7? Я всегда внимательно относился к Вашим высказываниям. Но тут как я понял что это система защиты локальной сети. А причем тут защита программы? Или в смысле через программу с кряком могут влезть и в вашу сеть?

[alibek]

XSpider -- это программный комплекс, тестирующий сеть на предмет уязвимостей и багов (и админы затыкают эти уязвимости). Это так же хорошее подспорье хакеру, чтобы эти самые уязвимости найти и использовать. XSpider 7 характеризуется тем, что бывает только лицензионный и официальный.
Это был просто пример того, что существуют принципиально не взламываемые системы защиты.