Antivirus
 

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

Antivirus

Started by badtrip, 08 July, 2005, 14:11:34

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

badtrip

hello,

This script is like one antivirus, disconect , kick  and ban the user if they have a virus on the dc++


-------portugues---------------- 
 -- antivirus v1.0 
-- tradu??o e adapta??o por badtrip 
-- implementa??o de op??es por zero-cool 
-- Pvt's agora funcionam melhor 
-- Ultima actualiza??o: 21/06/2005 
---------ingles--------------------
-- antivirus v1.0
-- adaptation by badtrip
-- comands by zero-cool
-- upgrade in pm?s

sBot = "" -- Nome do Bot; deixar em branco para usar o Bot do Ptokax ( bot name )

email = "" -- Deixar em branco para pre-defeni??o do Hub ( email )

mdm = 3 -- Modo de mandar( sending mode): 1- Para o Main( to the main )  2- Para PVT ( pm mode )  3- Para o Main+PVT ( main and pm )
mdt = 1 -- Modo de fazer o user sair: ( comand to the user )1- disconnect  2- kick  3- ban  4- redirect 
aop = 1 -- Avisar Operadores( send a msn to op?s ): 0- N?o(no)  1- Sim(yes) 

msg = "\r\n\r\n *** ( your system have a virus go to the syte and clean the system )O teu sistema  DC++  est? infectado por um virus. Por favor vai a este syte para o limpares" 
site = "\r\n *** [URL]http://www3.ca.com/securityadvisor/virusinfo/virus.aspx?id=40789[/URL] \r\n" 

-- ## N?o mexer ## --  ## dont make changes ##
if email == "" then 
   email = frmHub:GetHubBotEmail() 
else 
   email = email 
end 

if sBot == "" then 
   sBot = frmHub:GetHubBotName() 
else 
   sBot = sBot 
   frmHub:RegBot(sBot) 
end 

MyINFOArrival = function(curUser, sData) 
   if string.find(curUser.sEmail, "myemail@host.com") or string.find(curUser.sName, "mynick") or string.find(curUser.sDescription, "none") then 
   curUser:SendData("$MyINFO $ALL "..sBot.." $ $Bot$"..email.."$0$") 
   if mdm == 1 then 
      curUser:SendData(sBot, msg.." - "..site) 
      curUser:SendData(sBot, "Para mais informa??es ou duvidas contacta "..email) 
         if mdt == 1 then 
            curUser:Disconnect() 
         end 
         if mdt == 2 then 
            curUser:TempBan() 
         end 
         if  mdt == 3 then 
            curUser:Ban() 
         end 
         if mdt == 4 then 
            curUser:Redirect(frmHub:GetRedirectAddress(), "Virus") 
         end 
   end 
    
   if mdm == 2 then 
      SendPmToNick(curUser.sName, sBot, msg.." - "..site.."\r\n\t*** Para mais informa??es ou duvidas contacta "..email) 
         if mdt == 1 then 
            curUser:Disconnect() 
         end 
         if mdt == 2 then 
            curUser:TempBan() 
         end 
         if  mdt == 3 then 
            curUser:Ban() 
         end 
         if mdt == 4 then 
            curUser:Redirect(frmHub:GetRedirectAddress(), "Virus") 
         end 
   end 
    
   if mdm == 3 then 
      curUser:SendData(sBot, msg.." - "..site) 
      curUser:SendData(sBot, "Para mais informa??es ou duvidas contacta "..email) 
      SendPmToNick(curUser.sName, sBot, msg.." - "..site.."\r\n\t*** Para mais informa??es ou duvidas contacta "..email) 
         if mdt == 1 then 
            curUser:Disconnect() 
         end 
         if mdt == 2 then 
            curUser:TempBan() 
         end 
         if  mdt == 3 then 
            curUser:Ban() 
         end 
         if mdt == 4 then 
            curUser:Redirect(frmHub:GetRedirectAddress(), "Virus") 
         end 
   end 
   if aop == 1 then 
   SendPmToOps(sBot, "O utilizador "..curUser.sName.." estava infectado, e por isso foi desligado.") 
   end 
   end 
