IP Ranger from Thor 2.0

[TTB]

1st post updated... removed a little bug

[6Marilyn6Manson6]

----------------------------------------------------------- 
--// IP-Ranger: Thor Add-on ? NightLitch 2004 
--// Converted to LUA5 by TTB 
--// Date: 15-05-2005 
--// Update by TTB, 19-10-05 
----------------------------------------------------------- 

Ranger_Name = "-IP-Ranger-" 
ISP_Check = 1 
ByPassVIP = 1 

--// Tables 
AllowR = {} 
DenyR = {} 
RegTable = {} 

--// Files 
FILE = { 
AllowF = "ranges/AllowR.dat", 
DenyF = "ranges/DenyR.dat", 
} 

--// Main Function 
function Main() 
LoadIPFile(FILE.AllowF) 
LoadIPFile(FILE.DenyF) 
frmHub:RegBot(Ranger_Name) 
end 

function ToArrival(curUser,data) 
local _,_,whoTo,mes = string.find(data,"$To:%s+(%S+)%s+From:%s+%S+%s+$(.*)") 
if (whoTo == Ranger_Name and string.find(mes,"%b<>%s+(.*)")) then 
data = string.sub(mes,1,string.len(mes)-1) 
ParseRanger(curUser,data) 
return 1 
end 
end 

function NewUserConnected(curUser,data) 
rIPCheck(curUser) 
end 

--// Compute IP 
function ComputeIP(curIP) 
local _,_,a,b,c,d = string.find(curIP, "(%d+).(%d+).(%d+).(%d+)") 
return a*16777216 + b*65536 + c*256 + d 
end 

--// IP-Check Function 
function rIPCheck(sUser) 
local AllowOK, ARange = GetRange(sUser.sIP, AllowR) 
local DenyOK, DRange = GetRange(sUser.sIP, DenyR) 
if ByPassVIP==1 and sUser.iProfile == 2 then return 1 end 
if DenyOK==1 then 
sUser:SendData(Ranger_Name, "Your IP ( "..sUser.sIP.." ) is Denyed here...") 
sUser:SendData(Ranger_Name, "*** Disconnected...") 
sUser:Disconnect() 
return 1 
else 
if AllowOK==1 then 
local ISPTagOK = GetISP(sUser,AllowR[ARange][2]) 
if ISPTagOK==0 and ISP_Check==1 then 
SendErrorTag(sUser,ARange) 
elseif ISPTagOK == 2 and ISP_Check==1 then 
SendErrorLevel(sUser,ARange) 
end 
else 
sUser:SendData(Ranger_Name, "Your IP ( "..sUser.sIP.." ) is not Allowed here...") 
sUser:SendData(Ranger_Name, "*** Disconnected...") 
sUser:Disconnect() 
return 1 
end 
end 
end 

--// Send Error Message 
function SendErrorTag(sUser,ARange) 
sUser:SendData(Ranger_Name, "Your ISP Tag is not Allowed here...") 
sUser:SendData(Ranger_Name, "Allowed ISP Tag's for you:\r\n\t"..GetTags(AllowR[ARange][2],0).."\r\n") 
sUser:SendData(Ranger_Name, "*** Disconnected...") 
sUser:Disconnect() 
end 

--// Check Range 
function GetRange(ip,table) 
local _,_,a,b,c,d = string.find(ip, "(%d*).(%d*).(%d*).(%d*)") 
if ( tonumber(a) and tonumber(b) and tonumber(c) and tonumber(d) ) then 
local uip = ComputeIP(ip) 
if uip then 
local c = "" 
for r,i in table do 
local _,_,range1,range2 = string.find(r, "(.*)-(.*)") 
range1 = ComputeIP(range1) 
range2 = ComputeIP(range2) 
if uip>=range1 and uip<=range2 then 
c = "1" 
return 1,r 
end 
end 
end 
end 
end 

--// Check ISP Tag 
function GetISP(nick,table) 
local _,_,isp,name = string.find(string.lower(nick.sName), "^(%[%S+%])(%S+)") 
check = 0 
if isp~=nil then 
for key,tags in table do 
if tonumber(key) then 
tags = string.lower(tags) 
if isp==tags then 
check = 1 
end 
end 
end 
if check==1 then 
return 1 
elseif check==0 then 
return 0 
else 
return 0 
end 
else 
return 0 
end 
end 

--// Get Tags 
function GetTags(table,num) 
local line = "" 
local t = "" 
for id, isp in table do 
if not tonumber(isp) then 
line = line..t..isp 
if num==1 then 
if t == "" then t = "," end 
else 
if t == "" then t = " " end 
end 
end 
end 
return line 
end 

--// Parse Ranger Commands 
function ParseRanger(sUser,sData) 
local _,_,cmd = string.find(sData,"%b<>%s+%!(%S+)") 
if cmd then 
if Ranger_Commands[cmd] and sUser.iProfile==0 then 
return Ranger_Commands[cmd](sUser,sData) 
else 
return 0 
end 
end 
end 

