[SOLVED]Convert 2 lua 5.1 please
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

[SOLVED]Convert 2 lua 5.1 please

Started by nightshadow, 08 April, 2006, 00:23:48

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

nightshadow

--//RangeBlaster v2.07 by Phatty 
--//IP Keys written by John, and Phatty 

Bot = "IPRangeBlock" 
path = "RangeBlaster/Ranges.dat"
Ranges = {} 
-------------------------
function Main() 
	frmHub:RegBot(Bot) 
	LoadIps() 
end 
-------------------------
function LoadIps()

	local tmp = 0 
	local handle = io.open(path,"r") 
	line = handle:read() 
	while line do 
		tmp = tmp + 1 
		local s,e,ipr1,ipr2 = string.find(line,"(%S+)|(%S+)") 
		if ipr2 == nil then 
			SendToAll(Bot,"Error on line "..line) 
		end 
		local s,e,ipa1,ipb1,ipc1,ipd1 = string.find(ipr1, "(%d*).(%d*).(%d*).(%d*)") 
		local s,e,ipa2,ipb2,ipc2,ipd2 = string.find(ipr2, "(%d*).(%d*).(%d*).(%d*)") 
		si1 = CheckNumber(ipa1)..CheckNumber(ipb1)..CheckNumber(ipc1)..CheckNumber(ipd1) 
		si2 = CheckNumber(ipa2)..CheckNumber(ipb2)..CheckNumber(ipc2)..CheckNumber(ipd2) 
		Ranges[si1] = si2 
		line = handle:read() 
	end 
	SendToAll(Bot,"Successfully loaded "..tmp) 
end 
--------------------------
function Blocked(userip)

	local s,e,range1,range2,range3,range4 = string.find(userip,"(%d+).(%d+).(%d+).(%d+)") 
	checker = CheckNumber(range1)..CheckNumber(range2)..CheckNumber(range3)..CheckNumber(range4) 

--SendToAll(Bot,"IP-Test..."..checker) 

	for i,p in Ranges do 
		local s,e,xstart = string.find(i, "(%d*)") 
		local s,e,xend = string.find(p, "(%d*)") 

		if checker > xstart and checker < xend then 
			collectgarbage() 
			io.flush() 
			return 1 
		else 
		end 
	end 
end 
-------------------------
function CheckNumber(number)

	numbera = tonumber(number) 
	if numbera < 10 then 
		numbera = "00"..number 
	elseif numbera < 100 then 
		numbera = "0"..number 
	else 
		numbera = number 
	end 
	return numbera 
end 
------------------------
function ValidateNickArrival(user)

	if Blocked(user.sIP) == 1 then 
		user:SendData(Bot, "This hub is private, leave a message to [EMAIL]ip-tracer@sm3yfx.net[/EMAIL],and explain who you are, you will now be disconnected!") 
		user:SendData(Bot, "Disconnecting...") 
		SendPmToOps(Bot, user.sName.." - "..user.sIP.." has been blasted by "..Bot.."!") 
		SendToAll(Bot, user.sName.." - "..user.sIP.." has been blasted by "..Bot.."!") 
		user:Disconnect() 
	end 
end


It gives me error on line:

for i,p in Ranges do


Greetz
NS

nightshadow

Thank you Mutor. Works.
Just had talked a few minutes with DJ Bert and said the same. He had converted it for me, thanx anyway.

Greetz
NS

BTW
Does it matter if you write Main = function() or write function is Main() ?
I see some write the one and some others....

DJ Bert

It doesn't matter I think. Just testing my Guardian since a few days. The function is always called.

SMF spam blocked by CleanTalk