用BCB开拓怀孕份认证成果的Email措施
副标题#e#
摘 要 本文先容了如何加强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，然后差几个字符补几个‘=’号。
#p#副标题#e#
设计思路
我们可以利用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编码转换
#p#分页标题#e#
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编写及调试的，别离利用网易和新浪邮箱做尝试，都可以顺利完成身份认证以及邮件发送成果。
