illegal VIP scripts

blackwings · 22 December, 2004, 14:46:53

QuoteOriginally posted by Ubikk
I hope your last script works, blakcwings, cause I'm tired of my hub members complaints :(

It should work without a problem, because this is a exact search, not dynamic, so there won't be problems with users username.

Ubikk · 22 December, 2004, 18:11:24

QuoteOriginally posted by blackwings
QuoteOriginally posted by Ubikk
I hope your last script works, blakcwings, cause I'm tired of my hub members complaints
It should work without a problem, because this is a exact search, not dynamic, so there won't be problems with users username.

It works just fine and this is all I needed. Thanx again

NightLitch · 23 December, 2004, 17:30:14

Why create such a big script that could be so small...

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
--###############################################--
BotName = "TagCheck"
--###############################################--
function DataArrival(sUser,sData)
	if strsub(sData, 1,7) == "$MyINFO" then
		if strfind(strlower(sData), "[%p+vip]") and sUser.iProfile ~= 2 then
			sUser:SendData(BotName, "Remove VIP Tag from your nickname!")
			sUser:Disconnect()
		end
	end
end
--###############################################--
--// NightLitch

Mery Christmas // NightLitch

blackwings · 23 December, 2004, 19:44:08

NL, does your script do a dynamic search for VIP? (I mean different combination of big and small letters?)

EDIT: %p punctuation characters o.O
why did you choose to use that NL?

NightLitch · 23 December, 2004, 21:19:34

QuoteOriginally posted by blackwings
NL, does your script do a dynamic search for VIP? (I mean different combination of big and small letters?)

EDIT: %p punctuation characters o.O
why did you choose to use that NL?

blackwing I suggest you try it and find a way through it with diff. VIp setups...

Ex:

[_(V-I-P)_]
[ViP]
[-v-I-p]
[.,V-I-P,.]

just a few...

/NL

NightLitch · 23 December, 2004, 21:20:28

another thing... check the code REALLY hard it is not that big...

you will se I do strlower on sData.... duhh...

/NL

NightLitch · 23 December, 2004, 21:24:32

%p is for every symbol char. as I understand it...

if you can break thourgh my VIP Check plz tell me how...

/NL

blackwings · 23 December, 2004, 21:35:51

QuoteOriginally posted by NightLitch
%p is for every symbol char. as I understand it...

if you can break thourgh my VIP Check plz tell me how...

/NL

right now I'm really tired and tomorrow it's xmas, but the day after I will test....hmm, or should I test it now....

EDIT: hmm, ya its impossible, it blocks everyone, even if you don't have vip in the username, not even one of the letters v, i or p.

EDIT 2: Maybe it finds something else in the MyInfo that has the letter combination vip

EDIT 3: This also happend me when I earlier tried to solve the problem. It seems like something doesn't like strlower/strsub in the script.

blackwings · 24 December, 2004, 01:15:00

maybe there is no simple way to solve it >_>

NightLitch · 24 December, 2004, 04:31:05

this should be ok...

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
--###############################################--
BotName = "TagCheck"
--###############################################--
function DataArrival(sUser,sData)
	if strsub(sData, 1,7) == "$MyINFO" then
		if strfind(strlower(sData), "%p*v%p*i%p*p%p*") and sUser.iProfile ~= 2 then
			sUser:SendData(BotName, "Remove VIP Tag from your nickname!")
			sUser:Disconnect()
		end
	end
end
--###############################################--
--// NightLitch

Merry Christmas // NightLitch

imby · 24 December, 2004, 06:36:22

"%p*v%p*i%p*p%p*"

so i guess this bit is changing to:

"%p*r%p*e%p*g%p*"

for me eh? cool, gonna do some testing.

blackwings · 25 December, 2004, 15:25:10

NL, now it works perfectly, a simple and dynamic blocking of fake VIP's :). And yes imby, that should work.

For those that have both VIP and REG tags in the hub, this might be good for you =

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
-- Added: Blocking against fake REG users - by blackwings 2004-12-25
--###############################################--
BotName = "TagCheck"
--###############################################--
function DataArrival(sUser,sData)
	if strsub(sData, 1,7) == "$MyINFO" then
		if strfind(strlower(sData), "%p*v%p*i%p*p%p*") and sUser.iProfile ~= 2 then
			sUser:SendData(BotName, "Remove VIP Tag from your nickname!")
			sUser:Disconnect()
		elseif strfind(strlower(sData), "%p*r%p*e%p*g%p*") and sUser.iProfile ~= 3 then
			sUser:SendData(BotName, "Remove REG Tag from your nickname!")
			sUser:Disconnect()
		end
	end
