用BCB開發有身份認證功能的Email程式

　　 摘 要 本文介紹了如何增強BCB中寄送電子郵件的NMSMTP控制項的功能，實現具有身份認證功能的郵件發送程式。

　　關鍵詞 ESMTP，MIME，身份認證

　　引言

　　為了更有效地抑制垃圾郵件的泛濫，目前多數網站的郵件收發系統都使用了ESMTP服務的身份認證功能。即使用者發送郵件時，需要對使用者的身份進行驗證，如果帳號或密碼錯誤，郵件伺服器會拒絕發送郵件。Borland C++ Builder 6中有豐富的控制項供開發人員使用，其中當然也包括郵件發送控制項NMSMTP，這個控制項使用方便，但是惟一的缺點是不支援郵件發送時的身份認證功能。筆者通過對郵件發送協議的分析，在使用控制項的基礎上設計了具有身份認證功能的郵件發送程式。

　　ESMTP協議分析

　　為了實現身份認證功能，目前ESMTP協議中增加了一部分內容，這就是身份認證。下面我們看看這段認證過程，以筆者在網易的郵箱為例（其中C表示用戶端，S表示郵件伺服器）：

　　(1)C: AUTH LOGIN

　　(2)S: 334 dXNlcm5hbWU6

　　(3)C: d3lxX2puX3NkX2Nu

　　(4)S: 334 UGFzc3dvcmQ6

　　(5)C: 密碼略去

　　(6)S: 235 Authentication successful

　　詳細說明：

　　(1)用戶端向伺服器發送認證指令。

　　(2)伺服器返回Base64編碼串，334意味成功。編碼字串解碼後為"username:"，說明要求用戶端發送使用者名稱。

　　(3)用戶端發送Base64編碼的使用者名稱串，此處為"wyq_jn_sd_cn"。

　　(4)伺服器返回Base64編碼串，334意味成功。編碼字串解碼後為"password:"，說明要求用戶端發送使用者口令。

　　(5)用戶端發送Base64編碼的口令串，此處略去。

　　(6)伺服器返回一般字元串，235意味成功，表示認證成功可以發送郵件了。

　　MIME Base64編碼解釋

　　一般的電腦編碼的一個位元組是8bit，0——FF就是256種不同的8bit組合。我們現在要介紹的這種Base64編碼則是每個位元組6bit，共有26=64種組合。其中每種組合對應一個字元，這些字元是“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567 89+/。”這就意味著每3個普通編碼可以轉換成4個Base64編碼，那麼如果需要轉換的普通編碼不是3的整數倍怎麼辦？Base64規定，位元不足的位元組後面補0，然後差幾個字元補幾個‘=’號。

　　設計思路

　　我們可以使用NMSMTP控制項與郵件伺服器串連。通過調用Connect方法，然後監聽OnConnect事件；在OnConnect事件裡我們可以增加身份認證功能。這裡是主要利用了NMSMTP從Powersock中繼承的一些基本網路通訊函數，包括Read,DataAvailable,SendBuffer等來實現身份認證過程。如果身份認證成功，就可以繼續進行郵件發送；否則，提示錯誤資訊，斷開網路連接。

　　程式實現

　　使用BCB設計1所示的表單。

圖1 程式主介面

　　1、在登入按鈕的OnClick事件中調用串連函數

