基于TClientSocket简单模拟需要验证的SMTP邮件发送附件(C++Builder)

1. //---------------------------------------------------------------------------
3. #include <vcl.h>
4. #pragma hdrstop
5. #include <dos.h>
6. #include "Mail.h"
7. //---------------------------------------------------------------------------
8. #pragma package(smart_init)
9. #pragma resource "*.dfm"
10. TForm1 *Form1;
11. //---------------------------------------------------------------------------
12. __fastcall TForm1::TForm1(TComponent* Owner)
13.         : TForm(Owner)
14. {
15. }
16. //---------------------------------------------------------------------------
17. //#define BUFFER_SIZE   0x0348 /*  840 Max Stack Size 64kb*/
18. #define BUFFER_SIZE 0x1DE5 /* 7653                    */
19. #define BUFFER_SIZE_3   BUFFER_SIZE*(57+0)
20. #define BUFFER_SIZE_4   BUFFER_SIZE*(76+2)
22. AnsiString EncodeBase64Char(char Value[],int Len)
23. {
25.    char Buffer[BUFFER_SIZE_4+1];
27.    char Base64Table[64]={'A','B','C','D','E','F','G','H',
28.                          'I','J','K','L','M','N','O','P',
29.                          'Q','R','S','T','U','V','W','X',
30.                          'Y','Z','a','b','c','d','e','f',
31.                          'g','h','i','j','k','l','m','n',
32.                          'o','p','q','r','s','t','u','v',
33.                          'w','x','y','z','0','1','2','3',
34.                          '4','5','6','7','8','9','+','/'
35.                         };
36.    for(int i=0;i<Len;i+=3)
37.    {
38.       //____________________________________________________
39.       //　　↓☆☆☆☆↓                                   
40.       //００１１１１１１１１１１１１１１１１１１１１１１１１
41.       //　　├→　１　　←┤├→　２　　←┤├→　３　　←┤
42.       //　　８７６５４３２１８７６５４３２１８７６５４３２１
43.       //００１１１１１１
44.       //----------------------------------------------------
45.       Buffer[i/57*2+i/3+i+0]=Base64Table[(Value[i]>>2)&0x003f];
46.       //____________________________________________________
47.       //　　　　　　　　↓☆☆☆☆↓                                   
48.       //００１１１１１１１１１１１１１１１１１１１１１１１１
49.       //　　├→　１　　←┤├→　２　　←┤├→　３　　←┤
50.       //　　８７６５４３２１８７６５４３２１８７６５４３２１
51.       //　　　　　　００１１１１１１
52.       //----------------------------------------------------
53.       Buffer[i/57*2+i/3+i+1]=Base64Table[((Value[i]&0x0003)<<4)|
54.                                          ((Value[i+1]>>4)&0x000f)];
55.       //____________________________________________________
56.       //　　　　　　　　　　　　　　↓☆☆☆☆↓                                   
57.       //００１１１１１１１１１１１１１１１１１１１１１１１１
58.       //　　├→　１　　←┤├→　２　　←┤├→　３　　←┤
59.       //　　８７６５４３２１８７６５４３２１８７６５４３２１
60.       //　　　　　　　　　　　　００１１１１１１
61.       //----------------------------------------------------
62.       Buffer[i/57*2+i/3+i+2]=Base64Table[(((Value[i+1]&0x000f)<<2))|
63.                                           ((Value[i+2]>>6)&0x0003)];
64.       //____________________________________________________
65.       //　　　　　　　　　　　　　　　　　　　　↓☆☆☆☆↓                                   
66.       //００１１１１１１１１１１１１１１１１１１１１１１１１
67.       //　　├→　１　　←┤├→　２　　←┤├→　３　　←┤
68.       //　　８７６５４３２１８７６５４３２１８７６５４３２１
69.       //　　　　　　　　　　　　　　　　　　００１１１１１１
70.       //----------------------------------------------------
71.       Buffer[i/57*2+i/3+i+3]=Base64Table[Value[i+2]&0x003f];
73.       Buffer[i/57*2+i/3+i+4]='/0';
75.       if((i+3)%57==0)
76.       {
77.          Buffer[i/57*2+i/3+i+4]='/r';
78.          Buffer[i/57*2+i/3+i+5]='/n';
79.       }
80.    }
82.    Buffer[BUFFER_SIZE_4]='/0';
84.    return AnsiString(Buffer);
85. }
86. void EncodeBase64File(AnsiString FileName,TStream *DestStream)
87. {
88.    __int64 i;
89.    int sLen;
90.    int ssLen;
91.    AnsiString DestString;
92.    char Buffer[BUFFER_SIZE_3];
93.    TFileStream *SourceStream;
94.    SourceStream=new TFileStream(FileName,fmOpenRead|fmShareDenyWrite);
95.    try
96.    {
97.       for(i=0;i<SourceStream->Size;i+=BUFFER_SIZE_3)
98.       {
99.          ssLen=SourceStream->Size-i;
100.          if(ssLen>BUFFER_SIZE_3)
101.             ssLen=BUFFER_SIZE_3;
102.          SourceStream->ReadBuffer(&Buffer,ssLen);
103.          sLen=ssLen;
104.          switch(ssLen%3)
105.          {
106.             case 2:
107.                   Buffer[ssLen+1]='/0';
108.                   sLen+=1;
109.             case 1:
110.                   Buffer[ssLen+0]='/0';
111.                   sLen+=1;
112.          }
113.          DestString=EncodeBase64Char(Buffer,sLen);
114.          sLen=DestString.Length();
115.          DestStream->Seek(0,soFromEnd);
116.          DestStream->WriteBuffer(DestString.c_str(),sLen);
117.          ssLen=4;
118.          if(DestString.c_str()[sLen]=='/n')
119.             ssLen+=2;
120.       }
121.       switch(SourceStream->Size%3)
122.       {
123.          case 1:
124.                DestString="==";
125.                DestStream->Seek(2-ssLen,soFromEnd);
126.                DestStream->WriteBuffer(DestString.c_str(),DestString.Length());
127.                break;
128.          case 2:
129.                DestString="=";
130.                DestStream->Seek(3-ssLen,soFromEnd);
131.                DestStream->WriteBuffer(DestString.c_str(),DestString.Length());
132.       }
133.    }
134.    __finally
135.    {
136.       SourceStream->Free();
137.    }
138. }
139. AnsiString Base64EnTable(int so)
140. {
141.    if(so>=0&&so<=25)
142.       return AnsiString((char)(so+65));
143.    if(so>=26&&so<=51)
144.       return AnsiString((char)(so+71));
145.    if(so>=52&&so<=61)
146.       return AnsiString((char)(so-4));
147.    if(so==62)
148.       return "+";
149.    return "/";
150. }
152. AnsiString EncodeBase64(AnsiString source)
153. {
154.    AnsiString dest="",addtail="";
155.    if(source.Length()==0)
156.       return "";
157.    for(int j=0;j<source.Length();j+=3)
158.    {
159.       int k,k1,l,l1,m,m1,n,mn;
160.       k=source.c_str()[j];
161.       j+1>source.Length()?l=0:l=source.c_str()[j+1];
162.       j+2>source.Length()?m=0:m=source.c_str()[j+2];
164.       k&=0xFF;  //read a unsigned char
165.       l&=0xFF;
166.       m&=0xFF;
168.       mn=k<<16; //make three characters to a 4-bit number
169.       mn+=l<<8;
170.       mn+=m;
172.       k1=mn>>18;//the first character's index in base64table
173.       k1&=0x3F;
174.       l1=mn>>12;//the second
175.       l1&=0x3F;
176.       m1=mn>>6; //the third
177.       m1&=0x3F;
178.       n=mn&0x3F;//the fourth
180.       dest+=Base64EnTable(k1)+Base64EnTable(l1)+
181.         Base64EnTable(m1)+Base64EnTable(n);
182.       if((j+3)%57==0)
183.          dest+="/r/n";
184.    }
185.    switch(source.Length()%3)
186.    {
187.       case 1:
188.              dest=dest.SubString(1,dest.Length()-2);
189.              dest+="==";
190.              break;
191.       case 2:
192.              dest=dest.SubString(1,dest.Length()-1);
193.              dest+="=";
194.              break;
195.    }
196.    return dest;
197. }
199. void __fastcall TForm1::AddClick(TObject *Sender)
200. {
201. if(OpenDialog1->Execute())
202. {
203. Attach->Items->AddStrings(OpenDialog1->Files);
204. }
205. }
206. //---------------------------------------------------------------------------
208. void __fastcall TForm1::AttachClick(TObject *Sender)
209. {
210. if(Attach->SelCount>0)
211.    Del->Enabled=true;
212. else
213.    Del->Enabled=false;
214. }
215. //---------------------------------------------------------------------------
216. void __fastcall TForm1::DelClick(TObject *Sender)
217. {
218. Attach->DeleteSelected();
219. }
220. //---------------------------------------------------------------------------
221. void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
222.       TCustomWinSocket *Socket)
223. {
224. AnsiString t=Socket->ReceiveText();
225. AnsiString SendMsg;
226. Mess->Lines->Add(t.SubString(1,t.Length()-2));
227. switch(ppp)
228. {
229. case 0:
230.         ppp++;
231.         SendMsg="EHLO "+SMTPSERVER->Text.Trim()+"/r/n";
232.         if(!AUTH->Checked)
233.         {
234.            ppp+=3;
235.            SendMsg="HELO "+SMTPSERVER->Text.Trim()+"/r/n";
236.         }
237.         Mess->Lines->Add(SendMsg.SubString(1,SendMsg.Length()-2));
238.         Socket->SendText(SendMsg);
239.         break;
240. case 1:
241.         ppp++;
242.         SendMsg="AUTH LOGIN/r/n";
243.         Mess->Lines->Add(SendMsg.SubString(1,SendMsg.Length()-2));
244.         Socket->SendText(SendMsg);
245.         break;
246. case 2:
247.         ppp++;
248.         SendMsg=EncodeBase64(USERID->Text)+"/r/n";
249.         Mess->Lines->Add(SendMsg.SubString(1,SendMsg.Length()-2));
250.         Socket->SendText(SendMsg);
251.         break;
252. case 3:
253.         ppp++;
254.         SendMsg=EncodeBase64(PWD->Text)+"/r/n";
255.         Mess->Lines->Add(SendMsg.SubString(1,SendMsg.Length()-2));
256.         Socket->SendText(SendMsg);
257.         break;
258. case 4:
259.         ppp++;
260.         SendMsg="MAIL FROM: <"+FROM->Text.Trim()+">/r/n";
261.         Mess->Lines->Add(SendMsg.SubString(1,SendMsg.Length()-2));
262.         Socket->SendText(SendMsg);
263.         break;
264. case 5:
265.         {ppp++;
266.         SendMsg="RCPT TO: <"+TO->Text.Trim()+">/r/n";
267.         if(TOCC->Text.Trim().Length()>0)
268.            SendMsg+="RCPT TO: <"+TOCC->Text.Trim()+">/r/n";
269.         Mess->Lines->Add(SendMsg.SubString(1,SendMsg.Length()-2));
270.         Socket->SendText(SendMsg);
271.         }
272.         break;
273. case 3+3:
274.         ppp++;
275.         SendMsg="DATA/r/n";
276.         Mess->Lines->Add(SendMsg.SubString(1,SendMsg.Length()-2));
277.         Socket->SendText(SendMsg);
278.         break;
279. case 4+3:
280.         {
281.         TMemoryStream *memstr;
282.         ppp++;
283.         Mess->Lines->Add("Sending Data ...");
284.         memstr=new TMemoryStream();
285.         try
286.         {
287.         AnsiString sendtext=AnsiString("Message-ID: <000e01c26603$6f0e7a30$0a00a8c0@yj01>")+
288.         "/r/nFrom: /""+Edit1->Text.Trim()+"/" <"+FROM->Text.Trim()+">/r/n"+
289.         "To: <"+TO->Text.Trim()+">/r/n";
290.         if(TOCC->Text.Trim()!="")
291.            sendtext+=AnsiString("Cc: <"+TOCC->Text.Trim()+">/r/n");
292.         SYSTEMTIME t;
293.         GetLocalTime(&t);
294.         AnsiString tday[7]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"},
295.         tmon[12]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
296.         if(SUBJECT->Text.Trim().Length()>0)
297.         sendtext+="Subject: =?gb2312?B?"+EncodeBase64(SUBJECT->Text.Trim())+"?=/r/n";
298.         else
299.            sendtext+="Subject:/r/n";
300.         sendtext+="Date: "+tday[t.wDayOfWeek]+Now().FormatString(", dd ")+tmon[t.wMonth-1]+Now().FormatString(" yyyy hh:mm:ss +0800")+"/r/n"+
301.         "MIME-Version: 1.0/r/n"
302.         "Content-Type: multipart/mixed;/r/n"
303.         "   boundary=/"----=_NextPart_000_000A_01C26646.7D0E7AC0/"/r/n"+
304.         "X-Priority: 3/r/n"+
305.         "X-MSMail-Priority: Normal/r/n"+
306.         "X-Mailer: Morncolorsoft E_Mail Sender 1.00.0000.0000/r/n"+
307.         "X-Mime: Morncolorsoft Mailer Inside V1.00.0000.0000/r/n/r/n"+
308.         "This is a multi-part message in MIME format./r/n/r/n"+
309.         "------=_NextPart_000_000A_01C26646.7D0E7AC0/r/n"+
310.         "Content-Type: multipart/alternative;/r/n"+
311.         "   boundary=/"----=_NextPart_001_000B_01C26646.7D0E7AC0/"/r/n/r/n/r/n"+
312.         "------=_NextPart_001_000B_01C26646.7D0E7AC0/r/n"+
313.         "Content-Type: text/plain;/r/n"+
314.         "   charset=/"gb2312/"/r/n"+
315.         "Content-Transfer-Encoding: base64/r/n/r/n"+
316.         EncodeBase64(Body->Text)+"/r/n/r/n"+
317.         "------=_NextPart_001_000B_01C26646.7D0E7AC0/r/n"+
318.         "Content-Type: text/html;/r/n"+
319.         "   charset=/"gb2312/"/r/n"+
320.         "Content-Transfer-Encoding: base64/r/n/r/n"+
321.         EncodeBase64(AnsiString("<!DOCTYPE HTML PUBLIC /"-//W3C//DTD HTML 4.0 Transitional//EN/">/r/n")+
322.         "<HTML><HEAD>/r/n"+
323.         "<META http-equiv=Content-Type content=/"text/html; charset=gb2312/">/r/n"+
324.         "<META content=/"MSHTML 6.00.2600.0/" name=GENERATOR>/r/n"+
325.         "<STYLE></STYLE>/r/n"+
326.         "</HEAD>/r/n"+
327.         "<BODY bgColor=#ffffff>/r/n"+
328.         "<DIV><FONT size=2><PRE>"+Body->Text+"</PRE></FONT></DIV></BODY></HTML>")+
329.         "/r/n------=_NextPart_001_000B_01C26646.7D0E7AC0--/r/n";
330.         if(Attach->Count>0)
331.         {
332.            memstr->WriteBuffer(sendtext.c_str(),sendtext.Length());
333.            for(int kk=0;kk<Attach->Count;kk++)
334.               if(FileExists(Attach->Items->Strings[kk]))
335.               {
336.                  AnsiString sendtextt=AnsiString("/r/n------=_NextPart_000_000A_01C26646.7D0E7AC0/r/n")+
337.                  "Content-Type: application/octet-stream;/r/n"+
338.                  "  name=/""+ExtractFileName(Attach->Items->Strings[kk])+"/"/r/n"+
339.                  "Content-Transfer-Encoding: base64/r/n"+
340.                  "Content-Disposition: attachment;/r/n"+
341.                  "  filename=/""+ExtractFileName(Attach->Items->Strings[kk])+"/"/r/n/r/n";
342.                  memstr->Seek(0,soFromEnd);
343.                  memstr->WriteBuffer(sendtextt.c_str(),sendtextt.Length());
344.                  EncodeBase64File(Attach->Items->Strings[kk],memstr);
345.                  memstr->Seek(0,soFromEnd);
346.                  AnsiString ttt="/r/n";
347.                  memstr->WriteBuffer(ttt.c_str(),ttt.Length());
348.               }
349.            AnsiString sendtexttt="/r/n------=_NextPart_000_000A_01C26646.7D0E7AC0--/r/n/r/n./r/n";
350.            memstr->Seek(0,soFromEnd);
351.            memstr->WriteBuffer(sendtexttt.c_str(),sendtexttt.Length());
352.            memstr->Seek(0,soFromBeginning);
353.            //Mess->Lines->LoadFromStream(memstr);
354.            Socket->SendStream(memstr);
355.         }
356.         else
357.         Socket->SendText(sendtext+"/r/n./r/n");
358.         }
359.         catch(...)
360.         {
361.         memstr->Free();
362.         }
363.         break;
364.         }
365. case 5+3:
366.         ppp++;
367.         SendMsg="QUIT/r/n";
368.         Mess->Lines->Add(SendMsg.SubString(1,SendMsg.Length()-2));
369.         Socket->SendText(SendMsg);
370.         break;
371. case 6+3:
372.         ppp=-1;
373.         break;
374. }
375. }
376. //---------------------------------------------------------------------------
377. void __fastcall TForm1::SendClick(TObject *Sender)
378. {
379. if(SMTPSERVER->Text.Trim()=="")
380.    return;
381. if(PORT->Text.Trim()=="")
382.    return;
383. if(TO->Text.Trim()=="")
384.    return;
385. int port=StrToInt(PORT->Text.Trim());
386. if(port==0)
387.    port=25;
388. Send->Enabled=false;
389. ppp=0;
390. ClientSocket1->Host=SMTPSERVER->Text.Trim();
391. ClientSocket1->Port=port;
392. ClientSocket1->Open();
393. }
394. //---------------------------------------------------------------------------
395. void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
396.       TCustomWinSocket *Socket)
397. {
398. Send->Enabled=true;
399. }
400. //---------------------------------------------------------------------------
401. void __fastcall TForm1::GetClick(TObject *Sender)
402. {
403. /*        TTime t;
404.         TDate d;
405.         t=Now();
406.         d=Now();
407.         ShowMessage(t.DayOfWeek());
409. //"Date: Wed, 25 Sep 2002 08:17:50 +0800/r/n"+
410.         ShowMessage( d.FormatString("DDD, dd MMM yyyy hh:mm:ss +0800"));
411. */
412. AnsiString ss="";
413. for(int i=0;i<Body->Text.Length();i++)
414. {
415. ss+=IntToStr((int)Body->Text.c_str()[i])+" ";
416. }
417. Mess->Text=ss;
418. }
419. //---------------------------------------------------------------------------
421. void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
422.       TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
423. {
424.  Send->Enabled=true;
425.  ErrorCode=0;
426.  Socket->Close();
427. }
428. //---------------------------------------------------------------------------