end 


NewUserConnected = NewOpConnected

GeceBekcisi

#1
Just another one:
--// ------------------------------------------------------------------------------------------------------------ --
--// -  GeceBekcisi'nin yazdigi HubBekcisi s?r?m 0.5 ten alintidir
--// -  Stripped from HubBekcisi v0.5 by GeceBekcisi
--// ------------------------------------------------------------------------------------------------------------ --
--// -  Features: Simple Win32.Tibick detection
--// ------------------------------------------------------------------------------------------------------------ --
--------------------------------------------------------------------------------------------------------------------
--// Global Settings
--------------------------------------------------------------------------------------------------------------------
sBot = frmHub:GetHubBotName()		-- Bot's Name	( leave so if you don't want to use a special name for your bot )
sRdAd = frmHub:GetRedirectAddress()	-- Redirect address 	( leave so if you want users to be redirected to the default redirect address )
sRedirect = "off"			-- Redirect detected users			( on / off )
sInform = "on"			-- Inform user why he was banned / disconnected	( on / off )
sFeed = "on"			-- Feed about detected users			( on / off )
sFeedType = "OPS"			-- "OPS" for Pm to ops, "NICK" for pm to specified nick below
sFeedNick = "Admin"			-- Enter nick to send feeds if NICK selected above
sKickType = "BAN"			-- "DSC" to disconnect user, "BAN" to timeban user for specified minutes below
iTimeBan = "60"			-- TimeBan time in minutes if BAN selected above
--------------------------------------------------------------------------------------------------------------------
-- Some notes about Kick Type setting
-- Disconnecting may cause feed spam if a popular hub with feed turned on
-- TimeBanning fixes feed spam but may cause a slow hub because of huge banlist
--------------------------------------------------------------------------------------------------------------------
--// AntiVirus begins
--------------------------------------------------------------------------------------------------------------------
function MyINFOArrival(curUser, sData)
	if curUser.sEmail and string.find(curUser.sEmail, "myemail@host.com") then
		if sFeed == "on" then
			if sFeedType == "OPS" then
				SendPmToOps(sBot, "A user from IP "..curUser.sIP.." is trying to login with Win32.Tibick virus but stopped.")
			else
				SendPmToNick(sFeedNick, sBot, "A user from IP "..curUser.sIP.." is trying to login with Win32.Tibick virus but stopped.")
			end
		end
		if sInform == "on" then
			curUser:SendData(sBot, "Your DC++ system is infected by Win32.Tibick virus. Please clean it before entering our hub!")
			curUser:SendData(sBot, "For more info double click: [URL]http://www3.ca.com/securityadvisor/virusinfo/virus.aspx?id=40789[/URL]")
		end
		if sRedirect == "on" then
			curUser:Redirect(sRdAd, " Get an AntiVirus software! ")
		end
		if sKickType == "DSC" then
			curUser:Disconnect()
		else
			curUser:TimeBan(iTimeBan)
		end
	return 1
	end
end
--------------------------------------------------------------------------------------------------------------------
--// AntiVirus ends
--------------------------------------------------------------------------------------------------------------------
Note: Nick or description is not detected due to nick or description may change in favorite hubs settings but mail is global.
Do you need an advanced user handling script? Download UserBekcisi today (Latest Edit)
Features: User + ISP + GeoIP database, user info + share checking and many more...

[?X?]???B??

hello badtrip,please translate your version of
antivirus script to english  ;)

7P-Darkman

Hello friends,


This link for the site is outdated...  

http://www3.ca.com/securityadvisor/virus...s.aspx?id=40789


They everybody knows of one other to make the clear?
Owner of HUB Pantanal - Brasil

GeceBekcisi