void __fastcall TForm1::Logon1Click(TObject *Sender) { 　　 AddLog("正在登入"+Edit1->Text+"......"); 　　 NMSMTP1->Host = Edit1->Text; 　　　　 //主機地址 　　 NMSMTP1->Port = 25; 　　　　 //主機連接埠，預設為25 　　 NMSMTP1->UserID = Edit4->Text;　　　　 //使用者名稱 　　 NMSMTP1->Connect(); 　　　　 //串連主機 }

　　 2、處理OnConnect事件

void __fastcall TForm1::NMSMTP1Connect(TObject *Sender) { 　AddLog("串連伺服器成功。"); 　AnsiString Data="",rData=""; 　bool b_ok; 　if(CheckBox1->Checked){ 　　Data="AUTH LOGIN/r/n";　　　　 //登入請求命令　　　　　　　　 　　NMSMTP1->SendBuffer(Data.c_str(),Data.Length()); //命令發出 　　rData = WaitForReply(5);　　　　 //等待接收返回資料，5秒內必須返回 　　b_ok = false; 　　if(rData.Length()>=3){ 　　　//334意味著伺服器要求輸入使用者名稱 　　　if(rData.TrimLeft().SubString(0,3)=="334"){ 　　　　AddLog("正在驗證身份......"); 　　　　b_ok =true; 　　　} 　} 　if(!b_ok){ 　　AddLog("登入失敗，正在退出......"); 　　NMSMTP1->Disconnect(); 　　return; 　} 　rData=""; 　Data=encode(Edit4->Text)+"/r/n";　　 //使用者名稱轉換為Base64編碼。 　NMSMTP1->SendBuffer(Data.c_str(),Data.Length()); //發送使用者名稱 　rData = WaitForReply(5); 　b_ok=false; 　if(rData.Length()>=3){ 　　// 334意味著伺服器要求輸入口令 　　if(rData.TrimLeft().SubString(0,3)=="334"){ 　　　AddLog("正在驗證口令......"); 　　　b_ok =true; 　　} 　} 　if(!b_ok){ 　　AddLog("登入失敗，正在退出......"); 　　NMSMTP1->Disconnect(); 　　return; 　} 　rData=""; 　Data=encode(Edit5->Text)+"/r/n";//口令轉換成Base64編碼。 　NMSMTP1->SendBuffer(Data.c_str(),Data.Length()); //發送口令 　rData=WaitForReply(5); 　b_ok = false; 　if(rData.Length()>=3){ 　　if(rData.TrimLeft().SubString(0,3)=="235"){ 　　　AddLog("登入成功......"); 　　　b_ok =true; 　　} 　} 　if(!b_ok){ 　　AddLog("登入失敗，正在退出......"); 　　NMSMTP1->Disconnect(); 　　return; 　} } SendMail->Enabled=true; 　　　　 //允許發送郵件 disconnect->Enabled=true;　　 //允許中斷連線 Logon1->Enabled=false; 　　　　 //不允許再次登入 }

　　3、MIME Base64編碼轉換

AnsiString TForm1::encode(AnsiString s) { 　int m_len; //字串長度 　int i; //迴圈變數 　int m_tmp; //臨時變數 　AnsiString m_64code; //儲存Base64編碼的字串 　char* m_s; //臨時儲存參數字串 　 　//Base64字元表 　char m_64[]= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; 　m_len = s.Length();　　　　 //取得字串長度 　m_s = s.c_str();　　　　　　 　m_64code="";　　　　　　　　 //返回串置空 　//處理3的倍數以內的字元 　for(i=0;i<m_len-m_len%3;i+=3){ 　　m_tmp=m_s[i]/4; 　　m_64code+=m_64[m_tmp]; 　　m_tmp=m_s[i]%4*16 + m_s[i+1]/16; 　　m_64code+=m_64[m_tmp]; 　　m_tmp=m_s[i+1]%16*4 + m_s[i+2]/64; 　　m_64code+=m_64[m_tmp]; 　　m_tmp=m_s[i+2]%64; 　　m_64code+=m_64[m_tmp]; 　} 　//如果字串的長度被3除餘2 ,不足的位元補0，尾部補“=” 　if(m_len%3==2){ 　 　　m_tmp=m_s[m_len-2]/4; 　　m_64code+=m_64[m_tmp]; 　　m_tmp=m_s[m_len-2]%4*16+m_s[m_len-1]/16; 　　m_64code+=m_64[m_tmp]; 　　m_tmp=m_s[m_len-1]%16*4; 　　m_64code+=m_64[m_tmp]; 　　m_64code+='='; 　} 　//如果字串的長度被3除餘1 ，不足的位元補0，尾部補兩個“=” 　if(m_len%3==1){ 　　m_tmp=m_s[m_len-1]/4; 　　m_64code+=m_64[m_tmp]; 　　m_tmp=m_s[m_len-1]%4*16; 　　m_64code+=m_64[m_tmp]; 　　m_64code+="=="; 　} 　return m_64code; }

　　結束語

　　本程式在Windows 2000環境下使用Borland C++ Builder 6.0編寫及調試的，分別使用網易和新浪郵箱做實驗，都可以順利完成身份認證以及郵件發送功能。