Print Page - Need A Script

Title: Need A Script
Post by: turkiye on 17 October, 2003, 15:31:16

I need a script FakeChecker on join on the hub downloads FakeChecker your list to check your share!
Who Haves It?

Title:
Post by: [NL]Pur on 17 October, 2003, 15:37:41

a fakechecker try dc++k client

server side is not good because of bandwidth

Title:
Post by: pHaTTy on 17 October, 2003, 21:22:34

try this ;)



badShare = { "11534336","10000000000","5368709120","10737418240","13630010000","16106127360",
"21474836480","26843545600","27000000000","32212254720","7970010000",
"37580963840","37970010000","6599201000000","65992010000000","36772010000000",
"3677201000000","42949672960","48318382080","214266156265","53687091200",
"59055800320","1747201000000","16772010000000","147720100000000","10240000000000",
"64424509440","65719010000","69793218560","75161927680","80530636800","85899345920",
"91268055040","96636764160","102005473280","102400000000","107374182400","118648471552",
"128849018880","140301549174","161061273600","174720100000","183287729356","214748364800",
"268435456000","322122547200","375809638400","397760100000","429496729600","536870912000",
"657190100000","1024000000000","183287729357","102392020337","13625783747","174719269601",
"65712999629","26993869455","140295106724","199715979264" }

function checkFake(user)
local s, e, shared = strfind(user.sMyInfoString, "$ALL %S+ .-$ $.+.$.-$(%d+)")
return foreachi(badShare, function(id, value) if value == %shared then return id end end)
end

function NewUserConnected(user)
	if checkFake(user) then user:SendData("*** You seem to be using a fakeshare client") 
	user:Disconnect() 
    end
end

function OpConnected(user)
	if checkFake(user) then user:SendData("*** You seem to be using a fakeshare client") 
	user:Disconnect() 
    end
end

l8rr,,

-phatty

Title: no
Post by: turkiye on 18 October, 2003, 18:57:54

it works not!
Havw you got a another one?
Where Find you Scripts?

Title:
Post by: pHaTTy on 18 October, 2003, 20:07:21

ahh you mean for donkeys

Code Select


Kos = "DonkeyKiicker"

Donkeys = { "mldc", "mldc client", "mldonkey"}

function NewUserConnected(user)
	for key,checkWord in Donkeys do
		if strfind(user.sMyInfoString, checkWord, 1, 1) then
			SendToNick(user.sName, "<" ..Kos .."> You are using unauthorized client software, please go to [URL]http://dcplusplus.sourceforge.net[/URL] and download the newest version of DC++")
			SendToNick(user.sName, "<" ..Kos .."> Disconnecting...")
			user:TimeBan(120)
			return 1

		end
	end
end

there ya go that is what you mean ;)

l8rr,,

-phatty

Title: no
Post by: turkiye on 18 October, 2003, 21:05:09

no that's not
The Script what i look is a script on join on the hub downloads that script to check your share (on turkhub.kicks-ass.net is the script)

Title:
Post by: pHaTTy on 18 October, 2003, 21:06:11

ahhh you mean where it check for bad files?

Title:
Post by: turkiye on 18 October, 2003, 21:08:05

yes,
the script checkt your share on join at the hub

Title: yo
Post by: turkiye on 18 October, 2003, 21:08:37

have you got that script?

Title:
Post by: pHaTTy on 18 October, 2003, 21:13:36

try here (http://board.univ-angers.fr/search.php?boardid=0&searchid=2&showposts=1&sid=8a30accf35a1441517c8a3f3a4176074)

l8rr,,

-phatty

Title: no
Post by: turkiye on 18 October, 2003, 21:23:20

there's no result

Title:
Post by: pHaTTy on 18 October, 2003, 22:30:49

ooops yep try here (http://board.univ-angers.fr/thread.php?threadid=5&boardid=12&sid=baa34f29668754e5a13b87613e7da318)

l8rr,,

-phatty

Title: no
Post by: turkiye on 18 October, 2003, 22:35:52

not that script
go to turkhub.kicks-ass.net and then you see a fakechecker script downloaded your list to check of you got a fake list!
that script need I!
not searchkicker

Title:
Post by: Alexei on 18 October, 2003, 23:27:46

Sorry m8.. never saw it b4... but i will keep an eye open for you....
That script is not hard to make as far as i know...
Might try to make some primitive one tomorrow...

Keep looking... ;)

Title: File Checker
Post by: (Mr420) on 19 October, 2003, 00:49:09

try this
-- Simple Illegalist v0.1
-- Created by Ptaczek, Jan-3, 2003
-- Searches for specified patterns. Useful for illegal share checking
-- Modificed by Leo

BotName = "Illegalist"

Files = {
["rape"]="Do not share sick porn!",
["preteen"]="No pre-teen here!",
["nazi"]="No nazi related material here!",
[".avi"]="No AVI files here!"
}

Kicked = {}

function NewUserConnected(user)
frmHub:EnableSearchData(1)
if( Kicked[user.sName] == 1 ) then
Kicked[user.sName] = nil
end
for i,v in Files do
user:SendData("$Search Hub:"..BotName.." F?F?0?1?"..i)
end
end

function DataArrival(user, data)
if( strsub(data, 1, 3) == "$SR" ) then
_,_,nick = strfind( data, "\05(%S*)|$" )
if( nick == BotName and Kicked[user.sName] == nil ) then
Kicked[user.sName] = 1
Reason = FindWhat(data)
SendToOps(BotName, "*** User "..user.sName.." kicked. Reason: "..Reason)
user:SendPM(BotName, "You were kicked. "..Reason)
user:Disconnect()
end
end
end

function FindWhat(data)
for i,v in Files do
if( strfind(strlower(data), i) ) then
return v
end
end
return "Other files"
end

Title:
Post by: plop on 19 October, 2003, 02:46:31

QuoteOriginally posted by turkiye
not that script
go to turkhub.kicks-ass.net and then you see a fakechecker script downloaded your list to check of you got a fake list!
that script need I!
not searchkicker

sounds like pur sayd in the start, he wants dc++K.
there is no script wich can download a filelist, only clients can.
dc++k downloads the list on entry and checks for fakeshares.
you can download the latest version here (http://www.fukt.bth.se/~k/dcpp/) .
or send a blanco email to dcplusplusK@plop.nl to recieve a older but more stable version.

plop

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: turkiye on 17 October, 2003, 15:31:16