Do you need an advanced user handling script? Download UserBekcisi today (Latest Edit)
Features: User + ISP + GeoIP database, user info + share checking and many more...

7P-Darkman

Thanks, GeceBekcisi...

I see in your eyes !
Owner of HUB Pantanal - Brasil

GeceBekcisi

np m8, just have fun!
Do you need an advanced user handling script? Download UserBekcisi today (Latest Edit)
Features: User + ISP + GeoIP database, user info + share checking and many more...

?Tr??T_????

-------portugues----------------

 -- antivirus v1.0

-- tradu??o e adapta??o por badtrip

-- implementa??o de op??es por zero-cool

-- Pvt's agora funcionam melhor

-- Ultima actualiza??o: 21/06/2005

---------ingles--------------------

-- antivirus v1.0

-- adaptation by badtrip

-- comands by zero-cool

-- upgrade in pm?s



sBot = "" -- Nome do Bot; deixar em branco para usar o Bot do Ptokax ( bot name )



email = "" -- Deixar em branco para pre-defeni??o do Hub ( email )



mdm = 3 -- Modo de mandar( sending mode): 1- Para o Main( to the main )  2- Para PVT ( pm mode )  3- Para o Main+PVT ( main and pm )

mdt = 1 -- Modo de fazer o user sair: ( comand to the user )1- disconnect  2- kick  3- ban  4- redirect

aop = 1 -- Avisar Operadores( send a msn to op?s ): 0- N?o(no)  1- Sim(yes)



msg = "\r\n\r\n *** ( your system have a virus go to the syte and clean the system )O teu sistema  DC++  est? infectado por um virus. Por favor vai a este syte para o limpares"
site = "\r\n *** http://www3.ca.com/securityadvisor/virus...s.aspx?id=40789 \r\n"


-- ## N?o mexer ## --  ## dont make changes ##

if email == "" then

   email = frmHub:GetHubBotEmail()

else

   email = email

end



if sBot == "" then

   sBot = frmHub:GetHubBotName()

else

   sBot = sBot

   frmHub:RegBot(sBot)

end



MyINFOArrival = function(curUser, sData)

   if string.find(curUser.sEmail, "myemail@host.com") or string.find(curUser.sName, "mynick") or string.find(curUser.sDescription, "none") then

   curUser:SendData("$MyINFO $ALL "..sBot.." $ $Bot$"..email.."$0$")

   if mdm == 1 then

      curUser:SendData(sBot, msg.." - "..site)

      curUser:SendData(sBot, "Para mais informa??es ou duvidas contacta "..email)

         if mdt == 1 then

            curUser:Disconnect()

         end

         if mdt == 2 then

            curUser:TempBan()

         end

         if  mdt == 3 then

            curUser:Ban()

         end

         if mdt == 4 then

            curUser:Redirect(frmHub:GetRedirectAddress(), "Virus")

         end

   end

   
   if mdm == 2 then

      SendPmToNick(curUser.sName, sBot, msg.." - "..site.."\r\n\t*** Para mais informa??es ou duvidas contacta "..email)

         if mdt == 1 then

            curUser:Disconnect()

         end

         if mdt == 2 then

            curUser:TempBan()

         end

         if  mdt == 3 then

            curUser:Ban()

         end

         if mdt == 4 then

            curUser:Redirect(frmHub:GetRedirectAddress(), "Virus")

         end

   end

   
   if mdm == 3 then

      curUser:SendData(sBot, msg.." - "..site)

      curUser:SendData(sBot, "Para mais informa??es ou duvidas contacta "..email)

      SendPmToNick(curUser.sName, sBot, msg.." - "..site.."\r\n\t*** Para mais informa??es ou duvidas contacta "..email)

         if mdt == 1 then

            curUser:Disconnect()

         end

         if mdt == 2 then

            curUser:TempBan()

         end

         if  mdt == 3 then

            curUser:Ban()

         end

         if mdt == 4 then

            curUser:Redirect(frmHub:GetRedirectAddress(), "Virus")

         end

   end

   if aop == 1 then

   SendPmToOps(sBot, "O utilizador "..curUser.sName.." estava infectado, e por isso foi desligado.")

   end

   end

