myDC.ru

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

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

> Определение подсети по ip

Рейтинг 5 V
Теги
Нет тегов для показа
LEXSOR
сообщение 26.5.2011, 21:26
Сообщение #1


Начинающий
*

Группа: Пользователи
Сообщений: 19
Регистрация: 17.1.2011
Из: Ryazan
Пользователь №: 8 558
Спасибо сказали: 0 раз




Нужна небольшая помощь, есть небольшой скрипт со птоки хотелось бы переделать под Rushub...

Функционал просто по ip выставляет тег провайдерский


Сам скрипт

Раскрывающийся текст
Код
-- This script is converted with PtokaX LUA API Converter v0.9 at 08/07/08 17:10:05

-- данный скрипт добавляет в описание пользователей название их сети, профиль и IP.
-- by e-ploko API2

Minutes =  1
tProfileTag = {
[1] = "[Master]",
[2] = "[Moderator]",
[3] = "[Operator]",
[4] = "[VIP]",
[5] = "[Reg]",
[0] = "[SUAdmin]",
[-1] = "[Unreg]"

}

-- список подсетей и описания, вставляемое в тэг.
RangeDesc = {
[1]="10.0.0.0-10.0.0.255-[ISP]",
[2]="10.135.0.0-10.135.255.255-[Eth_2_Микрор-н]",
[3]="10.132.0.0-10.132.255.255-[Eth_3_Бутырки]",
[4]="10.142.0.0-10.142.255.255-[Eth_Агропром]",
[5]="10.146.0.0-10.146.255.255-[Eth_ишневая]",
[6]="10.156.0.0-10.156.255.255-[Eth_орошиловка]",
[7]="10.150.0.0-10.150.255.255-[Eth_ысоковольтная]",
[8]="10.157.0.0-10.157.255.255-[Eth_Грибоедова]",
[9]="10.147.0.0-10.147.255.255-[Eth_Дягилево]",
[10]="10.134.0.0-10.134.255.255-[Eth_Кальное]",
[11]="10.137.0.0-10.137.255.255-[Eth_Керамзавод]",
[12]="10.138.0.0-10.138.255.255-[Eth_Мехзавод]",
[13]="10.136.0.0-10.136.255.255-[Eth_Михшоссе_2]",
[14]="10.133.0.0-10.133.255.255-[Eth_Михшоссе]",
[15]="10.160.0.0-10.160.255.255-[Eth_Новоселов_33]",
[16]="10.129.0.0-10.129.255.255-[Eth_Окт.гор-к]",
[17]="10.153.0.0-10.153.255.255-[Eth_Павлова]",
[18]="10.130.0.0-10.130.255.255-[Eth_Полевая]",
[19]="10.144.0.0-10.144.255.255-[Eth_Приокский]",
[20]="10.128.0.0-10.128.255.255-[Eth_Радищева]",
[21]="10.141.0.0-10.141.255.255-[Eth_Соколовка]",
[22]="10.145.0.0-10.145.255.255-[Eth_Солнечная]",
[23]="10.148.0.0-10.148.255.255-[Eth_Чкалова]",
[24]="10.151.0.0-10.151.255.255-[Eth_Шевченко]",
[25]="10.131.0.0-10.131.255.255-[Eth_Шлаковый]",
[26]="10.152.0.0-10.152.255.255-[Eth_Электрозаводская]"

-- и т.д.
}

OnStartup = function()

tmr = TmrMan.AddTimer(5000 * Minutes)
end

OnTimer = function(tmr)
for id,user in pairs(Core.GetOnlineUsers(true)) do
    Userover = user
    if user.sMyInfoString ~= nil then
    local descript,userip = nil,calcip(Userover.sIP)
    if userip ~= 0 then
    for index,descIP in pairs(RangeDesc) do
    local _,_,startRange,endRange,RangeDescript = string.find(descIP, "(.*)-(.*)-(.*)")
    startRange = calcip(startRange)
    endRange = calcip(endRange)
    if userip>=startRange and userip<=endRange then
    descript = RangeDescript
    end
    end
    if descript == nil then descript = "[?]"
    end
    end
local s,e,name,desc,speed,email,share = string.find(user.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
local descript = tProfileTag[user.iProfile].." "..descript
Core.SendToAll("$MyINFO $ALL "..name.." "..descript.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end

-- функция РАСЧЁТА адреса IP
function calcip(ipcalc)
local _,_,a,b,c,d = string.find(ipcalc, "(%d+).(%d+).(%d+).(%d+)")
local calc = 0
if (tonumber(a) and tonumber(b) and tonumber(c) and tonumber(d)) then
calc = a*16777216 + b*65536 + c*256 + d
return calc
else return 0
end
end
--end


Сообщение отредактировал Saymon21 - 26.5.2011, 21:30
Причина редактирования: Большой код нужно прятать под спойлер.
Go to the top of the page
+Quote Post
ShadoWx
сообщение 5.8.2011, 21:42
Сообщение #2


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 216
Регистрация: 23.10.2008
Из: Саратов
Пользователь №: 865
Спасибо сказали: 59 раз




поддерживаю, переведите пожалуйста, уж очень хочется на хабе разделить интернет и локальных пользователей приставками ...
Go to the top of the page
+Quote Post
Alexey
сообщение 6.8.2011, 9:03
Сообщение #3


7 квадратиков
*******

Группа: Модераторы
Сообщений: 791
Регистрация: 21.1.2009
Пользователь №: 1 895
Спасибо сказали: 287 раз




NetInDescription


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

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts Определение использования прокси
Различные варианты определения прокси
11 Enyby 7 206 22.2.2013, 12:17 Посл. сообщение: Enyby
No New Posts Определение профиля получателя сообщения
7 Damaks 4 037 16.8.2010, 20:46 Посл. сообщение: Damaks
No New Posts Topic has attachmentsЛс При Входе Для Определенной Сети/подсети
8 fixx 6 413 27.2.2009, 21:24 Посл. сообщение: Setuper

 



RSS Сейчас: 18.12.2017, 2:14