myDC.ru

Здравствуйте, гость ( Вход | Регистрация )

 
 
Ответить в данную темуНачать новую тему

> Нужен скрипт блокировки скачивания

Теги
Нет тегов для показа
devilyn
сообщение 7.8.2010, 18:42
Сообщение #1


Абсолютный новичок


Группа: Пользователи
Сообщений: 3
Регистрация: 31.1.2010
Пользователь №: 5 903
Спасибо сказали: 0 раз




Нужен скрипт блокировки скачивания всем кроме диапазонов IP которым разрешено качать, а для остальных только чат.
Go to the top of the page
+Quote Post
Ksan
сообщение 7.8.2010, 19:25
Сообщение #2


Белый Волк
*********

Группа: Пользователи
Сообщений: 1 715
Регистрация: 11.9.2008
Из: г.Томск
Пользователь №: 516
Спасибо сказали: 649 раз




Ищи NetworkSeparation на форуме.
Go to the top of the page
+Quote Post
devilyn
сообщение 7.8.2010, 20:12
Сообщение #3


Абсолютный новичок


Группа: Пользователи
Сообщений: 3
Регистрация: 31.1.2010
Пользователь №: 5 903
Спасибо сказали: 0 раз




а нет чего то попроще, а то не разберусь
Go to the top of the page
+Quote Post
prapor
сообщение 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


Спасибо сказали:
Go to the top of the page
+Quote Post
devilyn
сообщение 15.8.2010, 18:57
Сообщение #5


Абсолютный новичок


Группа: Пользователи
Сообщений: 3
Регистрация: 31.1.2010
Пользователь №: 5 903
Спасибо сказали: 0 раз




Цитата(prapor @ 12.8.2010, 21:47) *
вот, держи

Раскрывающийся текст
Код
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

спасибо за скрипт
я извиняюсь за назойливость а можно как то ещё и список файлов запретить качать тем кто не в списке
Go to the top of the page
+Quote Post
Ksan
сообщение 15.8.2010, 20:52
Сообщение #6


Белый Волк
*********

Группа: Пользователи
Сообщений: 1 715
Регистрация: 11.9.2008
Из: г.Томск
Пользователь №: 516
Спасибо сказали: 649 раз




Запрети им дышать, они тогда не смогут и файллисты качать..
Намёк понятен?


Спасибо сказали:
Go to the top of the page
+Quote Post

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts От: Новогодний Скрипт
От темы с ID: 871
0 Евгений 0 Вчера, 21:44 Посл. сообщение: Евгений
No New Posts Прокси Telegram для обхода блокировки
0 KCAHDEP 423 2.6.2018, 6:08 Посл. сообщение: KCAHDEP
No New Posts А бывают такой скрипт бота?
Скрипт который создает виртуалных юзеров, но с реальными шарами
5 MarkDark 965 26.12.2017, 10:47 Посл. сообщение: мамин_парень
No New Posts Скрипт: Бот который отвечает в лс
4 мамин_парень 1 032 11.11.2017, 5:57 Посл. сообщение: мамин_парень
No New Posts как сделать вот этот скрипт
12 мамин_парень 1 708 13.9.2017, 10:51 Посл. сообщение: dimetro
No New Posts Topic has attachmentsИщу скрипт переадресации (redirect)
Переадресация интернет-юзеров
3 AS_Com 1 338 27.8.2017, 8:05 Посл. сообщение: Ksan
No New Posts Topic has attachmentsСкрипт Thunder.lua
7 Евген76 7 324 9.8.2017, 11:48 Посл. сообщение: Ksan
No New Posts Требуется скрипт
Нужен скрипт запрета на подключение
5 Nikolaevich 2 858 20.8.2016, 19:52 Посл. сообщение: Ksan
No new Topic has attachmentsMagneto - Бесплатный Скрипт Портала Обмена Dc-ссылками Для Локальной Сети
25 UserSide 20 453 17.3.2016, 5:21 Посл. сообщение: dimazikpk
No new ВАЖНО: Topic has attachmentsСкрипт банов для RusHub
тестим и комменьтруем
79 Wariner 55 223 28.9.2015, 13:34 Посл. сообщение: NeirRon
No New Posts Скрипт загрузки файла
1 FreeNas 2 232 21.7.2015, 10:58 Посл. сообщение: HackFresse
No new Как вызвать bash скрипт из Lua
14 Iskandark 5 846 3.3.2015, 12:42 Посл. сообщение: Iskandark
No new Topic has attachmentsНовогодний Скрипт
API2
22 Tsd 19 878 12.12.2014, 16:28 Посл. сообщение: Tsd
No New Posts Скрипт запрета видеть чат
запрет видеть чат
2 dimetro 2 764 5.12.2014, 17:37 Посл. сообщение: dimetro
No New Posts Topic has attachmentsпеределать скрипт kinozal.tv
6 BOKOREZ 5 961 30.10.2014, 18:29 Посл. сообщение: Dani_Filth

 



RSS Сейчас: 16.10.2018, 14:06