end





NewUserConnected = NewOpConnected

Madman

Change this
sBot = "" -- Nome do Bot; deixar em branco para usar o Bot do Ptokax ( bot name )
To this...
sBot = "[color=red]BotName[/color]" -- Nome do Bot; deixar em branco para usar o Bot do Ptokax ( bot name )
We suffer in silence, we lurk in the shadows, we kill in the night
Site currently down, ETA of returning online is 2099 ;p

?Tr??T_????

nope its not workin m8

GeceBekcisi

#10
Give this a try:
-------portugues---------------- 
-- antivirus v1.0 
-- tradu??o e adapta??o por badtrip 
-- implementa??o de op??es por zero-cool 
-- Pvt's agora funcionam melhor 
-- Ultima actualiza??o: 21/06/2005 
---------ingles-------------------- 
-- antivirus v1.0 
-- adaptation by badtrip 
-- comands by zero-cool 
-- upgrade in pm?s 

sBot = "EnterHereYourBotName" -- Nome do Bot; deixar em branco para usar o Bot do Ptokax ( bot name ) 
email = "" -- Deixar em branco para pre-defeni??o do Hub ( email ) 
mdm = 3 -- Modo de mandar( sending mode): 1- Para o Main( to the main ) 2- Para PVT ( pm mode ) 3- Para o Main+PVT ( main and pm ) 
mdt = 1 -- Modo de fazer o user sair: ( comand to the user )1- disconnect 2- kick 3- ban 4- redirect 
aop = 1 -- Avisar Operadores( send a msn to op?s ): 0- N?o(no) 1- Sim(yes) 

msg = "\r\n\r\n *** ( your system have a virus go to the syte and clean the system )O teu sistema DC++ est? infectado por um virus. Por favor vai a este syte para o limpares" 
site = "\r\n *** [URL]http://www3.ca.com/securityadvisor/virus...s.aspx?id=40789[/URL] \r\n" 

-- ## N?o mexer ## -- ## dont make changes ## 
if email == "" then 
		email = frmHub:GetHubBotEmail() 
	else 
		email = email 
end 

if sBot == "" then 
		sBot = frmHub:GetHubBotName() 
	else 
		sBot = sBot 
	end 

function Main() 
	frmHub:RegBot(sBot) 
end 

MyINFOArrival = function(curUser, sData) 
	if string.find(curUser.sEmail, "myemail@host.com") or string.find(curUser.sName, "mynick") or string.find(curUser.sDescription, "none") then 
		curUser:SendData("$MyINFO $ALL "..sBot.." $ $Bot$"..email.."$0$") 
		if mdm == 1 then 
			curUser:SendData(sBot, msg.." - "..site) 
			curUser:SendData(sBot, "Para mais informa??es ou duvidas contacta "..email) 
				if mdt == 1 then 
					curUser:Disconnect() 
				end 
				if mdt == 2 then 
					curUser:TempBan() 
				end 
				if  mdt == 3 then 
					curUser:Ban() 
				end 
				if mdt == 4 then 
					curUser:Redirect(frmHub:GetRedirectAddress(), "Virus") 
				end 
		end 
		if mdm == 2 then 
			SendPmToNick(curUser.sName, sBot, msg.." - "..site.."\r\n\t*** Para mais informa??es ou duvidas contacta "..email) 
				if mdt == 1 then 
					curUser:Disconnect() 
				end 	
				if mdt == 2 then 
					curUser:TempBan() 
				end 
				if  mdt == 3 then 
					curUser:Ban() 
				end 
				if mdt == 4 then 
					curUser:Redirect(frmHub:GetRedirectAddress(), "Virus") 
				end 
		end  
		if mdm == 3 then 
			curUser:SendData(sBot, msg.." - "..site) 
			curUser:SendData(sBot, "Para mais informa??es ou duvidas contacta "..email) 
			SendPmToNick(curUser.sName, sBot, msg.." - "..site.."\r\n\t*** Para mais informa??es ou duvidas contacta "..email) 
				if mdt == 1 then 
					curUser:Disconnect() 
				end 
				if mdt == 2 then 
					curUser:TempBan() 
				end 
				if  mdt == 3 then 
					curUser:Ban() 
				end 
				if mdt == 4 then 
					curUser:Redirect(frmHub:GetRedirectAddress(), "Virus") 
				end 
		end
		if aop == 1 then 
		SendPmToOps(sBot, "O utilizador "..curUser.sName.." estava infectado, e por isso foi desligado.") 
		end 	
	end 
