For Delphi，讓你的注冊(cè)機(jī)變小一些[這個(gè)貼子最后由商朝子在 2003/08/20 12:16pm 第 3 次編輯]
For Delphi，讓你的注冊(cè)機(jī)變小一些
請(qǐng)拋棄VCL，如果你嫌自己用Delphi編譯出來(lái)的注冊(cè)機(jī)個(gè)頭兒過(guò)大的話...
事實(shí)上這種事情確實(shí)在發(fā)生，就在今天，就在剛才，在偶還沒(méi)吃飯的時(shí)候就看到一個(gè)網(wǎng)友在這樣抱怨...
的確如此，KeyGen的個(gè)頭兒與它的界面一樣讓人失望，簡(jiǎn)單的form再來(lái)上兩個(gè)Edit，三個(gè)Button。普普通通的界面有著360K這樣的大體積，而上過(guò)殼后那150K的體積同樣不能讓人滿(mǎn)意...
會(huì)造成這樣的結(jié)果，與VCL是脫不了關(guān)系的，事實(shí)上你用Delphi編譯一個(gè)什么也不做的程序也會(huì)有351K，否則你以為為何用Delphi寫(xiě)程序是一件相當(dāng)輕松的事情？
不過(guò)這樣沉重的代價(jià)付到我們可愛(ài)的KeyGen上就有點(diǎn)兒太過(guò)殘忍了，很難想像某天要給一個(gè)大小200K左右的軟件寫(xiě)注冊(cè)機(jī)時(shí)會(huì)是怎樣一個(gè)情景...
來(lái)吧，讓我們想點(diǎn)兒辦法，目前有一些控件可以很好的完成這個(gè)工作，用了它們后你編譯出來(lái)的可執(zhí)行文件的個(gè)頭兒要比平常小很多，不過(guò)我并不打算介紹它們
這并不是什么太高深的東西，相信也不會(huì)很難
扔掉了VCL，我們能使用的東西就只有Pascal語(yǔ)言與API函數(shù)了，但實(shí)際上這就已經(jīng)足夠了:)
這之前先要找個(gè)軟件做例子，大大大大大大大前天看到一個(gè)雜志在海吹敏思硬盤(pán)衛(wèi)士，就Down了一個(gè)下來(lái)，后來(lái)才發(fā)現(xiàn)它對(duì)我沒(méi)任何用處。呵呵，好老的一個(gè)軟件了，一年多沒(méi)更新了吧，估計(jì)注冊(cè)機(jī)漫天飛的都有
先用TRW2000來(lái)擺平它，啟動(dòng)軟件，我的機(jī)器碼是yjeyj239416，隨便輸入一個(gè)注冊(cè)碼，然后用hmemcpy做斷點(diǎn)......
在004a4165處的時(shí)候，我們會(huì)發(fā)現(xiàn)程序會(huì)把正確的注冊(cè)碼裝入edx中，比如這我邊兒的是3887361024，不過(guò)我們對(duì)它不感興趣，在它之上的的004a4160處，才是我們真正感興趣的地方，正確的注冊(cè)碼就是這個(gè)CALL來(lái)計(jì)算的。
按F8跟進(jìn)去,來(lái)到004a3a08處:
0167:004a3a08 push ebp
0167:004a3a09 mov ebp,esp
0167:004a3a0b push byte +00
0167:004a3a0d push byte +00
0167:004a3a0f push byte +00
0167:004a3a11 push ebx
0167:004a3a12 push esi
0167:004a3a13 mov esi,ecx
0167:004a3a15 mov ebx,edx
0167:004a3a17 mov [ebp-04],eax
0167:004a3a1a mov eax,[ebp-04]
0167:004a3a1d call 00404050
0167:004a3a22 xor eax,eax
0167:004a3a24 push ebp
0167:004a3a25 push dword 004a3a6e
0167:004a3a2a push dword [fs:eax]
0167:004a3a2d mov [fs:eax],esp <--掛SEH，不關(guān)咱的事兒
0167:004a3a30 lea edx,[ebp-0c]
0167:004a3a33 mov eax,[ebp-04]
0167:004a3a36 call 004085a8 <--將機(jī)器碼轉(zhuǎn)換為大寫(xiě)字符
0167:004a3a3b mov eax,[ebp-0c]
0167:004a3a3e lea ecx,[ebp-08]
0167:004a3a41 movzx edx,bx <--edx裝入Dh，即十進(jìn)制數(shù)13
0167:004a3a44 call 004a3958 <--完成計(jì)算正確注冊(cè)碼的第一步
0167:004a3a49 mov edx,esi
0167:004a3a4b mov eax,[ebp-08]
0167:004a3a4e call 004a3bdc <-完成計(jì)算正確注冊(cè)碼的第二步
0167:004a3a53 xor eax,eax
0167:004a3a55 pop edx
0167:004a3a56 pop ecx
0167:004a3a57 pop ecx
0167:004a3a58 mov [fs:eax],edx
0167:004a3a5b push dword 004a3a75
0167:004a3a60 lea eax,[ebp-0c]
0167:004a3a63 mov edx,03
0167:004a3a68 call 00403c40
0167:004a3a6d ret
0167:004a3a6e jmp 00403630
0167:004a3a73 jmp short 004a3a60
0167:004a3a75 pop esi
0167:004a3a76 pop ebx
0167:004a3a77 mov esp,ebp
0167:004a3a79 pop ebp
0167:004a3a7a ret
004a3a44處的所謂計(jì)算注冊(cè)碼的第一步就是指先對(duì)機(jī)器碼進(jìn)行一些處理，我們按F8跟進(jìn)去:
0167:004a3958 push ebp
0167:004a3959 mov ebp,esp
0167:004a395b add esp,byte -14
0167:004a395e push ebx
0167:004a395f push esi
0167:004a3960 push edi
0167:004a3961 xor ebx,ebx
0167:004a3963 mov [ebp-14],ebx
0167:004a3966 mov [ebp-0c],ecx
0167:004a3969 mov [ebp-08],edx
0167:004a396c mov [ebp-04],eax
0167:004a396f mov eax,[ebp-04]
0167:004a3972 call 00404050
0167:004a3977 xor eax,eax
0167:004a3979 push ebp
0167:004a397a push dword 004a39f9
0167:004a397f push dword [fs:eax]
0167:004a3982 mov [fs:eax],esp
0167:004a3985 mov eax,[ebp-0c]
0167:004a3988 call 00403c1c
0167:004a398d mov eax,[ebp-08]
0167:004a3990 add eax,[ebp-08]
0167:004a3993 mov [ebp-10],eax
0167:004a3996 mov eax,[ebp-04]
0167:004a3999 call 00403e9c
0167:004a399e mov edi,eax <--eax中此時(shí)裝的是機(jī)器碼的位數(shù)
0167:004a39a0 test edi,edi <--測(cè)試edi
0167:004a39a2 jng 004a39db <--為0就跳到004a39db處
0167:004a39a4 mov esi,01 <--esi置1，用于后邊兒的循環(huán)
0167:004a39a9 mov eax,[ebp-04] <--機(jī)器碼的地址裝入eax中，此時(shí)的機(jī)器碼已轉(zhuǎn)換為大寫(xiě)字符
0167:004a39ac xor ebx,ebx <--ebx清0
0167:004a39ae mov bl,[eax+esi-01] <--得到機(jī)器碼
0167:004a39b2 test esi,01 <--test esi,01可以理解為測(cè)試esi中裝的值是否為雙數(shù)
0167:004a39b8 jnz 004a39bf <--不為雙數(shù)就跳到004a39bf處
0167:004a39ba add ebx,[ebp-08] <--ebp-08處裝的是Dh,也就是那個(gè)13，用其加上ebx中的機(jī)器碼的ASCII碼
0167:004a39bd jmp short 004a39c2 <--無(wú)條件跳轉(zhuǎn)到004a39bd處
0167:004a39bf add ebx,[ebp-10] <--ebp-10處裝的是1Ah,即十進(jìn)制數(shù)26,用其加上ebx中裝的機(jī)器碼的ASCII碼
0167:004a39c2 lea eax,[ebp-14]
0167:004a39c5 mov edx,ebx
0167:004a39c7 call 00403dc4
0167:004a39cc mov edx,[ebp-14]
0167:004a39cf mov eax,[ebp-0c]
0167:004a39d2 call 00408594 <--將得到的ASCII碼與26或13相加后的結(jié)果保存起來(lái)
0167:004a39d7 inc esi <--esi加上1
0167:004a39d8 dec edi <--edi減去1
0167:004a39d9 jnz 004a39a9 <--edi不為零，也就是機(jī)器碼還沒(méi)有全計(jì)算完，就跳回004a39a9處繼續(xù)
0167:004a39db xor eax,eax
0167:004a39dd pop edx
0167:004a39de pop ecx
0167:004a39df pop ecx
0167:004a39e0 mov [fs:eax],edx
0167:004a39e3 push dword 004a3a00
0167:004a39e8 lea eax,[ebp-14]
0167:004a39eb call 00403c1c
0167:004a39f0 lea eax,[ebp-04]
0167:004a39f3 call 00403c1c
0167:004a39f8 ret
0167:004a39f9 jmp 00403630
0167:004a39fe jmp short 004a39e8
0167:004a3a00 pop edi
0167:004a3a01 pop esi
0167:004a3a02 pop ebx
0167:004a3a03 mov esp,ebp
0167:004a3a05 pop ebp
0167:004a3a06 ret
這個(gè)CALL的作用呢，就是這樣的：將機(jī)器碼中的每個(gè)字符的ASCII碼，加上26或13（單位，如第1、3、5位加上26，雙位，如第2、4、6位加上13），并將之保存起來(lái)，以便后面的應(yīng)用。與我的機(jī)器對(duì)應(yīng)的是:sW_fd?MFN>P
好的，我們繼續(xù)，等到返回后，接著走兩步，我們就會(huì)到達(dá)004a3a4e處，在這個(gè)CALL里，會(huì)完成計(jì)算注冊(cè)碼的最后一步，一起去看看吧:
0167:004a3bdc push ebp
0167:004a3bdd mov ebp,esp
0167:004a3bdf add esp,byte -10
0167:004a3be2 push ebx
0167:004a3be3 mov [ebp-08],edx
0167:004a3be6 mov [ebp-04],eax
0167:004a3be9 mov eax,[ebp-04]
0167:004a3bec call 00404050
0167:004a3bf1 xor eax,eax
0167:004a3bf3 push ebp
0167:004a3bf4 push dword 004a3c62
0167:004a3bf9 push dword [fs:eax]
0167:004a3bfc mov [fs:eax],esp
0167:004a3bff mov eax,[ebp-08]
0167:004a3c02 call 00403c1c
0167:004a3c07 mov ebx,1e61 <--ebx裝入1e61h，即十進(jìn)值數(shù)7777
0167:004a3c0c mov eax,[ebp-04]
0167:004a3c0f call 00403e9c
0167:004a3c14 mov edx,eax
0167:004a3c16 test edx,edx
0167:004a3c18 jna 004a3c32
0167:004a3c1a mov eax,01 <--eax中裝入1，用于下邊兒的循環(huán)
0167:004a3c1f mov ecx,[ebp-04] <--ebp-04中裝的正是字符串sW_fd?MFN>P的地址
0167:004a3c22 movzx ecx,byte [ecx+eax-01] <--ecx中裝入本輪用于計(jì)算的字符
0167:004a3c27 add ecx,eax <--ecx加上eax的值
0167:004a3c29 imul ecx,ebx <--乘以ebx，第一次的時(shí)候ebx中的值為前邊裝入的7777
0167:004a3c2c mov ebx,ecx <--結(jié)果裝入ebx中
0167:004a3c2e inc eax <--eax加上1，用于得到下一個(gè)字符
0167:004a3c2f dec edx <--edx減去1
0167:004a3c30 jnz 004a3c1f <--不為零就跳回去繼續(xù)
0167:004a3c32 mov eax,[ebp-08]
0167:004a3c35 push eax
0167:004a3c36 mov [ebp-10],ebx
0167:004a3c39 mov byte [ebp-0c],00
0167:004a3c3d lea edx,[ebp-10]
0167:004a3c40 xor ecx,ecx
0167:004a3c42 mov eax,004a3c78
0167:004a3c47 call 004098ec
0167:004a3c4c xor eax,eax
0167:004a3c4e pop edx
0167:004a3c4f pop ecx
0167:004a3c50 pop ecx
0167:004a3c51 mov [fs:eax],edx
0167:004a3c54 push dword 004a3c69
0167:004a3c59 lea eax,[ebp-04]
0167:004a3c5c call 00403c1c
0167:004a3c61 ret
0167:004a3c62 jmp 00403630
0167:004a3c67 jmp short 004a3c59
0167:004a3c69 pop ebx
0167:004a3c6a mov esp,ebp
0167:004a3c6c pop ebp
0167:004a3c6d ret
嘿嘿，“平民算法”嘛
現(xiàn)在我們手里所掌握的，已足夠?qū)懗鲎?cè)機(jī)了，通常情況下,我們可以聲明這樣一個(gè)函數(shù)用于計(jì)算正確的注冊(cè)碼:
function GetKey(Name: String): String;
var
User,Serial:String;
i:integer;
ASC,jia,Zhi:Cardinal;
begin
zhi:=7777;
User:=UpperCase(Name);
if Length(User)=0 then Result:=‘請(qǐng)輸入您的機(jī)器碼...‘
else
begin
for i:=1 to Length(User) do
begin
ASC:=Ord(User[i]);
if i mod 2 =0 then ASC:=ASC+13
else
ASC:=ASC+26;
ASC:=ASC+i;
jia:=ASC*zhi;
zhi:=jia;
end;
Serial:=inttostr(zhi);
Result:=Serial;
end;
end;
然后我們就可以在Delphi中通過(guò)VCL來(lái)增大我們KeyGen的體積了，但今天我們不準(zhǔn)備這么做
OK,啟動(dòng)你的Delphi，然后新建一個(gè)應(yīng)用程序，然后就在代碼窗口中右鍵Unit1單元->Close Page，接著選No來(lái)把Unit1.Pas給刪除掉。
接著選菜單View->Units，雙擊Project1打開(kāi)它，我們就靠它吃飯了
隨便找個(gè)文件夾把它保存一下，比如說(shuō)保存為KeyGen.dpr。
然后我們可以把它的內(nèi)容給全部刪掉，只留下三行:
program KeyGen;
begin
end.
呵呵，按F9吧，你會(huì)什么也感覺(jué)不到，但事實(shí)上這已經(jīng)是一個(gè)程序了。
如果你看一下所生成的KeyGen.exe的大小，你會(huì)發(fā)現(xiàn)，盡管我們什么也沒(méi)有寫(xiě)，可它已經(jīng)有了8K大。這是因?yàn)樵谌魏蜠ELPHI的目標(biāo)程序中，都會(huì)自動(dòng)包含System單元中的代碼，如果你用Delphi5的話，它會(huì)是16K。在這小小的8K中，包含了支撐整座DELPHI大廈的基石，VeryVery牢靠。
以后隨著我們代碼的增加，程序的大小也會(huì)從8K開(kāi)始慢慢跟著增加
讓我們開(kāi)始吧，我把注冊(cè)機(jī)與資源文件的代碼貼出來(lái)（修正了dREAMtHEATER指出的兩處錯(cuò)誤，同時(shí)代碼更緊湊了一些^_^）:
{-<KeyGen.dpr>------------------------------------Code made >> Suunb[CCG]-----.}
program KenGen;
{$R ‘KenGen.res‘ ‘KenGen.rc‘}
(*感謝dREAMtHEATER老哥的指正:)*) uses
Windows, Messages;
{---------------------------------------------------------<引入相關(guān)單元>------;}
{----Windows.pas里面包含了常量與API的定義,Messages.pas中則包含了消息的定義----;}
const
IDI_CCG = 1 ;
IDC_EDIT_CODE = 3001 ;
IDC_EDIT_SERIAL = 3002 ;
IDC_BUTTON_GENERATE = 3003 ;
IDC_BUTTON_ABOUT = 3004 ;
IDC_BUTTON_EXIT = 3005 ;
IDC_ABOUT_BUTTON_GREETING = 3006 ;
szDlgName = ‘KeyGenMain‘;
szAboutDlg = ‘About‘;
{---------------------------------------------------------<以上為常量定義>----;}
function GetKey(S: String): String;
var
Code,Serial:String;
i:integer;
ASC,Q,P:Cardinal;
NN:array [0..512] of Char;
begin
P:=7777;
Code:=S;
if Length(Code)=0 then Result:=‘請(qǐng)輸入您的機(jī)器碼...‘
else
begin
CharUpperBuff(PChar(Code),Length(S));
for i:=1 to Length(Code) do
begin
ASC:=Ord(Code[i]);
if i mod 2 =0 then ASC:=ASC+13
else
ASC:=ASC+26;
ASC:=ASC+i;
Q:=ASC*P;
P:=Q;
end;
if P>2147483647 then
begin
if (P>2147483647) and (P<3000000000) then
begin
P:=P-2000000000;
if P<100000000 then
wvsprintf(NN,‘0%d‘,@P)
else
wvsprintf(NN,‘%d‘,@P);
Serial:=‘2‘+String(NN);
end
else if (P>3000000000) and (P<4000000000) then
begin
P:=P-3000000000;
if P<100000000 then
wvsprintf(NN,‘0%d‘,@P)
else
wvsprintf(NN,‘%d‘,@P);
Serial:=‘3‘+String(NN);
end
else if (P>4000000000) and (P<5000000000) then
begin
P:=P-4000000000;
if P<100000000 then
wvsprintf(NN,‘0%d‘,@P)
else
wvsprintf(NN,‘%d‘,@P);
Serial:=‘4‘+String(NN);
end
end
else
begin
wvsprintf(NN,‘%d‘,@P);
Serial:=String(NN);
end;
Result:=Serial;
end;
end;
{-------------------------------<上面的這個(gè)函數(shù)就是用來(lái)計(jì)算正確的注冊(cè)碼的>----;}
function AboutProc (Wnd: hWnd; Msg, wParam: Word; lParam: LongInt)
:LongInt; stdcall;
begin
Case Msg of
WM_CLOSE:EndDialog(Wnd,0);
WM_COMMAND:
begin
if (LOWORD(wParam))=IDC_ABOUT_BUTTON_GREETING then EndDialog(Wnd,0)
else Result:=1;
end;
end;
Result:=0;
end;
{-<上面的函數(shù)用于處理“關(guān)于”對(duì)話框接收到的消息，stdcall表示其為一個(gè)回調(diào)函數(shù)>-;}
function DlgProc (Wnd: hWnd; Msg, wParam: Word; lParam: LongInt)
:LongInt; stdcall;
var
Code:array[0..512] of Char;
Serial:String;
begin
Case Msg of
WM_CLOSE:
EndDialog(Wnd,0);
WM_INITDIALOG:
begin
SendMessage(Wnd,WM_SETICON, ICON_SMALL, LoadIcon(hInstance, PChar(IDI_CCG)));
end;
WM_COMMAND:
begin
case (LOWORD(wParam)) of
IDC_BUTTON_about:DialogBoxParam(hInstance,szAboutDlg,Wnd, @AboutProc, 0);
IDC_BUTTON_GENERATE:
begin
GetDlgItemText(Wnd,IDC_EDIT_CODE,Code,512);
Serial:=GetKey(Code);
SetDlgItemText(Wnd,IDC_EDIT_SERIAL,PChar(Serial));
end;
IDC_BUTTON_EXIT:SendMessage(Wnd,WM_CLOSE, 0, 0);
end;
end;
else
Result:=1;
end;
Result:=0;
end;
{---------------------------------<主窗口的消息循環(huán)，同樣為一個(gè)回調(diào)函數(shù)>------;}
begin
DialogBoxParam(hInstance,szDlgName,0,@DlgProc,0);
(*程序開(kāi)始，調(diào)用DialogBoxParam來(lái)創(chuàng)建程序的主對(duì)話框，hInstance是Delphi提供
給我們的全局變量，不必再去調(diào)用GetModuleHandle函數(shù)*)
{經(jīng)dREAMtHEATER指正，Delphi會(huì)自動(dòng)調(diào)用ExitProcess函數(shù)，所以將其免去...}
end.
//------------------------------------------------------------------------------
//------------------the Shang Dynasty (16th―11th century B.C.)-----------------
//--------------------------------------------------------------------Code end--
下面再把資源文件也貼出來(lái):
//-KeyGen.rc-------------------------------------------------by Suunb[CCG]--
#define CCG_ICO 1
#define Su_ICO 2
#define IDC_EDIT_CODE 3001
#define IDC_EDIT_SERIAL 3002
#define IDC_BUTTON_GENERATE 3003
#define IDC_BUTTON_ABOUT 3004
#define IDC_BUTTON_EXIT 3005
#define IDC_ABOUT_BUTTON_GREETING 3006
//-------------------------------------------<以上是一些常量的定義>---------
KeyGenMain DIALOGEX 10, 10, 163, 94
style DS_CENTER | WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "CCG KeyGen for 敏思硬盤(pán)衛(wèi)士 v2.2"
FONT 9, "Arial"
BEGIN
GROUPBOX "register",-1,5,3,151,44,BS_FLAT
LTEXT "Code:",-1,10,14,23,10
EDITTEXT IDC_EDIT_CODE,35,13,115,12,ES_AUTOHSCROLL,WS_EX_DLGMODALFRAME
LTEXT "Serial:",-1,10,29,23,10
EDITTEXT IDC_EDIT_SERIAL,35,29,115,12,ES_AUTOHSCROLL,WS_EX_DLGMODALFRAME
PUSHBUTTON "gENERATE",IDC_BUTTON_GENERATE,13,54,39,11,BS_CENTER | BS_FLAT
PUSHBUTTON "aBOUT",IDC_BUTTON_ABOUT,61,54,39,11,BS_CENTER | BS_FLAT
PUSHBUTTON "eXIT",IDC_BUTTON_EXIT,108,54,39,11,BS_CENTER | BS_FLAT
LTEXT "wish it becorning more prosperous every day!",-1,10,77,
143,9
GROUPBOX "Lovely CCG",-1,6,69,151,21,BS_CENTER | BS_FLAT
END
//--------------------------------------------<以上是程序的的主窗口對(duì)話框>---------
About DIALOGEX 10, 10, 143, 141
style DS_MODALFRAME | DS_CENTER | WS_POPUP | WS_VISIBLE | WS_CAPTION |
WS_SYSMENU
CAPTION "The Shang Dynasty (16th - 11th century B.C.)"
FONT 9, "Arial"
BEGIN
ICON 1,-1,13,14,20,20
LTEXT "Code made:",-1,25,3,41,8
LTEXT "by",-1,40,13,8,8
LTEXT "Date:April 26t,2003",-1,48,25,61,9
CONTROL "",-1,"Static",SS_ETCHEDHORZ,4,36,132,1
LTEXT "Personal Individual Greetings go to:",-1,19,41,114,8
LTEXT "Sun Bird - JOJO - KANXUE",-1,11,51,85,9
LTEXT "pll621 - zmworm - yyxzz",-1,46,62,73,9,SS_CENTERIMAGE
LTEXT "Personal Group Greetings go to:",-1,22,87,105,8
LTEXT "BCG FCG iPB DFCG DCM",-1,28,101,85,9,WS_BORDER
LTEXT "Suunb[CCG]",-1,50,12,45,11,0,WS_EX_DLGMODALFRAME
LTEXT "and other CCG guys...",-1,29,74,92,9,SS_CENTERIMAGE
ICON 2,-1,112,14,20,20
PUSHBUTTON "gREETING",IDC_ABOUT_BUTTON_GREETING,50,120,41,12,BS_FLAT
END
//--------------------------------------------<這個(gè)是“關(guān)于”對(duì)話框>--------
你可以用記事本將這兩個(gè)文件分別保存為KeyGen.dpr、KeyGen.rc，之后將KeyGen.rc與KeyGen.dpr放置同一目錄下用Delphi編譯KeyGen.dpr即可...
看一下編譯后的KeyGen的大小吧，20.5K，再來(lái)個(gè)殼就只有10幾K了，雖然界面并不怎么漂亮
OK，就到這兒。
