unload cetk.stealth
package cetk.stealth

setenv LOCALDOMAIN .
assign cetk.proxyfile foo-openproxylist
assign my.cloaknets *
assign cloak 3
set lastlog 256
#userdel *
purge oplist userlist
fserve.delpath *
unload cetk.fserve
alias sgconnwins (args) fe args grp {@ grp = serverctl(gmatch $grp);fe grp srv {@ srv = isconnected($srv) ? srv : []};fe grp win {@win = serverwin($win)}};return $args
ON #-join 99 * getandmitems channeld.$servergroup() $1
ON #-channel_sync 99 * {
	@ my.minu = my.minu ? my.minu : 3
	@ :item = finditem(channels.$servergroup() $tolower($0))
	assign.filter my.netchans.$servergroup() ${numonchannel($0)<my.minu?[$0]:[]}
	if ((0 <= item) && (numonchannel($0) < my.minu)) {
		getnrolitems channels.$servergroup() channeln.$servergroup() $item
		echo Rolling $servergroup() $servernum() $0 $#chanusers($0)
	} elsif (my.minu < numonchannel($0)) {
		setuniqitems CHANNELS.$servergroup() $0
		writeto CHANNELS.$toupper($servergroup()) $0
	}
	if (ischanop($N $0)) {mode $0 il-nt 1}
}
ON -odd "\* http/%.% 4?? *" setuniqitem httproxyerror $*
ON -odd "\* http/%.% 5?? *" setuniqitem httproxyerror $*
ON #-311 99 '$servername() $servernick() *' @ serverctl(set $servernum() userhost $2@$3)
ON #-405 99 * WSC.MOVENUL -m 9999 -r 2 $word.randsel($sgconnwins($servergroup())) $serverwin(),*;qcmd.uniq *;qcmd.filter quote?join* join*;1cmd 3 lae 1 3;@ lag[$servernum()][joining] = 0
ON #-439 99 * WSC.MOVENUL -m 9999 -r 2 $word.randsel($sgconnwins($servergroup())) $serverwin(),*;qcmd.uniq *;qcmd.filter quote?join* join*
fe (PART $jot(471 477)) foo {ON #-$foo 99 * {defer WSC.MOVENUL -s $word.randsel($sgconnwins($servergroup())) $serverwin(),*,$1}}
ON #-302 99 '$servernick() *' fe ($4 $serverourname()) foo {writeto foo-ozorg-hosts $foo}
ON #-366 99 * WHO $unsplit(, $1) -line {writeto foou.$tolower($servergroup()) ${index(~ $3)?[$3]:after(~ $3)} . . :$7-}
on ^005 * {
	fe ($pattern(NETWORK=* $*)) NETWORK {
		@ :NETWORK = after(= $NETWORK)
		if (servernum() && !comatch($servergroup()* $NETWORK $my.realnets) && !comatch($NETWORK $servergroup()* $my.realnets)) {
			array.purge proxylist $serverourname():$word(0 $servports())
			array.purge prox* $serverourname():$word(0 $servports()):*
			writeto foo-ircnets $serverourname():$word(0 $servports())
			#disconnect $servernum()
			@ serverctl(set $servernum() group $NETWORK)
		}
	}
}
on #-connect 99 * {
	defer eval join.all -jsn 1 \$my[netchans][$servergroup()]
	defer allservs if.net $servergroup() 1cmd 3 lae 0 1 1
	^assign lag.$servernum().mask $rand($time())
	^assign.addn my.netservs[$servergroup()] $servername()
	^assign.addn cetk.proxytest.ports $cut(1 : $leftw(1 $serv[$servernum()][proxy]))
	setuniqitem proxies $serv[$servernum()][proxy]
	setuniqitems proxylist $cut(0.1 : $leftw(1 $serv[$servernum()][proxy]))
	fe (getarrays(proxy.*)) ar {getnrolitems $ar $ar $shufflef($getmatches($ar *:$cut(1 : $leftw(1 $serv[$servernum()][proxy])):*))}
}
ON #-kick 99 '$N *' {
	if (patternbans(b $2 $N!$X)) {
		setuniqitems channels.$servergroup() $getandmitems(channels.$servergroup() $2)
		assign my[netchans][$servergroup()] $tolower($my[netchans][$servergroup()])
		assign.addn my[netchans][$servergroup()] $common($tolower($2 / $my[netchans][$servergroup()]))
		defer WSC.MOVENUL -s $word.randsel($sgconnwins($servergroup())) $serverwin(),*,$2
	} elsif (getset(auto_rejoin) == [on]) {
		q1cmd 0 9 join $2
	}
}
on #-server_lost 99 * {
	#if (serv[$0][proxy]) {server.proxy ++$serv[$0][proxy]}
	if ([$0]) {
		fe ($common($myservers(.) / $serverctl(gmatch $servergroup()))) svs {if (isconnected($svs) && !rand(${++:rnd})) {@ :sv = svs}}
		if (#sv) {wsc.movenul $serverwin($sv) -m 9999 *-*,*}
		while (-1<serverwin($0)) {window $serverwin($0) kill}
		defer server -d $0
	}
	#defer discdisc -d 0 0 0
	#purge qcmd[$0]
}
on #-server_status 99 * {
	if (1<#mychannels()) {
		setuniqitem channeld.$servergroup() $mychannels()
	} elsif (0<=(:idx=finditem(channels.$servergroup() $mychannels()))) {
		getnrolitems channels.$servergroup() channeld.$servergroup() $idx
	}
}
on ?send_to "% % userhost *" {
	if (!rmatch($servergroup() $my.cloaknets)) {
	} elsif (90 < (time() - lag[$servernum()][connected])) {
	} elsif (clonecount(1 Aa $mynuhs($common($myservers(,) / $serverctl(gmatch $servergroup()))))) {
	} else {
		fake.uh
		return 1
	}
}
on #-public_notice 99 *://* writeto foo-ozorg-spambots $userhost()
on #-list 99 * if (serverctl(get $servernum() 005 CHANTYPES)) {writeto foo-ozorg-chans $tolower($0 $regpattern([$serverctl(get $servernum() 005 CHANTYPES)]\S* $2-))}
on ^ctcp_request "% % time *"
on ?ctcp_request "% % time *" return ${userhost(,) != userhost($0)}
on #-flood - * fe ($cetk.proxytest.ports) port {setuniqitem proxytest $after(@ $stripcrap(all,ansi $userhost())):$port:::$servergroup() $serverctl(get $servernum() itsname):6667};^timer -ref bar.test 0 bar test
alias foo (args) {
	@ :num  = isnumber(b10 $args) ? shift(args) : 1
	@ :tim  = isnumber(b10 $args) ? shift(args) : 30
	@ :cln  = isnumber(b10 $args) ? shift(args) : 2
	@ :rmin = isnumber(b10 $args) ? shift(args) : 0
	@ :nmin = isnumber(b10 $args) ? shift(args) : 0
	@ :omin = isnumber(b10 $args) ? shift(args) : 0
	@ :pmin = isnumber(b10 $args) ? shift(args) : 16 * (rmin + nmin + omin)
	@ :pmin = 0 < pmin ? pmin : 1
	@ :rand = rmin + nmin + omin + pmin
	@ :mask = args ? shift(args) : [*]
	@ :numx = num
	cleandamage $cln $mask
	winclean
	#allservs if.cloned 1 eval ${rand(2)?[lae]:[lad]};sping
	allservs unless.lagged 15 uhfix
	while (0<numx) {
		@ :serv = shift(my.servnets)
		@ :net  = shift(my.servnets)
		@ :which= rand($rand)
		unless (#getmatches(proxylist *:*)) {array.read proxylist $cetk.proxyfile}
		unless (numitems(tornames.$net)) {array.read tornames.$net foo-ozorg-tornames}
		if (0 > (which-=rmin)) {
			^local proxy 127.0.0.1:8118:::$net $serv$getandmitem(tornames.$net $mask):6667
		} elsif (0 > (which-=nmin)) {
			^local proxy 127.0.0.1:8118:::$net $serv$getndelitems(tornames.$net ${numitems(tornames.$net)-1}):6667
		} elsif (0 > (which-=omin)) {
			^local proxy 127.0.0.1:8118:::$net $serv$getndelitems(tornames.$net 0):6667
		} else {
			^local proxy $getndelitems(proxylist ${numitems(proxylist)-1}):::$net $serv:6667
		}
		if (#assign.grep(serv.*.proxy $cut(0.1 : $proxy):% $restw(1 $proxy))) {
			if (:proxy =~ [*.exit:%]) {
				@ :numx -= 0.01
			} elsif (:proxy =~ [127.*]) {
				@ :numx--
				^server.proxy ++$proxy
				^window query 0 swap last
			} else {
				@ :numx -= 0.1
				push :proxylist $cut(0.1 : $proxy)
			}
		} elsif (:proxy) {
			@ :numx--
			^server.proxy ++$proxy
			^window query 0 swap last
		}
		@ :gmatch = 2 * #common($serverctl(gmatch $net) / $myservers(.))
		@ :gmatch = gmatch ? gmatch : 10000
		@ splice(my.servnets $min($gmatch $#my.servnets) 0 $serv $net)
	}
	setuniqitems proxylist $shuffles($:proxylist)
	fe ($my.servdirect) serv {
		^window new serv $cut(0 : $serv)$getandmitem(tornames.$cut(4 : $serv) *):$cut(1.5 : $serv) query 0 swap last
		^assign -serv[$servernum()][next]
	}
	showdamage $cln
	^timer -upd -ref foo ${1 + rand($tim)} foo $num $tim $cln $rmin $nmin $omin $pmin $args $mask
}
alias bar (args) {
	@ :max = (index(" " $args) < index(*%. $args) && isnumber(b10 $args)) ? shift(args) : 1
	@ :unc = (index(" " $args) < index(*%. $args) && isnumber(b10 $args)) ? shift(args) : 1
	@ :num = (index(" " $args) < index(*%. $args) && isnumber(b10 $args)) ? shift(args) : 1
	@ :tim = (index(" " $args) < index(*%. $args) && isnumber(b10 $args)) ? shift(args) : 4 * num
	@ :rand= (index(" " $args) < index(*%. $args) && isnumber(b10 $args)) ? shift(args) : 2
	@ :net = shift(args)
	@ :next= after(. $net)
	if (net =~ [*,*]) {
		fe ($split(, $net)) net {
			bar $max $unc $num $tim $rand $net $args
		}
		return
	}
	if (net =~ [*_*]) {
		bar $split(_ $net) $args
		return
	}
	@ :args= uniq($args)
	@ :msk = shift(args)
	@ :foo = :isconn = :unconn = 0
	@ :matches = 1 < rand ? getmatches(proxies.$net $msk) : []
	fe ($assign.grep(serv.*.proxy $msk)) serv {@ serv = cut(1 . $serv), :wasconn =:isconn += isconnected($serv) && servergroup($serv) == cut(4 : $serv[$serv][proxy]), :unconn += !isconnected($serv) && !lag[$serv][received]}
	#if ((foo < num) && (unconn < unc) && (isconn < max) && msk =~ [*oz*]) {
#echo $foo<$num $unconn<$unc $isconn<$max
	#}
	while ((foo < num) && (unconn < unc) && (isconn < max) && (:proxy = (rand($rand) ? getndelitems(proxies.$net $pop(matches)) : getandmitem(proxies.$net $msk)))) {
#echo $foo<$num $unconn<$unc $isconn<$max
		if (#remws($myservers(.) / $serverctl(omatch $cut(0 : $proxy)))) {
#echo Still Connecting: $proxy
			q1cmd 0 0 setuniqitem proxies.$net $proxy
		} elsif ((:proxy =~ [*.exit:%]) && #assign.grep(serv.*.proxy $cut(0.4 : $leftw(1 $proxy))* *.$after(-2 . $cut(0 : $rightw(1 $proxy))):%)) {
#echo Exit: $proxy
		} elsif ((:proxy !~ [127.*]) && #assign.grep(serv.*.proxy $cut(0.4 : $leftw(1 $proxy))% *)) {
#echo Not Unique: $proxy
			push :proxylist $cut(0.1 : $leftw(1 $proxy))
		} elsif (:proxy) {
#echo Connecting: $proxy
			@ :foo++, :unconn++
			^server.proxy ++$proxy
			^window query 0 swap last
		}
	}
	@ msk = #getmatches(proxies.$net $msk) ? msk : []
	^qcmd.wait 0
	if (isconn >= max) {
		if (next) {
			getanrmitems proxies.$net proxies.$next $msk
		} else {
			push args $msk
		}
	} elsif (unconn <= unc && #proxy) {
		unshift args $msk
	} elsif (wasconn && #args) {
		@ splice(args ${1+min($wasconn $#args)} 0 $msk)
	} else {
		#@ :args = msk
		push :args $msk
	}
	if (msk || args) {timer -u -ref bar.$net ${proxy||2>#args?1+rand($tim):0}.$rand(16) bar $max $unc $num $tim $rand $net $args}
}
alias baz (hosts) {
	@ :maxcon = isnumber(b10 $hosts) ? shift(hosts) : 1
	@ :maxunc = isnumber(b10 $hosts) ? shift(hosts) : 1
	@ :num    = isnumber(b10 $hosts) ? shift(hosts) : 1
	@ :tim    = isnumber(b10 $hosts) ? shift(hosts) : 1
	@ :port   = isnumber(b10 $hosts) ? shift(hosts) : 6667
	@ :net    = shift(hosts)
	@ :host   = shift(hosts)
	fe ($serverctl(gmatch $net)) serv {@ :isconn += isconnected($serv), :unconn += !isconnected($serv) && !lag[$serv][received]}
	while (numitems(tornames.$net) && :foo++ < num && :isconn < maxcon && :unconn++ < maxunc) {
		@ :proxy = [tornames.$net]
		@ :proxy = rand(4) ? getandmitem($proxy *) : getndelitems($proxy ${numitems($proxy)-1})
		@ :proxy = [127.0.0.1:8118:::$net::0 $host$proxy:$port]
		if (#assign.grep(serv.*.proxy $cut(0.4 : $leftw(1 $proxy))* *.$after(-2 . $cut(0 : $rightw(1 $proxy))):%)) {continue}
		^server.proxy ++$proxy
		window query 0 swap last
	}
	if (numitems(tornames.$net)) {
		timer -u -ref baz.$net ${tim}.$rand(16) baz $maxcon $maxunc $num $tim $port $net $hosts $host
	} else {
		array.read tornames.$net foo-ozorg-tornames
	}
}
alias cleandamage (cln default 2, mask default *, args) {
	@ args = args ? args : cetk.damagedisc
	@ ::cetk.damagedisc = args
	fe ($pattern($mask $serverctl(allgroups))) group {
		fe ($clonecount($cln Aa $filter(*!$userhost(,) $mynuhs($uniq($serverctl(gmatch $group)))))) foo {
			discdisc -ceg $group -m $cln -y $foo $args
		}
	}
}
alias showdamage (arg default 2, mask default *) {
	@ clonehosts = clonecount($arg Aa $mynuhs())
	eval echo Total:$#myservers(,) $split(_ $replace(x:\$#common($myservers(,)_/_$serverctl(gmatch_x)) x $uniq($serverctl(allgroups) $filter(*.* $my.servnets))))
	fe ($pattern($mask $serverctl(allgroups))) net {
		@ clonehosts = clonecount($arg Aa $mynuhs($serverctl(gmatch $net)))
		fe ($serverctl(gmatch $net)) serv {
			unless (isconnected($serv)) {continue}
			scmd $serv if (rmatch($X $clonehosts)) {echo $after(@ $X) $serv $#chanusersa() $servergroup() $mychannels()}
		}
	}
}
alias dupexit if (serv[$servernum()][proxy]&&serv[$servernum()][proxy]=~[$*]) {server.proxy ++$serv[$servernum()][proxy];^window query 0 swap last}
alias dupexits foreach serv serv {if (serv[$serv][proxy] =~ [*.exit:*] && !:zdupex[$encode($serv[$serv][proxy])]++) {scmd $serv dupexit $*}}
alias winclean fe ($winrefs()) win {unless (0<=winserv($win) && servername($winserv($win))!~[<*>] && win==serverwin($winserv($win)) || winnam($win)) {window $win kill}}
alias wsc.avoid foreach list[chan] chan {foreach list[chan][$chan][nuh] nuh {if (rmatch($decode($nuh) $*)) {wsc.del *,$decode($chan);setuniqitems channeld.$servergroup() $decode($chan)}}}
alias wsc.joinall fe my.winservchans win serv chan {xeval -w $win -s $serv if (isconnected() && serv==winserv($win) && !match($chan $mychannels(#$win))) {join $chan}}
alias load.chans winservchans $serverwin(${:sv=word.randsel($serverctl(gmatch $servergroup()))}) $:sv $unsplit(, $readline(foo 0 9999))
# nmap -p 1080,80,443,808,8088,8086,8000,8080,8008,3128,6588,8118,8123 -PN
alias rmcmd (args) {
	@ :rand = isnumber(b10 $args) ? shift(args) : 1
	@ :match = shift(args)
	if (args =~ match && !rand($rand)) {$args}
}
emptycycle -i *
timer -d recon
#notify -
setm notify off
setm notify_interval 0
setm notify_userhost_automatic off
setm *gateway*add* on
setuniqitem array.history 0 /CALL.TIME ALLSERVS fe ($serverctl(get $servernum() 005s)) tag {setuniqitem foo5 $servergroup() $tag $serverctl(get $servernum() 005 $tag)}
setuniqitem array.history 0 /EVAL SERVER.FADD $pattern(. $readlineall(~/.ircservers))
setuniqitem array.history 0 /FE ($getarrays(channel*.*.*)) foo {setuniqitems $before(2 . $foo) $tolower($getandmitems($foo *))}
setuniqitem array.history 0 /FE ($getarrays(channel*.*.*)) foo {getanrmitems $foo $before(2 . $foo) *}
setuniqitem array.history 0 /ALLGROUPS EVAL ECHO channeld.$servergroup() $uniqn(* $sort($tolower($getmaskitems(channeld.$servergroup() * *))))
setuniqitem array.history 0 /ALLGROUPS EVAL GETANRMITEMS $replace(channel?.$servergroup() ? n s) %
setuniqitem array.history 0 /EVAL ECHO $#filterbans(b # $mynuhs($serverctl(gmatch $servergroup())))
setuniqitem array.history 0 /EVAL WSWAP $filterbans(b # $mynuhs($serverctl(gmatch $servergroup())))
setuniqitem array.history 0 /FE (*.ustream.tv) mask {on #-connect 99 "* $mask" disconnect \$servernum()}
setuniqitem array.history 0 /ALLSERVS EVAL IF.CMDMASK *#* SETUNIQITEM fook $servergroup() $uniqd($sort($replacex(\$mychannels(x) x $serverctl(gmatch $servergroup()))))
setuniqitem array.history 0 /ALLSERVS UNLESS.SERV 0 EVAL UNLESS.005 NETWORK $servergroup()* SETUNIQITEM fool $servergroup() $serverctl(get $servernum() 005 NETWORK)
setuniqitem array.history 0 /ALLSERVS UNLESS.SERV 0 EVAL UNLESS.005 NETWORK $servergroup()* UNLESS.NET *autie EVAL {on #-connect 99 "* $servername()" {ARRAY.PURGE prox* $0:$1:*;DISCONNECT $servernum()};DISCONNECT}
setuniqitem array.history 0 /ALLSERVS IF.CHANS 2 EVAL JOIN.ALL -jsq $getitem(channels.$servergroup() $getwordmatches(channels.$servergroup() ${mychannels()?mychannels():[*]})) -d
setuniqitem array.history 0 /ALLGROUPS UNLESS.NET * EVAL JOIN.ALL -jsoq $remwws(, $getmaskitems(channeld.$servergroup() %) , $getmaskitems(channels.$servergroup() * *)) -d
setuniqitem array.history 0 /EVAL EVAL CALL.XTRACE dw ASSIGN.FILTER my.netservs.* $suqd($replacex(\$my.netservs.x x $serverctl(allgroups)))
setuniqitem array.history 0 /FE ($pattern(ba?.* $timerctl(refnums))) net {if (0<#serverctl(gmatch $after(. $net))) {timer -d $net}}
setuniqitem array.history 0 /FE my.servnets serv net {fe ($getarrays(proxies.*)) array {eval if.cmdmask * getanrmitems $array proxies.$net *\:$net*;bar 1 12 1 3 $net *:$net*}}
setuniqitem array.history 0 /FE my.servnets serv net {if.cmdmask * baz 2 12 1 3 $net $serv $my[netservs][$net]}
setuniqitem array.history 0 /ALLGROUPS UNLESS.SERVS 25 IF.SERVS 1 FE ($getarrays(proxies*)) ar {EVAL GETANRMITEMS $ar proxies.2.3.4.5.9.od *:$servergroup():*}
setuniqitem array.history 0 /FE ($getarrays(proxies.*)) ar {EVAL GETNROLITEMS $ar $ar $shufflef($jot(0 $numitems($ar) $rand(32)))}
setuniqitem array.history 0 /CALL.XTRACE dw EVAL ARRAY.PURGE prox* "\\[$my.proxypurge\\]"
setuniqitem array.history 0 /ALLGROUPS REPEAT 9 SETUNIQITEM channels.$servergroup() $filter(. $suq($getndelitems(channels.$servergroup() 0)))
setuniqitem array.history 0 /ALLGROUPS EVAL EVAL IF.CMDMASK * ECHO $servergroup() $split(, $replace(\$decode($cut(2,.,x)) x $ASSIGN.GREP(*.net.$encodel($servergroup()).list *)))
setuniqitem array.history 0 /ALLGROUPS CALL.XTRACE dw EVAL ASSIGN.DUMP "*.\\[$remws($myservers(.) / $serverctl(gmatch $servergroup()))\\].*"
setuniqitem array.history 0 /DISCDISC 1 0 0 -ce -y *exit* -y *relay* -y *proxy* -y *@tor* -y *.tor* -y *tor-*
setuniqitem array.history 0 /REPEAT 99 FQ1CMD 1 1 ${food=tolower($GETNDELITEMS(food 0)),msar(gr///food)}
setuniqitem array.history 0 /REPEAT 99 ${food=GETNDELITEMS(food 0),msar(gr/ 20 / 20 / -20 / -20 / 2 / 2 /food)}
setuniqitem array.history 0 /TIMER.DUMP "\[foo ba* ?\]"
setuniqitem array.history 0 /REPEAT 1 EVAL IF.CMDMASK * PROXYTEST -f fooproxy -f foo-openproxylist -nc 300 $repeat(1 -d \$pushift(my.servnets):6667:::\$pushift(my.servnets) )
setuniqitem array.history 0 /FE ($getarrays(proxies.*.*)) que {@foo=cut(1 . $que);BAR ${foo++*foo} 20 $after(. $que) * $replace(*:x:* x $shufflef($filter(*.* $my.servnets)))}
setuniqitem array.history 0 /LASTLOG -regig \s1/1\s|\s0/0\s|\s:[0-9] -regex [0-9][a-z]
setuniqitem array.history 0 /LASTLOG -act -msg -pub