end
--###############################################--
--// NightLitch

blackwings · 25 December, 2004, 19:38:23

Ok, I noticed that people with username like reggie or viper
will get blocked, so I created a dynamic search of VIP within the signs = [], (), or {}
and as before it will check for combination like =

VIP, vip, Vip, -VIP-, -V-I-P-

And other combinations with other signs then - .

(I wonder if = %c control characters, means that it will try all these signs = [], (), or {})

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
-- Added: Blocking against fake REG users - by blackwings 2004-12-25
-- Fixed: Users with a name like = reggie or viper, won't get blocked - by blackwings 2004-12-25
--###############################################--
BotName = "TagCheck"
--###############################################--
function DataArrival(sUser,sData)
	if strsub(sData, 1,7) == "$MyINFO" then
--VIP--------------------------------------------------------------------------------------------		
		if strfind(strlower(sData), "%[%p*v%p*i%p*p%p*%]") and sUser.iProfile ~= 2 then
			sUser:SendData(BotName, "Remove VIP Tag from your nickname!")
			sUser:Disconnect()
		elseif strfind(strlower(sData), "%(%p*v%p*i%p*p%p*%)") and sUser.iProfile ~= 2 then
			sUser:SendData(BotName, "Remove VIP Tag from your nickname!")
			sUser:Disconnect()
		elseif strfind(strlower(sData), "%{%p*v%p*i%p*p%p*%}") and sUser.iProfile ~= 2 then
			sUser:SendData(BotName, "Remove VIP Tag from your nickname!")
			sUser:Disconnect()
		end
--REG--------------------------------------------------------------------------------------------		
		if strfind(strlower(sData), "%[%p*r%p*e%p*g%p*%]") and sUser.iProfile ~= 3 then
			sUser:SendData(BotName, "Remove REG Tag from your nickname!")
			sUser:Disconnect()
		elseif strfind(strlower(sData), "%(%p*r%p*e%p*g%p*%)") and sUser.iProfile ~= 3 then
			sUser:SendData(BotName, "Remove REG Tag from your nickname!")
			sUser:Disconnect()
		elseif strfind(strlower(sData), "%{%p*r%p*e%p*g%p*%}") and sUser.iProfile ~= 3 then
			sUser:SendData(BotName, "Remove REG Tag from your nickname!")
			sUser:Disconnect()
		end
	end
end
--###############################################--
--// NightLitch

NightLitch · 26 December, 2004, 02:25:53

Try to keep it small blackwings :-)

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
-- Updated:
--                      - Checks for users that should not have [VIP] or [REG]
--                        in the Nickname.
-- Advanced Tags:  [__V--i--P__}, {_V_]i[_P_}
--###############################################--
BotName = "TagCheck"
--###############################################--
sVipTag = "%p*v%p*i%p*p%p*"
sRegTag = "%p*r%p*e%p*g%p*"
--###############################################--
function DataArrival(sUser,sData)
	if strsub(sData, 1,7) == "$MyINFO" then
		local _,_,sTag = strfind(strlower(sData), "[%[%{%(](%S+)[%]%}%)]")
		if sTag then
			if strfind(strlower(sTag), sVipTag) or strfind(strlower(sTag), sRegTag) and sUser.iProfile ~= 3 or sUser.iProfile ~= 2 then
				sUser:SendData(BotName, "Remove VIP / REG Tag from your nickname! Tag: "..sTag)
				sUser:Disconnect()
			end
		end
	end
end
--###############################################--
--// NightLitch

Happy New Year // NightLitch

blackwings · 26 December, 2004, 02:42:41

I haven't test it, but it seems very nice, but personally, I think this would be better
(better control with the profile/message thingie. And without the global varibles, the script is almost as short as yours) =

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
-- Updated:
-- - Checks for users that should not have [VIP] or [REG]
--   in the Nickname.
-- Advanced Tags:  [__V--i--P__}, {_V_]i[_P_}
-- Modded by blackwings
--###############################################--
BotName = "TagCheck"
--###############################################--
function DataArrival(sUser,sData)
	if strsub(sData, 1,7) == "$MyINFO" then
		local _,_,sTag = strfind(strlower(sData), "[%[%{%(](%S+)[%]%}%)]")
		if sTag then
			if strfind(strlower(sTag), "%p*v%p*i%p*p%p*") and sUser.iProfile ~= 2 then
				sUser:SendData(BotName, "Remove VIP Tag from your nickname! Tag: "..sTag)
				sUser:Disconnect()
			elseif strfind(strlower(sTag), "%p*r%p*e%p*g%p*") and sUser.iProfile ~= 3 then
				sUser:SendData(BotName, "Remove REG Tag from your nickname! Tag: "..sTag)
				sUser:Disconnect()
			end
		end
	end
