论文---运行有管理员权限的程序生成器.docVIP

系统管理员权限生成器 作者:冯林江 内容提要关键词 在delphi 快速开发工具里，正好用CreateProcessWithLogonW这个函数，可以实现windows 下的runas功能。Runas是在xp下的命令。 Runas允许用户用其他权限运行指定的工具和程序，而不是用户当前登录提供的权限。管理员可以使用一个权限受限制的帐户执行日常、非管理性的任务，只有在执行特定管理任务时，才使用一个权限更大的帐户。要不经过注销再重新登录就完成这样的任务，可以用一般帐户登录，然后使用 runas 命令来运行需要更大权限的工具。 本程序的重点就是利用CreateProcessWithLogonW封装runas的繁杂操作，一键搞定所有问题 三 软件功能分析 如何封装呢？直接密码用户直接写在程序里，那这个软件就只能适合本公司，而且每次都要重新编辑程序，这样灵活度不高。为了高效的利用好这个程序，我们有必要做出一个程序生成器，把一切安全机密东西封闭起来，让维护人员通过简单的配制，快速做出维护更新包。 软件必须实现runas?功能myrunas.exe 是windows下相当runas功能程序，他通过三个配制文件来运行 filesize.ini记录要有管理权限下运行的程序文件大小，为了是防止非法用户用提权程序替换当前目录下的myexe.exe文件。 user.ini记录有管理权限用户。 mima.ini 记录有管理权限用户密码。 三个ini文件内容都是经过主程序加过密生成的。 五 软件使用过程 把要在管理权运行的文件名心成myexe.exe 并与主程序放在一个目录下 ，记下这个文件在字节大小589,878 字节 打开主程序，写上相应的大小与用户名、密码。 点击生成就可以了，会在当前目录下生成四个文件。 然后把myexe.exe filesize.ini mima.ini myrunas.exe user.ini压缩打包成一个exe文件就可以了 六 软件代码 unit jiami; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Efilesize: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Memo1: TMemo; Memo2: TMemo; Memo3: TMemo; Button4: TButton; Label3: TLabel; Label4: TLabel; Image1: TImage; Label5: TLabel; Memo4: TMemo; Label6: TLabel; Label7: TLabel; Label8: TLabel; Image2: TImage; Label9: TLabel; Label10: TLabel; Label11: TLabel; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public function EnCode(aCryptograph,aKey:string):string; function DeCode(aCryptograph,aKey:string):string; function ExtractRes(ResType, ResName, ResNewName: string): boolean; { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } function TForm1.DeCode(aCrypt