<%'==============='비구름 방지 CC 공격 ASP 프로그램 플러그 인'은 수정 해 야 할 매개 변수 내용 외 에 다른 내용 을 수정 하지 말 것 을 권장 합 니 다'오류 피드백 이나 의견 제출 이 필요 하면 낙오(IM 286.COM)로 연락 할 수 있 습 니 다. “===============================dim FYCC_19,FYCC_20,FYCC_21,FYCC_05 dim FYCC_18 FYCC_05=""CCLog.txt 에 저 장 된 경로 폴 더!수 동 으로 만들어 야 합 니 다!'남 겨 두 기'를 권장 합 니 다.입력 하면 앞 에 기호'/'FYCC'를 붙 여 주세요.18=1 '리 셋 방지 CC 공격 종료 및 시작,1 시작 0 종료 FYCC17=1'새로 고침 방지 IP 기능 종료 및 시작 금지,1 시작 0 은 FYCC 종료19=10 '분당 리 셋 횟수,알림 FYCC20="http://www.163.com"IP 가 차단 되면 자동 으로 들 어 오 는 페이지 입 니 다.바 이러 스 를 저장 할 주 소 를 입력 하 는 것 을 권장 합 니 다!!!FYCC_21=21'악의 적 으로 몇 번 리 셋 하면 IP dim 금지 realip,proxy realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") proxy = Request.ServerVariables("REMOTE_ADDR") if realip = "" then GetIp = proxy else GetIp = realip end if Sub FYCC_03() Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") file = server.mappath(""&FYCC_05&"/CCLog.txt") if not fsoObject.fileexists(file) then fsoObject.createtextfile file,true,false end if set tsObject = fsoObject.OpenTextFile(file,8) tsObject.Writeline " "&GetIp&"" Set tsObject = Nothing Set fsoObject = Nothing End Sub if FYCC_18<>0 then if FYCC_17<>0 then if minute(now())>-1 and minute(now())<4 then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile=objFSO.CreateTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),True) objCountFile.Write " " objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing end if Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") file = server.mappath(""&FYCC_05&"/CCLog.txt") if not fsoObject.fileexists(file) then fsoObject.createtextfile file,true,false if err.number<>0 then response.write "공간 이 FSO 를 지원 하지 않 습 니 다.공간 업 체 와 연락 하거나 권한 설정"response.end"를 보십시오. if end if Set objCountFile = fsoObject.OpenTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),1,True) If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll Set objCountFile = Nothing if instr(fdata,""&GetIp&"")>0 then response.write "당신 의 IP["&GetIp&"]가 금지 되 었 습 니 다!해 지 할 필요 가 있 으 면 본 사이트 관리자 에 게 연락 하거나 다음 시간 3 분 전에 본 사이트 에 다시 방문 하 십시오."response.end" if Set fsoObject = Nothing end if if Session("FYCC_01")>FYCC_19 and minute(now())<>Session("FYCC_02") then Session("FYCC_01")=1 Session("FYCC_02")=minute(now()) elseif Session("FYCC_01")>FYCC_21-1 and minute(now())=Session("FYCC_02") then if FYCC_17<>0 and Session("FYCC_01")>FYCC_21-1 then Call FYCC_03() end if response.redirect ""&FYCC_20&"" '바 이러 스 를 저장 할 주 소 를 입력 하 는 것 을 권장 합 니 다!!response.end elseif Session("FYCC_01")>FYCC_19 and minute(now())=Session("FYCC_02") then response.write "본 사이트 에서 리 셋 방지 기능 을 시작 하면 1 분 내 에"&FYCC19&"페이지,다음 분 에 다시 이 페이지 를 새로 고침 하 세 요"Session("FYCC01")=Session("FYCC_01")+1 response.end else if Session("FYCC_01")="" then Session("FYCC_01")=1 Session("FYCC_02")=minute(now()) else if minute(now())<>Session("FYCC_02") then Session("FYCC_01")=1 Session("FYCC_02")=minute(now()) else Session("FYCC_01")=Session("FYCC_01")+1 end if end if End if end if%>사용 방법 1.FYCC.asp 파일 을 웹 사이트 의 루트 디 렉 터 리(웹 사이트 첫 페이지 와 같은 디 렉 터 리)3 에 놓 고 웹 사이트 의 기본 접근 파일(일반적으로 index.asp)을 열 고4,FYCC.asp 를 열 어 상단 10-30 줄 의 설정 인자 수정 5,두 파일 저장 업로드
