web-overview of the botnet

tobydude · Post by **tobydude** » Mon Jun 06, 2005 7:13 am

The idea is a web-page which have graphics,describing the whole botnet.
I.E, which bots are on the different channels, which users are on
the different channels.
How nice it would have been to log on the web to check the status
of my bonet and mybe se the users online.
I have made a simple graphic illustration of what I mean.
http://www.tessa.shellcity.no/bilder/webbotnet.jpg

Some script has some of theese features. Many additional features
could be added to such a script (or module).

I have no knowledge of tcl-scripting

toby

tobydude · Post by **tobydude** » Sat Jun 11, 2005 9:15 am

hey toby.
This is a very good idea for a script!!!
I will pass this on to my scripting friends.
But I must tell you:
This is not an easy task...

somedude

tobydude · Post by **tobydude** » Sat Jun 11, 2005 9:18 am

Thank you, somedude.
I will wait patiently for your answer.
Thank you...

tobydude

^DooM^ · Post by **^DooM^** » Sat Jun 11, 2005 1:44 pm

split personality disorder?

tobydude · Post by **tobydude** » Mon Jun 13, 2005 3:27 am

Just to get some attention but
I guess such a script is not possible...

toby

demond · Post by **demond** » Mon Jun 13, 2005 3:34 am

it's possible, I'll give you some hints later

awyeah · Post by **awyeah** » Mon Jun 13, 2005 3:51 am

^DooM^ wrote:split personality disorder?

Maybe 2 people sharing 1 ID.

domp · Post by **domp** » Mon Jun 13, 2005 7:24 pm

i've seen that before...

Will try to find it for u again

demond · Post by **demond** » Mon Jun 13, 2005 10:54 pm

this script (run on all bots) will update every 10 mins two global arrays, indexed by channel name and containing bot- and user lists:

Code: Select all

bind time - "?0 *" {set flag 1; putallbots req;#}

bind bot - req gotreq
proc gotreq {from cmd text} {
	foreach chan [channels] {
		foreach user [chanlist $chan] {
			if {[nick2hand $user $chan] != "*"} {
				putbot $from "ans $chan $user"
			}
		}
	}
}

bind bot - ans gotans
proc gotans {from cmd text} {
	if $::flag {
		if [info exists ::bbots] {unset ::bbots}
		if [info exists ::buser] {unset ::buser}
		set ::flag 0
	}
	set chan [lindex [split $text] 0]
	set user [lindex [split $text] 1]
	if {![info exists ::bbots($chan)] ||
	    [lsearch -exact $::bbots($chan) $from] == -1} {
		lappend ::bbots($chan) $from
	}
	if {![info exists ::buser($chan)] ||
	    [lsearch -exact $::buser($chan) $user] == -1} {
		lappend ::buser($chan) $user
	}
}

it's trivial to construct the web layout you need using the two arrays

demond · Post by **demond** » Tue Jun 14, 2005 12:10 am

of course, requesting bot's own chans/users also need to be included:

Code: Select all

bind time - "?0 *" {set flag 1; putallbots req;#}

bind bot - req gotreq
proc gotreq {from cmd text} {
   foreach chan [channels] {
      foreach user [chanlist $chan] {
         if {[nick2hand $user $chan] != "*"} {
            putbot $from "ans $chan $user"
         }
      }
   }
}

bind bot - ans gotans
proc gotans {from cmd text} {
   if $::flag {
      if [info exists ::bbots] {unset ::bbots}
      if [info exists ::buser] {unset ::buser}
      foreach chan [channels] {
         lappend ::bbots($chan) $::nick
         foreach user [chanlist $chan] {
            if {[nick2hand $user $chan] != "*"} {
               lappend ::buser($chan) $user
            }
         }
      }
      set ::flag 0
   }
   set chan [lindex [split $text] 0]
   set user [lindex [split $text] 1]
   if {![info exists ::bbots($chan)] ||
       [lsearch -exact $::bbots($chan) $from] == -1} {
      lappend ::bbots($chan) $from
   }
   if {![info exists ::buser($chan)] ||
       [lsearch -exact $::buser($chan) $user] == -1} {
      lappend ::buser($chan) $user
   }
}

tobydude · Post by **tobydude** » Wed Jun 15, 2005 5:51 am

demond
Thanks for your reply.
Since I don´t know tcl, the code does not tell me much.

The idea was that the script should send data to a webpage
so that "we" were able to se on the web, a graphic of each
channel and which bots are on each channel.
Like a system chart of your botnet , on the web.
I dont know, but many other features could
probobly be added to such a script, to.

e.g.
-Info on the bot. When it was startet, host, how long it has been running ,
vertion , which shell the bots are on...e.g
-The hubs userlist and mybe the leafbots userlist. (with flags of each user)
-Users on each channel . (who is opped, vois e.g)
I guess the sky is the limit....
I em sure that such i script would be a popular script for botnet owners.

toby

demond · Post by **demond** » Thu Jun 16, 2005 12:05 am

well, unfortunately I don't do complete feature scripts anymore, I lost interest in that; but maybe someone will pick on this (which should generate a bare-bones webpage with the structure you need):

Code: Select all

proc members {f alist} {
	puts $f <p>
	set idx 0
	set more 1
	while $more {
		set more 0
		puts $f <tr>
		foreach {chan elems} $alist {
			if {$idx < [llength $elems]} {
				puts $f <td>[lindex $elems $idx]</td>
				set more 1 
			} {
				puts $f <td></td>
			}
		}
		puts $f </tr>
		incr idx
	}
}

proc genpage {f} {
	puts $f <html><head>botnet</head><body>
	puts $f <table>
	puts $f <tr>
	foreach chan [array names ::bbots] {
		puts $f <td>$chan</td> 
	}
	puts $f </tr>
	members $f [array get ::bbots]
	members $f [array get ::buser]
	puts $f </table>
	puts $f </body></html>
}