Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 

Как взломать программу

Пользователи, просматривающие топик: 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
Post #: 1
RE: Как взломать программу - 2010-11-11 18:15:06.513333   
Flint_ta

Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333
Private Function getCPUID() As String &nbsp;&nbsp; Dim flag1 As Boolean &nbsp;&nbsp; Dim s1 As String = "" &nbsp;&nbsp; Dim managementClass1 As System.Management.ManagementClass = New System.Management.ManagementClass("win32_processor") &nbsp;&nbsp; Dim managementObjectCollection1 As System.Management.ManagementObjectCollection = managementClass1.GetInstances() &nbsp;&nbsp; Dim managementObjectEnumerator1 As System.Management.ManagementObjectCollection.ManagementObjectEnumerator = managementObjectCollection1.GetEnumerator() &nbsp;&nbsp; Try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; While flag1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim managementObject1 As System.Management.ManagementObject = CType(managementObjectEnumerator1.Current, System.Management.ManagementObject) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; flag1 = s1 &lt;&gt; "" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not flag1 Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s1 = managementObject1.Properties("processorID").Value.ToString() &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit While &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; flag1 = managementObjectEnumerator1.MoveNext() &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End While &nbsp;&nbsp; Finally &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; flag1 = (managementObjectEnumerator1) Is Nothing &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not flag1 Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; managementObjectEnumerator1.Dispose() &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp; End Try &nbsp;&nbsp; Return s1 End Function
на асме тот же ID можно получить так:
mov eax, 1 cpuid ; EDX, EAX = ID
Post #: 2
RE: Как взломать программу - 2010-11-11 18:16:41.670000   
VаZoNeZ

Сообщений: 250
Оценки: 0
Присоединился: 2010-06-22 18:35:43.170000
О_о, это такой кейген?)
Post #: 3
Страниц:  [1]
Все форумы >> [Уязвимости] >> Как взломать программу







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.