Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[15132] 채팅연습 바이러스인가요?
왕초보 [] 2237 읽음    2014-04-16 23:55
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

var
  stTemp : String;
  List : TList;
  Loop : Integer;
begin
  stTemp :=Athread.Connection.ReadLn;
  List:= IdTCPServer1.Threads.LockList;

  Try
    For Loop :=0 to List.Count-1 do Begin
      TIdPeerThread(List.Items[Loop]).Connection.WriteLn(stTemp);

    End;
  Finally
    IdTCPServer1.Threads.UnlockList;
  End;


end;


이렇게 서버를 만들구요...

컴파일했더니 알약에서 Gen:Variant.Graftor.95342 실시간 감시가 되네요..
채팅서버로 악성코드가 들어오는건가요? 초보라 넘 어렵군요.. 아님 감시 무시해도 되는건지..

바이러스 방지 해결법이나 방법있음 알려주시면 감사드리겠습니다.. 수고하세요.^^

+ -

관련 글 리스트
15132 채팅연습 바이러스인가요? 왕초보 2237 2014/04/16
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.