共享软件防破解的实用招法
作者 凌众技术
来源 互联网
浏览
发布时间 2012-01-14
| 保密程度很高的算法，并且全部改名，这样就会伤透他们脑筋了。 当然，最好把Hash算法也全部改名，会给他们制造更多的困难。但注意，MD5和SHA之类的Hash初始值会被Cracker从内存中找到，这样他就知道你用的Hash了。所以建议同时使用MD5的变形算法Ripe-MD（RMD）128或160或其它的Hash，如Tiger、Haval等算法。 第三招：阻止别人调试 还有一点，调试器对我们的威胁很大，我们不会让Cracker们舒舒服服地使用SoftICE、TRW或OllyDbg来调试我们的程序。除了常用的MeItICE方法外，这里我给一个笔者写的方法： {检查自己的进程的父进程是否为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）+ '\EX PLORER.EXE'；//得到Explorer的路径 //得到所有进程的列表快照 sHandle:= CreateToolHelp32Snap Shot（TH32CS_SNAPALL，0）； Found:= Process32First（sHandle，Pn）；//查找进程 while Found do //遍历所有进程 begin if Pn.szExeFile = ParamStr（0）then //自己的进程 begin ParentProc:= Pn.th32ParentProcessID://得到父进程的进程ID //父进程的句柄 H:= OpenProcess（PRO CESS_ALL_ACCESS，True，Pn.th32Parent ProcessID）； end else if UpperCase（Pn.szExeFile）= Path then ExplProc:= Pn.th32ProcessID；//Ex plorer的PID Found:= Process32Next（sHandle，Pn）；//查找下一个 end； //父进程不是Explorer，是调试器…… if ParentProc <> ExplProc then begin TerminateProcess（H，0）；//杀之!除之而后快也! :） //你还可以加上其它什么死机代码来消遣消遣这位可爱的Cracker:） end end |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: Delphi中资源文件使用详解下一篇: Dephi资源文件中、高级应用篇
关于共享软件防破解的实用招法的所有评论