end 

NewUserConnected = NewOpConnected
Do you need an advanced user handling script? Download UserBekcisi today (Latest Edit)
Features: User + ISP + GeoIP database, user info + share checking and many more...

?Tr??T_????

[15:13] Syntax F:\Azim (business)\Ptokax\Ptokax UK\scripts\cccc.lua:94: `end' expected (to close `function' at line 38) near `'

GeceBekcisi

Sorry, fixed it now. Code above is edited..
Do you need an advanced user handling script? Download UserBekcisi today (Latest Edit)
Features: User + ISP + GeoIP database, user info + share checking and many more...

?Tr??T_????

thnx m8 it works fine fine fine
 :D  :D  :D  :D  8)  8)  :]  :]  :P

Zigurds

Please, translate into English  ?(

-------------------------------------
owner for Latvian hub Alfa
http://www.hub.lv

GeceBekcisi

Click here.

Best Regards;
GeceBekcisi
Do you need an advanced user handling script? Download UserBekcisi today (Latest Edit)
Features: User + ISP + GeoIP database, user info + share checking and many more...

Cêñoßy†ê

--// ------------------------------------------------------------------------------------------------------------ -- 
--// - GeceBekcisi'nin yazdigi HubBekcisi s?r?m 0.5 ten alintidir 
--// - Stripped from HubBekcisi v0.5 by GeceBekcisi 
--// - Stripped more by C??o?y??
--// ------------------------------------------------------------------------------------------------------------ -- 
--// - Features: Simple Win32.Tibick detection 
--// ------------------------------------------------------------------------------------------------------------ -- 
-------------------------------------------------------------------------------------------------------------------- 
--// Global Settings 
-------------------------------------------------------------------------------------------------------------------- 
sBot = frmHub:GetHubBotName() -- Crabs your main bots name 
iTimeBan = "60"               -- TimeBan time in minutes 
infAdd = "http://www.spywareguide.com/product_show.php?id=2108"  -- Link to removal instructions


MyINFOArrival = function(User, sData) 
       if User.sEmail and string.find(User.sEmail, "myemail@host.com") then 
       SendToOps(sBot, User.sName.." from IP "..User.sIP.." tryed to login with Win32.Tibick virus and got Tempbanned for "..iTimeBan.." minutes.")   
       User:SendData(sBot, "Your DC++ system is infected by Win32.Tibick virus. Please clean it before entering our hub!") 
       User:SendData(sBot, "For more info double click: "..infAdd.."")  
       User:TimeBan(iTimeBan) 
    end 
end
Powered By Leviathan™ 2nd Generation v. 1.9

GeceBekcisi

OMG my dear script is shaved like a chicken :D
Do you need an advanced user handling script? Download UserBekcisi today (Latest Edit)
Features: User + ISP + GeoIP database, user info + share checking and many more...

Cêñoßy†ê

QuoteOriginally posted by GeceBekcisi
OMG my dear script is shaved like a chicken :D
hihi... shaved is the right way  :P
Powered By Leviathan™ 2nd Generation v. 1.9

SMF spam blocked by CleanTalk