![]() |
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
![]() |
|
|
主題工具 | 顯示模式 |
|
|
#1 |
|
註冊會員
|
Hi Everybody,
有些軟體會偵測系統是否存在Softice而使軟體無法執行 當然Softice就無法進行破解程式? 請問如何讓騙過軟體的偵測(or何種軟體?),可使Softice可以執行破解程序??? Thanks!!! |
|
|
送花文章: 0,
|
|
|
#2 (permalink) |
|
管理版主
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
個人是第一次聽過
不過想想的確辦的到 比如搜尋視窗 Softice 關鍵字 最簡單就是用 winAPI : FindWindow 如真的是這個方法反反制Softice 那只要改 Softice 的視窗標題即可 用資源修改軟體開啟Softice再改名稱即可 ※如果 Softice 主程式有經過加殼加密 那就要先脫殼了 當然還有其他方法 寫一段程式來改 Softice的視窗標題即可 VB 是這麼寫的 Dim hwnd As Long hwnd = FindWindow(vbNullString, "Softice xxxxx") Me.Caption = hwnd & "這是Softice的視窗編號" SetWindowText hwnd, "XX 我要變變變" 上面的 "Softice xxxxx" 必須一模一樣 當然也可以只要找到視窗標題內有 Softice關鍵字就作用的方法 試寫了一下 "軟體偵測系統是否存在Softice而使軟體無法執行" 之功能 以下加在 Private Sub Form_Load() 裡即可 語法:
Dim hCurrentWindow As Long
Dim buff As String * 255
Dim strText As String
hCurrentWindow = GetWindow(Me.hwnd, GW_HWNDFIRST)
Do While hCurrentWindow <> 0
If ((GetWindowText(hCurrentWindow, buff, 255) > 0) And IsWindowVisible(hCurrentWindow)) Then
strText = Replace(buff, Chr$(0), vbNullString, 1, -1, vbBinaryCompare)
If InStr(1, strText, "Softice", vbTextCompare) = 1 Then End
End If
hCurrentWindow = GetWindow(hCurrentWindow, GW_HWNDNEXT)
Loop
語法:
Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" ( _
ByVal hwnd As Long, _
ByVal lpString As String) As Long
Public Declare Function GetWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal wCmd As Long) As Long
Global Const GW_HWNDFIRST = 0
Global Const GW_HWNDNEXT = 2
此帖於 2006-08-15 02:44 PM 被 mini 編輯. |
|
|
送花文章: 2058,
|