Как взломать программу
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Как взломать программу - 2010-11-11 17:14:37.860000
|
|
|
Pro1004oK
Сообщений: 80
Оценки: 0
Присоединился: 2009-12-31 11:01:04.926666
|
Есть программа,нужно каким нибудь способом взломать прогамму посмотрите её,кто может,и что нить посоветутйе)) http://lockerztalk.ru:88/go.php?to=http://lockerztalk.ru/go.php?to=http://narod.ru/disk/26170915000/%D0%9F%D1%80%D0%B8%D0%B2%D1%8F%D0%B7%D0%BA%D0%B0%20%D0%BA%20%D0%B0%D0%B2%D1%82%D0%BE%D0%BF%D1%80%D0%BE%D1%81%D0%BC%D0%BE%D1%82%D1%80%D1%83.exe.html
|
|
|
RE: Как взломать программу - 2010-11-11 18:15:06.513333
|
|
|
Flint_ta
Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333
|
Private Function getCPUID() As String
Dim flag1 As Boolean
Dim s1 As String = ""
Dim managementClass1 As System.Management.ManagementClass = New System.Management.ManagementClass("win32_processor")
Dim managementObjectCollection1 As System.Management.ManagementObjectCollection = managementClass1.GetInstances()
Dim managementObjectEnumerator1 As System.Management.ManagementObjectCollection.ManagementObjectEnumerator = managementObjectCollection1.GetEnumerator()
Try
While flag1
Dim managementObject1 As System.Management.ManagementObject = CType(managementObjectEnumerator1.Current, System.Management.ManagementObject)
flag1 = s1 <> ""
If Not flag1 Then
s1 = managementObject1.Properties("processorID").Value.ToString()
Exit While
End If
flag1 = managementObjectEnumerator1.MoveNext()
End While
Finally
flag1 = (managementObjectEnumerator1) Is Nothing
If Not flag1 Then
managementObjectEnumerator1.Dispose()
End If
End Try
Return s1
End Function
на асме тот же ID можно получить так:
mov eax, 1
cpuid ; EDX, EAX = ID
|
|
|
RE: Как взломать программу - 2010-11-11 18:16:41.670000
|
|
|
VаZoNeZ
Сообщений: 250
Оценки: 0
Присоединился: 2010-06-22 18:35:43.170000
|
О_о, это такой кейген?)
|
|
|
|
|