egghelp/eggheads community

Sending string with multiple line across botnet

2004-04-14T02:39:11-04:00

Ok, script is finalized, please teach me how to simplify it Objective is get file transfers curently on bot on another network and report it via linked bot to main network.

Code:

proc rcv_cmd {from comm com} {global linkbot dccstat          if {[lindex $com 0] == "STATUS" } {        set dccstat [dcclist SEND]                if {$dccstat == ""} {                putbot $linkbot "REL DCC status: Nothing in transfer queue"                return 0                }                foreach conn $dccstat {                regsub -all "\}|\{|send|SEND"  $conn "" conn                regsub -all "\n"  $conn {} connset from [lindex $conn 1]set file [lindex $conn 5]set progres [split [lindex $conn 3] / ]regsub -all -- {[^ A-Za-z0-9]} [lindex $progres 0] "" downset all [expr [lindex $progres 1]/1048576]set down [expr $down/1048576]set progres "[expr ($down *100) / $all]%"putbot $linkbot "REL DCC status: $from:\0034 $file $progres ($down MB/$all MB)"                  }        }}

Statistics: Posted by TimeLord — Wed Apr 14, 2004 2:39 am

Sending string with multiple line across botnet

2004-04-13T10:58:00-04:00

You need to get the list/string buisness right!

dcclist ?type?
Returns: a list of active connections, each item in the list is a
sublist containing six elements:
{ {} }.

The types are: chat, bot, files, file_receiving, file_sending,
file_send_pending, script, socket (these are connections that have
not yet been put under 'control'), telnet, and server. The timestamp
is in unixtime format.
Module: core

Code:

proc dcc:sends {} {   set dccsend [dcclist SEND]  foreach send $dccsend {     putlog "[join $send]"   } }

Statistics: Posted by Papillon — Tue Apr 13, 2004 10:58 am

Sending string with multiple line across botnet

2004-04-13T09:33:46-04:00

I think you can remove the "/" in "(,)".
try:
Code:
regsub -all "(" $conn "" conn regsub -all ")" $conn "" conn

same error :
Tcl error [rcv_cmd]: couldn't compile regular expression pattern: parentheses () not balanced

Statistics: Posted by TimeLord — Tue Apr 13, 2004 9:33 am

Sending string with multiple line across botnet

2004-04-13T09:25:15-04:00

I think you can remove the "/" in "(,)".
try:

Code:

regsub -all "(" $conn "" conn regsub -all ")" $conn "" conn

Statistics: Posted by Xpert — Tue Apr 13, 2004 9:25 am

Sending string with multiple line across botnet

2004-04-13T09:03:36-04:00

yup, i just realized that

Code:

regsub -all "\}|\{|send|SEND"  $conn "" conn

workin` for me, but i can`t remove ( ) parentheses in one line

Code:

regsub -all "\}|\{|send|SEND|\(|\)"  $conn "" conn

won`t work

if im usin` multiple line

Code:

                regsub -all "\(" $conn "" conn                regsub -all "\)" $conn "" conn

then:
Tcl error [rcv_cmd]: couldn't compile regular expression pattern: parentheses () not balanced

Statistics: Posted by TimeLord — Tue Apr 13, 2004 9:03 am

Sending string with multiple line across botnet

2004-04-13T08:40:18-04:00

To remove the "{,}" you should use the regsub command.

regsub -all "\{" $dccsend "" dccsend
regsub -all "\}" $dccsend "" dccsend

Your code should be like that:

Code:

proc dcc:sends {} {   set dccsend [join [list [dcclist SEND]]]   set send2 ""  regsub -all "\{" $dccsend "" dccsend  regsub -all "\}" $dccsend "" dccsend  foreach send $dccsend {     append send2 "$send"   }   putlog "$send2" }

Statistics: Posted by Xpert — Tue Apr 13, 2004 8:40 am

Sending string with multiple line across botnet

2004-04-13T03:45:24-04:00

Thanx very much. Now im thinkin` about how to remove "{}" characters from this variable and then send only botname, filename and progress.

output from dcclist command is string or list ???

Statistics: Posted by TimeLord — Tue Apr 13, 2004 3:45 am

Sending string with multiple line across botnet

2004-04-13T03:31:55-04:00

use the 'foreach' command:

Code:

proc dcc:sends {} {  set dccsend [join [list [dcclist SEND]]]  set send2 ""  foreach send $dccsend {    append send2 "$send"  }  putlog "$send2"}

Should work, but not tested

Statistics: Posted by Xpert — Tue Apr 13, 2004 3:31 am

Sending string with multiple line across botnet

2004-04-13T02:31:00-04:00

Hello, i need to send message to another bot using "putbot". I need to include variable $dccsend, but only first line going out. Here is my last try:

Code:

set dccsend [join [list [dcclist SEND]]]

common output from this comand is like:
Tcl: {8 {BOTSNAME} SYS@268AFA0.com SEND {send (361945012)/734447616
Tcl: Filename: file1.zip
Tcl: } 1081837810}

How to send all 3 lines to another bot please ?

Statistics: Posted by TimeLord — Tue Apr 13, 2004 2:31 am