小商品软件的加密方法

---- 这里关键的代码是启动一个DOS程序，等待它结束，并得到返回码。请参看下面的Delphi函数WinExecAndWait32： Function WinExecAndWait32(FileName :

String; Visibility : integer):dWord; var zAppName:array[0..512] of char; zCurDir:array[0..255] of char; WorkDir:String; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation; begin StrPCopy(zAppName,FileName); GetDir(0,WorkDir); StrPCopy(zCurDir,WorkDir); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Visibility; if not CreateProcess(nil, zAppName, { pointer to command line string } nil, { pointer to process security attributes } nil, { pointer to thread security attributes } false, { handle inheritance flag } CREATE_NEW_CONSOLE or { creation flags } NORMAL_PRIORITY_CLASS, nil, { pointer to new environment block } nil, { pointer to current directory name } StartupInfo, { pointer to STARTUPINFO } ProcessInfo) then Result := 0 { pointer to PROCESS_INF } else begin WaitforSingleObject(ProcessInfo.hProcess,INFINITE); GetExitCodeProcess(ProcessInfo.hProcess,Result); end; end;

---- 在FileName中给出DOS加密认证程序的名称（带绝对路径），在Visibility中给出是否需要DOS程序的窗口可见，一般设为不可见。这种方法在我们的多个小商品软件中使用，效果良好。

---- 需要注意的是这种加密方法在Windows NT中无法运行，因为NT不支持DOS程序直接访问硬件。考虑到操作系统最终会过渡到Windows NT，程序无法直接访问硬件，如何低成本地实现小商品的加密就是一个让人关心的问题。这方面我们还在探索，欢迎有经验的朋友介绍一下。

查看本文来源