myDC.ru

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

 
История благодарностей участнику prapor. Спасибо сказали: 6
Дата поста: В теме: За сообщение: Спасибо сказали:
12.8.2010, 18: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
devilyn, мамин_парень
26.10.2009, 18:23 Работа чата
Юзеры не могут общаться, не расшрарив файлы
Может этот скрипт поможет, только в настройках птохи сними ограничение по шаре

Название: CheckSharaIp

Версия: API2

Описание:
- Запрет скачки и поиска юзерам, у которых шара ниже лимита
- Диапазоны IP и профили на которых не действует лимит по шаре
Nenomernoj, PAUK
2.7.2009, 22:20 Support
API2 | Комната техподдержки
Цитата(alex82 @ 2.7.2009, 18:46) *
Доступна версия 1.02

Список изменений:
  • Полностью переписана функция ретрансляции сообщений комнаты.
  • Добавлен лог последних сообщений.
  • Исправлены некоторые ошибки.

Ну вот, другое дело big_smile.gif Респект ;)
мамин_парень
20.12.2008, 16:39 Описание Бота
помогите перевести под API1
Спасибо! Всё работает big_smile.gif
мамин_парень

RSS Сейчас: 29.3.2024, 11:51