Нужен скрипт блокировки скачивания |
Здравствуйте, гость ( Вход | Регистрация )
Нужен скрипт блокировки скачивания |
7.8.2010, 18:42
Сообщение
#1
|
|
Абсолютный новичок Группа: Пользователи Сообщений: 3 Регистрация: 31.1.2010 Пользователь №: 5 903 Спасибо сказали: 0 раз |
Нужен скрипт блокировки скачивания всем кроме диапазонов IP которым разрешено качать, а для остальных только чат.
|
|
|
7.8.2010, 19:25
Сообщение
#2
|
|
Белый Волк Группа: Пользователи Сообщений: 1 723 Регистрация: 11.9.2008 Из: г.Томск Пользователь №: 516 Спасибо сказали: 657 раз |
Ищи NetworkSeparation на форуме.
|
|
|
7.8.2010, 20:12
Сообщение
#3
|
|
Абсолютный новичок Группа: Пользователи Сообщений: 3 Регистрация: 31.1.2010 Пользователь №: 5 903 Спасибо сказали: 0 раз |
а нет чего то попроще, а то не разберусь
|
|
|
12.8.2010, 18:47
Сообщение
#4
|
|
Активный участник Группа: Пользователи Сообщений: 73 Регистрация: 5.10.2008 Из: Москва Пользователь №: 736 Спасибо сказали: 6 раз |
вот, держи
Раскрывающийся текст Код tAllowedRanges = { -- диапазоны IP, которым разрешен поиск и скачка ["10.0.0.0"]= "10.255.255.255", ["192.168.0.0"]= "192.168.255.255", } tTemp = {} function OnStartup() for a,b in pairs(tAllowedRanges) do tTemp[(computeIP(a))] = computeIP(b) end end function ConnectToMeArrival(user) Core.GetUserData(user,16) if not checkIP(user.sIP) then return true end end RevConnectToMeArrival,SearchArrival = ConnectToMeArrival,ConnectToMeArrival function checkIP(sIP) local iIP = computeIP(sIP) if iIP then for startRange,endRange in pairs(tTemp) do if (iIP >= startRange)and (iIP <= endRange) then return true end end end end function computeIP(sIP) local _,_,a,b,c,d = string.find(sIP, "(%d+).(%d+).(%d+).(%d+)") return a*16777216 + b*65536 + c*256 + d end |
|
|
15.8.2010, 18:57
Сообщение
#5
|
|
Абсолютный новичок Группа: Пользователи Сообщений: 3 Регистрация: 31.1.2010 Пользователь №: 5 903 Спасибо сказали: 0 раз |
вот, держи Раскрывающийся текст Код tAllowedRanges = { -- диапазоны IP, которым разрешен поиск и скачка ["10.0.0.0"]= "10.255.255.255", ["192.168.0.0"]= "192.168.255.255", } tTemp = {} function OnStartup() for a,b in pairs(tAllowedRanges) do tTemp[(computeIP(a))] = computeIP(b) end end function ConnectToMeArrival(user) Core.GetUserData(user,16) if not checkIP(user.sIP) then return true end end RevConnectToMeArrival,SearchArrival = ConnectToMeArrival,ConnectToMeArrival function checkIP(sIP) local iIP = computeIP(sIP) if iIP then for startRange,endRange in pairs(tTemp) do if (iIP >= startRange)and (iIP <= endRange) then return true end end end end function computeIP(sIP) local _,_,a,b,c,d = string.find(sIP, "(%d+).(%d+).(%d+).(%d+)") return a*16777216 + b*65536 + c*256 + d end спасибо за скрипт я извиняюсь за назойливость а можно как то ещё и список файлов запретить качать тем кто не в списке |
|
|
15.8.2010, 20:52
Сообщение
#6
|
|
Белый Волк Группа: Пользователи Сообщений: 1 723 Регистрация: 11.9.2008 Из: г.Томск Пользователь №: 516 Спасибо сказали: 657 раз |
Запрети им дышать, они тогда не смогут и файллисты качать..
Намёк понятен? |
|
|
Похожие темы
|
Сейчас: 8.11.2024, 21:56 |