end
--###############################################--
--// NightLitch

NightLitch · 26 December, 2004, 03:20:39

Here this is a the final piece you will ever need.
You can put in more Tags you don't want...

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
-- Updated:
--                      - Checks for users that should not have [VIP] or [REG]
--                        in the Nickname.
-- Advanced Tags:  [__V--i--P__}, {_V_]i[_P_}
--###############################################--
BotName = "TagCheck"
--###############################################--
iTags = {
["vip"] = "Remove VIP Tag from your nickname !!",
["reg"] = "Remove REG Tag from your nickname !!",
}
--###############################################--
function DataArrival(sUser,sData)
	if strsub(sData, 1,7) == "$MyINFO" then
		local _,_,sTag = strfind(strlower(sData), "[%[%{%(](%S+)[%]%}%)]")
		if sTag then
			local _,_,p1,p2,p3 = strfind(sTag, "%p*(%a*)%p*(%a*)%p*(%a*)%p*")
			sTag = p1..p2..p3
			if iTags[sTag] then
				sUser:SendData(BotName, iTags[sTag])
				sUser:Disconnect()
			end
		end
	end
end
--###############################################--
--// NightLitch

//NL

imby · 26 February, 2005, 02:46:28

QuoteOriginally posted by NightLitch
Here this is a the final piece you will ever need.
You can put in more Tags you don't want...

--###############################################--
-- Simple VIP Check -- By NightLitch 2004-12-23 --
-- Updated:
--                      - Checks for users that should not have [VIP] or [REG]
--                        in the Nickname.
-- Advanced Tags:  [__V--i--P__}, {_V_]i[_P_}
--###############################################--
BotName = "TagCheck"
--###############################################--
iTags = {
["vip"] = "Remove VIP Tag from your nickname !!",
["reg"] = "Remove REG Tag from your nickname !!",
}
--###############################################--
function DataArrival(sUser,sData)
	if strsub(sData, 1,7) == "$MyINFO" then
		local _,_,sTag = strfind(strlower(sData), "[%[%{%(](%S+)[%]%}%)]")
		if sTag then
			local _,_,p1,p2,p3 = strfind(sTag, "%p*(%a*)%p*(%a*)%p*(%a*)%p*")
			sTag = p1..p2..p3
			if iTags[sTag] then
				sUser:SendData(BotName, iTags[sTag])
				sUser:Disconnect()
			end
		end
	end
end
--###############################################--
--// NightLitch

//NL

This script keeps those out with a tag which they shouldn't have, but unfortunately it also keeps out the genuine users with a correct tag/profile.

blackwings · 26 February, 2005, 03:50:11

if you just want to stop non-VIP/REG users to have VIP/REG tag, then use the script I posted just before NightLitch last post.

imby · 26 February, 2005, 04:07:01

QuoteOriginally posted by blackwings
if you just want to stop non-VIP/REG users to have VIP/REG tag, then use the script I posted just before NightLitch last post.

I did, it works good, but... now we're on LUA 5

*hint hint*

blackwings · 26 February, 2005, 05:38:53

QuoteOriginally posted by imby
QuoteOriginally posted by blackwings
if you just want to stop non-VIP/REG users to have VIP/REG tag, then use the script I posted just before NightLitch last post.

I did, it works good, but... now we're on LUA 5 :D

*hint hint*

heh, you have the ptokax beta :P you found out what the adress to the hub where PPK is >_>

imby · 26 February, 2005, 07:28:48

QuoteOriginally posted by blackwings
QuoteOriginally posted by imby
QuoteOriginally posted by blackwings
if you just want to stop non-VIP/REG users to have VIP/REG tag, then use the script I posted just before NightLitch last post.

I did, it works good, but... now we're on LUA 5

*hint hint*
heh, you have the ptokax beta you found out what the adress to the hub where PPK is >_>

Just used some common sense to find him

Gonna be tough though as I don't even have a simple !kick script. Maybe I should put more effort into learning scripting myself, or maybe ask optimus if i can beta test the new robocop. - Aint gonna happen

)

PtokaX forum

News:

illegal VIP scripts

blackwings

Ubikk

NightLitch

blackwings

NightLitch

NightLitch

NightLitch

blackwings

blackwings

NightLitch

imby

blackwings

blackwings

NightLitch

blackwings

NightLitch

imby

blackwings

imby

blackwings

imby