--// Ranger Commands 
Ranger_Commands = { 
["addrange"] = function(sUser,sData) return DoAddRange(sUser,sData) end, 
["delrange"] = function(sUser,sData) return DoDelRange(sUser,sData) end, 
["show"] = function(sUser,sData) return DoShowRange(sUser,sData) end, 
["addisp"] = function(sUser,sData) return DoAddISP(sUser,sData) end, 
["delisp"] = function(sUser,sData) return DoDelISP(sUser,sData) end, 
["help"] = function(sUser,sData) return DoIPHelp(sUser,sData) end, 
} 

--// AddRange Function 
function DoAddRange(sUser,sData) 
local _,_,range,network,value = string.find(sData,"%b<>%s+%S+%s+(%S+-%S+)%s+(%S+)%s+(%S+)") 
if range==nil or network==nil or value==nil then 
sUser:SendPM(Ranger_Name,"Syntax: !addrange   ") 
return 1 
end 
if string.lower(value)=="allow" then 
if AllowR[range] then 
sUser:SendPM(Ranger_Name,range.." is already in Allow File...") 
return 1 
end 
AllowR[range] = {network, {"["..network.."]"}} 
sUser:SendPM(Ranger_Name,"Range: ( "..range.." ) - Network: "..network.." is added to Allow File") 
SaveIPFile(AllowR , "AllowR", FILE.AllowF) 
return 1 
elseif string.lower(value)=="deny" then 
if DenyR[range] then 
sUser:SendPM(Ranger_Name,range.." is already in Deny File...") 
return 1 
end 
DenyR[range] = {network,{"["..network.."]"}} 
sUser:SendPM(Ranger_Name,"Range: ( "..range.." ) - Network: "..network.." is added to Deny File") 
SaveIPFile(DenyR , "DenyR", FILE.DenyF) 
return 1 
else 
sUser:SendPM(Ranger_Name,"Wrong arg input! ( allow ) or ( deny ) not ( "..value.." )") 
return 1 
end 
end 

--// DelRange Function 
function DoDelRange(sUser,sData) 
local _,_,range,value = string.find(sData,"%b<>%s+%S+%s+(%S+-%S+)%s+(%S+)") 
if range==nil or value==nil then 
sUser:SendPM(Ranger_Name,"Syntax: !delrange  ") 
return 1 
end 
if string.lower(value)=="allow" then 
if AllowR[range] then 
AllowR[range] = nil 
sUser:SendPM(Ranger_Name,"Range: ( "..range.." ) is deleted from Allow File.") 
SaveIPFile(AllowR , "AllowR", FILE.AllowF) 
return 1 
else 
sUser:SendPM(Ranger_Name,"Range: ( "..range.." ) is not found in Allow File.") 
return 1 
end 
elseif string.lower(value)=="deny" then 
if DenyR[range] then 
DenyR[range] = nil 
sUser:SendPM(Ranger_Name,"Range: ( "..range.." ) is deleted from Deny File.") 
SaveIPFile(DenyR , "DenyR", FILE.DenyF) 
return 1 
else 
sUser:SendPM(Ranger_Name,"Range: ( "..range.." ) is not found in Deny File.") 
return 1 
end 
else 
sUser:SendPM(Ranger_Name,"Wrong arg input! ( allow ) or ( deny ) not ( "..value.." )") 
return 1 
end 
end 

--// Show Ranges Function 
function DoShowRange(sUser,sData) 
local _,_,v = string.find(sData, "%b<>%s+%S+%s+(%S+)") 
local msg,c = "\r\n", 0 
if v==nil then 
sUser:SendPM(Ranger_Name, "Syntax: !show ") 
return 1 
end 
local t,n = "","" 
if string.lower(v)=="allow" then 
t = AllowR 
n = "Allow Range List" 
elseif string.lower(v)=="deny" then 
t = DenyR 
n = "Deny Range List" 
else 
sUser:SendPM(Ranger_Name, "Parameter error:  not "..v.." !!") 
return 1 
end 
msg=msg.."\r\n\t ? ? ? "..n.." ? ? ?" 
msg=msg.."\r\n ??????????????????????????????????????????????????????????????????????????? 
??????????????????????????" 
msg=msg.."\r\n\t Network's Range's Isp's" 
msg=msg.."\r\n\t ???????? ??????? ???? " 
for range,index in t do 
table.sort(t) 
c = c +1 
msg=msg.."\r\n\t"..index[1]..""..string.rep("\t", 60/(20+string.len(index[1])))..""..range..""..string.rep("\t", 70/(8+string.len(range)))..""..GetTags(index[2],0) 
end 
msg=msg.."\r\n ___________________________________________________________________________ 
__________________________" 
sUser:SendPM(Ranger_Name,msg) 
return 1 
end 

