防止用DeDe軟體反編譯delphi程式 (轉)

防止用DeDe軟體反編譯delphi程式 (轉)[@more@]

防止用DeDe反編譯
這裡有一篇防止用DeDe軟體反編譯delphi程式～
用『』裡的是我的註釋，其餘的是原創作～

Program Project1;

Uses
　　Forms,
　　,
　　sysutils,
　　Unit1 In 'Unit1.pas' {Form1},
　　Unit2 In 'Unit2.pas' {Form2};

Function RegisterServiceProcess(dwProcessId, dwType: d): Integer; Stdcall;
　　External 'kernel32.dll'
{$R *.RES}
Var
　　HMUTEX: HWND;
　　RET: INTEGER;
　　hCurrentWindow: HWnd; //反編譯要的
　　szText: Array[0..254] Of char; //反編譯要的
Begin
　　Application.Initialize;
　　APPLICATION.TITLE := 'delphi葵花寶典 設計:張國鵬';
　　RegisterServiceProcess(GetCurrentProcessID, 1); //讓程式在Ctl+Alt+Del中消失.

  『我們可以看到作者用RegisterServiceProcess把程式註冊成了WINDOWS服務程式～』
  『但大家都知道這個包含在kernel32裡，而且只在98/ME中管用～』
  『所以並不要把這項作為反編譯的關鍵，可以說可有可無～』

　　//防止反編譯開始
　　hCurrentWindow := GetWindow(APPLICATION.Handle, GW_HWNDFIRST);

  『由上面知道作者想知道自己的程式視窗是不是最頂級的視窗』

　　While hCurrentWindow <> 0 Do
　　Begin
　　　　If GetWindowText(hCurrentWindow, @szText, 255) > 0 Then
　　　　　　If pos('DeDe', StrPas(@szText)) <> 0 Then

  『如果不是，則獲取現在頂機窗體的標題，在做判斷是不是"DeDe"』

　　　　　　Begin
　　　　　　　　APPLICATION.MESSAGEBOX('想反編譯我？沒那麼容易！',
　　　　　　　　　　'哈哈......你這傢伙！', mb_ok);
　　　　　　　　//closewindow(hCurrentWindow);//使該程式視窗最小化
　　　　　　　　enablewindow(hCurrentWindow, false);
　　　　　　　　//使該程式的視窗不能被啟用 如果能獲取該程式的執行緒ID號，則可以使該程式又不能使用，又不能關閉，酷吧？

  『以上這兩句是對DEDE的處理～』
  『closewindow:為把制定的視窗最小化，但視窗不會從中清除～』
  『enablewindow:指定的視窗裡允許/禁止所滑鼠和鍵盤的輸入，false肯定是不能了～』

　　　　　　　　halt;
　　　　　　End;
　　　　hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
　　End;
　　//防止反編譯結束
　　//防止程式的二次執行
　　HMUTEX := CREATEMUTEX(Nil, FALSE, 'delphi葵花寶典 設計:張國鵬');
　　RET := GETLASTERROR;
　　If RET <> ERROR_ALREADY_EXISTS Then
　　Begin
　　　　Application.CreateForm(TForm1, Form1);
　　　　// Application.CreateForm(TForm2, Form2);
　　　　Application.Run;
　　End
　　Else
　　　　APPLICATION.MESSAGEBOX('程式已經執行!', '提示', mb_ok);
　　releasemutex(hmutex);

End.

『談談我的看法，這種方法也許是一種簡單的防止反編譯的做法，但由於過於簡單了，』
『到現在就不是很有用了，也許可以對付一些初學的朋友，我們可以看到查詢視窗的名』
『字為"DEDE"也就是說它只是一個字串，在程式中沒有很重要的地位，也就是不耽誤』
『程式的執行，我們可以藉助一些軟體把程式中所有的"DEDE"改為別的字元，呵呵，這』
『程式可是沒有邏輯思維的，改後可就對"DEDE"沒有辦法了^_^～～～～～～』