|
@@ -82,8 +82,7 @@ proc ::putils::put_bot {target_botnetnick fromdata} {
|
|
|
# prepare data ...! encode. send multiple data, if needed.
|
|
|
# encode it, base64
|
|
|
set data [::base64::encode -wrapchar "" $fromdata]
|
|
|
- putlog "base64: $data"
|
|
|
- ::putils::filelog "scripts/cims/cims.log" "put_bot to $target_botnetnick: full base64 $data"
|
|
|
+ #::putils::filelog "scripts/cims/cims.log" "put_bot to $target_botnetnick: full base64 $data"
|
|
|
|
|
|
# make a hash of $data
|
|
|
set md5 [::md5::md5 -hex $data]
|
|
@@ -112,15 +111,15 @@ proc ::putils::put_bot {target_botnetnick fromdata} {
|
|
|
#OTA=
|
|
|
# cut data into pieces and send!
|
|
|
for {set x 0} {$x < $count_parts} {incr x} {
|
|
|
- putlog "part number is $x"
|
|
|
+ #putlog "part number is $x"
|
|
|
|
|
|
# get the part
|
|
|
set part [string range $data 0 $maxmsglen]
|
|
|
- putlog "part is $part"
|
|
|
+ putlog "part $x is $part"
|
|
|
|
|
|
# kill the part out of the original string
|
|
|
set data [string replace $data 0 $maxmsglen ""]
|
|
|
- ::putils::filelog "scripts/cims/cims.log" "put_bot to $target_botnetnick: $part"
|
|
|
+ #::putils::filelog "scripts/cims/cims.log" "put_bot to $target_botnetnick: $part"
|
|
|
putbot $target_botnetnick [concat "rec_putils " $md5 " " [expr $x + 1] " " $count_parts " " $part]
|
|
|
}
|
|
|
|