--// Add ISP Function 
function DoAddISP(sUser,sData) 
local _,_,range,i1,i2,i3,i4,i5,i6,i7,i8 = string.find(sData, "%b<>%s+%S+%s+(%S+-%S+)%s*(%S*)%s*(%S*)%s*(%S*)%s*(%S*)%s*(%S*)%s*(%S*)%s*(%S*)%s*(%S*)") 
if range==nil then 
sUser:SendPM(Ranger_Name, "Syntax: !addisp  ") 
return 1 
end 
if i1=="" then i1 = nil end 
if i2=="" then i2 = nil end 
if i3=="" then i3 = nil end 
if i4=="" then i4 = nil end 
if i5=="" then i5 = nil end 
if i6=="" then i6 = nil end 
if i7=="" then i7 = nil end 
if i8=="" then i8 = nil end 
if AllowR[range] then 
AllowR[range] = {AllowR[range][1], {GetTags(AllowR[range][2],1), i1,i2,i3,i4,i5,i6,i7,i8},} 
sUser:SendPM(Ranger_Name, "\r\n\r\n?ISP: ( "..i1.." ) have been added to: \r\n\r\n?Range: "..range.." \r\n?Network: "..AllowR[range][1].." \r\n?ISP's: "..GetTags(AllowR[range][2],0).." ") 
SaveIPFile(AllowR , "AllowR", FILE.AllowF) 
return 1 
else 
sUser:SendPM(Ranger_Name, "?Range: ( "..range.." ) is not found in database !! ") 
return 1 
end 
end 

--// Del ISP Function 
function DoDelISP(sUser,sData) 
local _,_,range,isp = string.find(sData, "%b<>%s+%S+%s+(%S+-%S+)%s+(%S+)") 
if range==nil or isp==nil then 
sUser:SendPM(Ranger_Name, "Syntax: !delisp  ") 
return 1 
end 
if AllowR[range] then 
local check = 0 
for i = 1,table.getn(AllowR[range][2]) do 
if isp==AllowR[range][2][i] then 
AllowR[range][2][i] = nil 
check = 1 
end 
end 
if check==1 then 
sUser:SendPM(Ranger_Name, "\r\n\r\n?ISP: ( "..isp.." ) have been removed from: \r\n\r\n?Range: "..range.." \r\n?Network: "..AllowR[range][1].." \r\n?ISP's: "..GetTags(AllowR[range][2],0).." ") 
SaveIPFile(AllowR , "AllowR", FILE.AllowF) 
return 1 
else 
sUser:SendPM(Ranger_Name, "?ISP: ( "..isp.." ) is not found in Range: ( "..range.." ) ") 
return 1 
end 
else 
sUser:SendPM(Ranger_Name, "?Range: ( "..range.." ) is not found in database !! ") 
return 1 
end 
end 

function DoIPHelp(sUser,sData) 
local msg = "\r\n" 
msg=msg.."\r\n\t ? ? ? IP-Ranger Help ? ? ?" 
msg=msg.."\r\n ??????????????????????????????????????????????????????????????????????????? 
??????????????????????????" 
msg=msg.."\r\n\t !addrange    - Add range to specific type" 
msg=msg.."\r\n\t !delrange   - Del range to specific type" 
msg=msg.."\r\n\t !addisp   - Add isp to range" 
msg=msg.."\r\n\t !delisp   - Del isp to range" 
msg=msg.."\r\n\t !show  - Show specific list" 
msg=msg.."\r\n ___________________________________________________________________________ 
__________________________" 
sUser:SendPM(Ranger_Name,msg) 
return 1 
end 

function Serialize(tTable, sTableName, hFile, sTab) 
sTab = sTab or ""; 
hFile:write(sTab..sTableName.." = {\n" ); 
for key, value in tTable do 
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key); 
if(type(value) == "table") then 
Serialize(value, sKey, hFile, sTab.."\t"); 
else 
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value); 
hFile:write(sTab.."\t"..sKey.." = "..sValue); 
end 
hFile:write(",\n"); 
end 
hFile:write(sTab.."}"); 
end 

function LoadIPFile(file) 
local handle = io.open(file,"r") 
if (handle ~= nil) then 
dofile(file) 
handle:flush() 
handle:close() 
end 
end 


function SaveIPFile(table,tablename,filename) 
local hFile = io.open (filename,"w"); 
Serialize(table, tablename, hFile); 
hFile:close() 
end

now it is ok :P. C ya

[Alexinno]

sorry but for me it's not working

[23:55] Syntax C:\Program Files\hub\scripts\iprange.lua:252: unfinished string near `"

 ??????????????????????????????????????????????????????????????????????????? '

 

[jiten]

sorry but for me it's not working

Well, you just need to replace every occurrence of this type:

msg=msg.."\r\n ??????????????????????????????????????????????????????????????????????????? 
??????????????????????????"

with this:

msg = msg.."\r\n "..string.rep("?", 100)

[Alexinno]

10q, now it works