——本人僅是一名初學者，如有疏漏之處，還請列位前輩們指教，謝謝！[email protected]
共享軟件是軟件業目前世界上比較熱門的話題，國內更是如此。成千上萬的中國程序員以極大的熱情投入到這個領域來，都憧憬著用辛勤的勞動來獲得豐厚的回報；但，實際並非如此，絕大多數的人都弑羽而歸。值得注意的是：除了選題和技術上的原因外，最大的原因就是共享軟件被破解（Crack）了。
{ 利用RSA進行注冊碼的數字簽名驗證 }
if RSAVerify(MD5(Key), MD5(Code), e, n) then
ShowMessage('注冊成功！')
else
ShowMessage('注冊失敗！');
{ 這裡Key是用戶輸入的注冊碼，是由你發送給注冊用戶的 }
{ Code是根據用戶輸入的用戶名自動計算出來的注冊碼 }
{ e是RSA算法的公匙，而n是RSA算法的模數。 }
{ 將邏輯判斷改為否 }
if not RSAVerify(MD5(Key), MD5(Code), e, n) then
ShowMessage('注冊成功！')
else
ShowMessage('注冊失敗！');
{ 探測FileMon }
function DetectFileMon: Boolean;
begin
if CreateFile(PChar('.FILEVXD'),
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0) <> INVALID_HANDLE_VALUE then
Result := True //如果有，就Down機！
else
Result := False;
end;
EncryptedCode = Blowfish(MD5(UserName), MD5(Key));
//你的加密算法，使用了Blowfish（對稱算法）和MD5（Hash算法）
0167:005B9F70 MOV EAX,[EBP-10]
0167:005B9F73 CALL 00404000
0167:005B9F78 PUSH EAX
0167:005B9F79 MOV EAX,[EBP-10]
0167:005B9F7C CALL 004041C4
0167:005B9F81 LEA ECX,[EBP-14]
0167:005B9F84 POP EDX
0167:005B9F85 CALL 004B860C
{ 檢查自己的進程的父進程是否為Explorer.exe，否則是被調試器加載了 }
{ 不過注意，控制台程序的父進程在WinNT下是Cmd.exe哦！}
{ 注意加載TlHelp32.pas單元 }
procedure CheckParentProc;
var //檢查自己的進程的父進程
Pn: TProcesseNtry32;
sHandle: THandle;
H, ExplProc, ParentProc: Hwnd;
Found: Boolean;
Buffer: array[0..1023] of Char;
Path: string;
begin
H := 0;
ExplProc := 0;
ParentProc := 0;
//得到Windows的目錄
SetString(Path,
Buffer,
GetWindowsDirectory(Buffer, Sizeof(Buffer) - 1));
Path := UpperCase(Path) + 'EXPLORER.EXE'; //得到Explorer的路徑
//得到所有進程的列表快照
sHandle := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
Found := Process32First(sHandle, Pn); //查找進程
while Found do //遍歷所有進程
begin
if Pn.szExeFile = ParamStr(0) then //自己的進程
begin
ParentProc := Pn.th32ParentProcessID; //得到父進程的進程ID
//父進程的句柄
H := OpenProcess(PROCESS_ALL_Access, True, Pn.th32ParentProcessID);
end
else if UpperCase(Pn.szExeFile) = Path then
ExplProc := Pn.th32ProcessID; //Explorer的PID
Found := Process32Next(sHandle, Pn); //查找下一個
end;
//嗯，父進程不是Explorer，是調試器……
if ParentProc <> ExplProc then
begin
TerminateProcess(H, 0); //殺之！除之而後快耶！ :)
//你還可以加上其它什麼死機代碼來消遣消遣這位可愛的Cracker :)
end;
end;
