Pixel Resim Kodlama Addonu ( mirc )

Anasayfa mIRC Addonları

Pixel Resim Kodlama Addonu ( mirc )

11 sene önce KraLaz tarafından

Selamlar mirc scriptlerinizde güzel işler yapmaya devam edelim.. Örnegin resimde gördügünüz Türk bayragini Elimizle tek tek yazmak inanın saatleri alıcaktir. Ben bir I Love You yazisini tam 2 saatde elle yazdigimi biliyorum 🙂 Şimdi bu addon ile Pixel Araç Resim Yapma ile İstediginiz hayal gücünüzle herşeyi yapabilirsiniz 🙂

Addonu yüklemek için rarli dosyanin içindeki dosyayi ana dizine atınız. Mirc scriptinizde şu kodu yazin

/load -rs pixelarac\pt.mrc

Addon yüklenmiştir. Güle güle kullanınız 🙂 Bu arada o resmi ben yaptim 😛

Pixel Resim Araç Addonu indir

10 ay önce

Admin Nick, İdent ve Host Koruması

Bu koruma ile giren kullanıcıların nick, ident ve hostunu kontrol edip eklediğiniz nick , ident ve hostlara gzline atmanıza yarayan alternatif bir karaliste addonu.

### /lamer komutu ile korumayı açabilirsiniz
### mircclub.org

alias lamer { /dialog -m start start }
dialog start {
  title "Ident Nick Ekstra Korumaları"
  size -1 -1 467 274
  option pixels
  box "", 11, 19 13 430 256
  text "Güvenlik Giriş Ayarları", 1, 136 3 167 20
  edit "", 3, 125 37 186 20, center
  button "Nick gzline liste ekle", 8, 30 70 190 30, flat
  button "İdent gzline liste ekle", 4, 30 108 190 30, flat
  button "Host gzline liste ekle", 5, 30 148 190 30, flat
  button "Host gzline list'en sil", 2, 240 148 190 30, flat
  button "İdent gzline list'en sil", 6, 241 108 190 30, flat
  button "Nick gzline list'en sil", 7, 240 70 190 30, flat
  button "Kapat", 9, 125 190 192 29, flat
  text " Bu koruma sunucuya hep aynı nick yada ident ile saldırıları önlemek için yazılmıştır.", 10, 24 228 413 16
}

on 1:dialog:start:*:*: {
  if ($devent == init) {
    did -a start 3 $null
  }
  if ($devent == sclick) {
    if ($did == 8 ) { /auser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline Liste eklendi }
  }
  if ($devent == sclick) {
    if ($did == 9 ) { /dialog -c start start }
  }
  if ($devent == sclick) {
    if ($did == 7 ) { /ruser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline List'en silindi  }
  }
  if ($devent == sclick) {
    if ($did == 2 ) { /ruser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline List'en silindi }
  }
  if ($devent == sclick) {
    if ($did == 4 ) { /auser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Liste eklendi }
  }
  if ($devent == sclick) {
    if ($did == 6 ) { /ruser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Listen silindi }
  }
  if ($devent == sclick) {
    if ($did == 5 ) { /auser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline Liste eklendi }
  }
}

on gzline:join:#:{
  gzline $nick : 4,1 Security Korumasi 4 $time - 
}

### /lamer komutu ile korumayı açabilirsiniz

### mircclub.org

alias lamer { /dialog -m start start }

dialog start {

title "Ident Nick Ekstra Korumaları"

size -1 -1 467 274

option pixels

box "", 11, 19 13 430 256

text "Güvenlik Giriş Ayarları", 1, 136 3 167 20

edit "", 3, 125 37 186 20, center

button "Nick gzline liste ekle", 8, 30 70 190 30, flat

button "İdent gzline liste ekle", 4, 30 108 190 30, flat

button "Host gzline liste ekle", 5, 30 148 190 30, flat

button "Host gzline list'en sil", 2, 240 148 190 30, flat

button "İdent gzline list'en sil", 6, 241 108 190 30, flat

button "Nick gzline list'en sil", 7, 240 70 190 30, flat

button "Kapat", 9, 125 190 192 29, flat

text " Bu koruma sunucuya hep aynı nick yada ident ile saldırıları önlemek için yazılmıştır.", 10, 24 228 413 16

}

on 1:dialog:start:*:*: {

if ($devent == init) {

did -a start 3 $null

}

if ($devent == sclick) {

if ($did == 8 ) { /auser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline Liste eklendi }

}

if ($devent == sclick) {

if ($did == 9 ) { /dialog -c start start }

}

if ($devent == sclick) {

if ($did == 7 ) { /ruser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline List'en silindi }

}

if ($devent == sclick) {

if ($did == 2 ) { /ruser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline List'en silindi }

}

if ($devent == sclick) {

if ($did == 4 ) { /auser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Liste eklendi }

}

if ($devent == sclick) {

if ($did == 6 ) { /ruser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Listen silindi }

}

if ($devent == sclick) {

if ($did == 5 ) { /auser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline Liste eklendi }

}

on gzline:join:#:{

gzline $nick : 4,1 Security Korumasi 4 $time -

}

10 ay önce

IP Takip Sistemi

Addona girdiğiz ipler sunucuya girdiğinde size uyarı verir ve geçici olarak shun atar açılan ekranda istefiğiniz işlemi yapabilirsiniz. Admin ve ircopların işine yarayabilecek bir kod.

on *:start:{ 
  if (!$hget(ips)) { .hmake ips | .hload ips ips.mercy }
  if (!$hget(muafn)) { .hmake muafn | .hload muafn muafn.mercy }
}

alias ips { if !$dialog(ips) { .dialog -ms ips ips } }

alias islem { if !$dialog(işlem) { .dialog -ms işlem işlem } }
dialog işlem {
  title "İşlem Merkezi"
  size -1 -1 109 150
  option dbu
  text " Nick :", 1, 6 6 25 8
  edit "", 2, 40 4 65 13, read
  text " ident :", 3, 6 22 25 8
  edit "", 4, 40 20 65 13, read
  text " iP :", 5, 6 38 25 8
  edit "", 6, 40 36 65 13, read
  text " Şehir :", 7, 4 54 37 8
  edit "", 8, 40 52 65 13, read
  box "", 12, 3 -2 105 69
  text "Şuan Bu Kişiye Shun Atıldı", 15, 3 68 102 8, center
  button "Gline At", 9, 3 79 48 17
  button "Shun Kaldır", 10, 55 79 48 17
  button "Yardım'a Çek", 11, 3 98 48 17
  button "Özel'e Al", 13, 55 98 48 17
  button "Bu kişiyi Muaf Nicklere Ekle", 14, 3 117 100 12
  box "", 16, 1 74 106 58
  button "Kapat", 17, 2 133 104 15, ok
}

on *:dialog:işlem:init:*: {
  ;mdx MarkDialog $dname
  ; mdx SetDialog $dname bgcolor $rgb(237,351,219)
  ; mdx SetColor $dname 1 textbg $rgb(237,241,219)
  ;mdx SetColor $dname 1 background $rgb(287,291,219)
  ;mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 13 900 Verdana
  ; mdx SetColor $dname 1,2,3,4,5,6,7,8,15 background $rgb(237,241,219)
  ;mdx SetColor $dname 1,2,3,4,5,6,7,8,15 textbg $rgb(237,241,219)
  ;mdx SetColor $dname 15l text $rgb(199,92,2)
}

on *:dialog:işlem:sclick:13: { query $did(2).text }
on *:dialog:işlem:sclick:14: {
  if $hget(muafn,$did(2).text).item { noop $input(Bu Nick Muaf Listede Mevcut,o,Muaf Uyarı) }
  else { 
    if !$hget(muafn) { .hmake muafn 100 | .hadd -m muafn $did(2).text 1 | .hsave muafn muafn.mercy | shun $+(-*@,$did(6).text) | return $input(Nick Muaf Listeye Eklendi ve Shunu Kaldırıldı,o,Muaf Uyarı) } 
    else { .hadd -m muafn $did(2).text 1 | .hsave muafn muafn.mercy | shun $+(-*@,$did(6).text) | return $input(Nick Muaf Listeye Eklendi ve Shunu Kaldırıldı,o,Muaf Uyarı) } 
  }
}

dialog ips {
  title "Sorunlu IP Tespit Merkezi"
  size -1 -1 159 156
  option dbu
  list 1, 6 13 64 74, size
  text " IP'ler", 2, 7 5 63 7
  text " Muaf Nick'ler", 3, 88 5 64 8
  list 4, 88 13 64 74, size
  edit "", 5, 6 91 64 12, multi autohs
  button "IP Ekle", 6, 6 107 64 12, flat
  edit "", 7, 88 91 64 12, multi autohs
  button "Muaf Nick Ekle", 8, 88 107 64 12, flat
  button "« « KAPAT » »", 15, 2 139 154 15, flat
  box "", 16, 2 -1 72 124
  box "", 17, 84 -1 72 124
  box "", 9, 2 122 154 16
  text " Silmek için üstüne Çift tıklayınız", 10, 9 127 125 8
}

on *:dialog:ips:*:*: {
  if $devent == init { 
    mdx MarkDialog $dname
    mdx SetDialog $dname bgcolor $rgb(237,241,219)
    mdx SetFont $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 +b Turkish 13 950 Verdana
    mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 textbg $rgb(237,241,219)
    mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 background $rgb(237,241,219)
    mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 text $rgb(0,0,0)
    mdx SetColor $dname 9,10,12,13,14,15 background $rgb(237,241,219)
    mdx SetColor $dname 9,10,12,13,14,15 textbg $rgb(237,241,219)
    mdx SetFont $dname 2,5,6,7,9,10,11,14 13 950 Verdana
    mdx SetColor $dname 9,10,15 textbg $rgb(237,241,219)
    mdx SetFont $dname 9,10,15 13 950 Verdana
    mdx SetColor $dname 2,3,10l text $rgb(199,92,2)
    var %:ips = 1 | while %:ips <= $hget(ips,0).item { .did -a $dname 1 $hget(ips,%:ips).item | inc %:ips }
    var %:muafn = 1 | while %:muafn <= $hget(muafn,0).item { .did -a $dname 4 $hget(muafn,%:muafn).item | inc %:muafn }
  }
  if $devent == sclick {
    if $did == 6 { if (*.* iswm $did(5)) { if $hget(ips,$did(5)) { return } | if !$hget(ips) { .hmake ips 100 | .write ips.mercy | return } | .hadd -ms ips $did(5) $rand(10,999) | .hsave -o ips ips.mercy | did -a $dname 1 $did(5) | did -r $dname 5 } }
    if $did == 8 { if $did(7) { if #* iswm $did(7)  || *.* iswm $did(7)  { return } | if !$hget(muafn) { .hmake muafn 100 | .write muafn.mercy | return } | if $hget(muafn,$did(7)) { return } | .hadd -ms muafn $did(7) $rand(10,9999) | .hsave muafn muafn.mercy | .did -a $dname 4 $did(7) | did -r $dname 7 } }
    if $did == 10 { if %:nick { .sajoin %:nick #0,0 | unset %:nick | unset %:ipp } }
    if $did == 12 { if %:nick { .shun $+(-*@,%:ipp) | unset %:nick | unset %:ipp } }
    if $did == 11 { if %:ipp {  gline $+(*@,%:ipp) - Sorunlu | unset %:ipp | unset %:nick } }
    if $did == 13 { if %:nick { var %:com = 1 | while %:com <= $comchan(%:nick,0) { ban -k $comchan(%:nick,%:com) %:nick Sorunlu | inc %:com } unset %:nick | unset %:ipp } }
    if $did == 15 { unset %:nick | unset %:ipp | .dialog -c $dname }
  }
  if $devent == dclick {
    if $did == 1 { .hdel ips $hfind(ips,$did(1).seltext,1,W).item | .hsave -o ips ips.mercy | .hload ips ips.mercy | .did -d $dname 1 $did(1).sel }
    if $did == 4 { .hdel muafn $hfind(muafn,$did(4).seltext,1,W).item | .hsave -o muafn muafn.mercy | .hload muafn muafn.mercy | .did -d $dname 4 $did(4).sel }

}
}

on *:dialog:işlem:*:*: {
  if $devent == init { renklendirici 20 }
  if $devent == sclick {
    if $did == 9 { gline $+(*@,$did(6).text) Sorunlu | dialog -c $dname }
    if $did == 10 { .shun $+(-*@,$did(6).text) | return $input(Shun Kaldırıldı,o,İşlem Merkezi) }
    if $did == 11 { sajoin $did(2).text #Yardim }
  }
}

on *:snotice:*Client connecting on port*:{ 
  if $hget(muafn,$9) { return } 
  .enable #ips | .who +I $9
  var %:ip = 1 | while %:ip <= $hget(ips,0).item { if $+($hget(ips,%:ip).item,*) iswm $token($token($10,2,64),1,41) { .islem | set %:nick $9 | set %:ipp $token($token($10,2,64),1,41) | .shun %:nick - Sorunlu | .splay $mircdirsounds\uyar.wav | break } | inc %:ip } 
}

#ips off
raw 352:*:{ haltdef
  var %:ip = 1 | while %:ip <= $hget(ips,0).item { 
    if $+($hget(ips,%:ip).item,*) iswm $4 {
      if !$dialog(işlem) { .dialog -ms işlem işlem }
      var %:rand $rand(10,9999999)
      .sockopen $+(bul,%:rand) anonymouse.org 80 | .sockmark $+(bul,%:rand) $4
      .did -a işlem 2 $6 | did -a işlem 4 $3 | did -a işlem 6 $4 | did -a işlem 8 Bekleyin..
      break 
    }
    inc %:ip
  }
  .disable #ips
}
#ips end
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:bul*:{ 
  var %:city sockwrite -n $sockname
  %:city GET /cgi-bin/anon-www.cgi/http://whatismyipaddress.com/ip/ $+ $sock($sockname).mark HTTP/1.1
  %:city Accept: text/html, application/xhtml+xml, */*
  %:city Accept-Language: tr-TR
  %:city User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
  %:city Host: anonymouse.org
  %:city DNT: 1
  %:city Connection: Keep-Alive
  %:city $crlf
  if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 Siteye Baglanıldı.. }
}
on *:sockread:bul*:{
  if ($sockerr) { .sockclose $sockname | if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 Hata.. | return } }
  var %city | sockread %city 
  if (Country: isin %city) { if $token($htmlfree(%city),2,58) != Turkey { if $dialog(işlem) { sockclose $sockname | .did -r işlem 8 | .did -a işlem 8 Yurt Dışı... | return } } }
  if (City: isin %city) { if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 $token($htmlfree(%city),2,58) | sockclose $sockname } }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

on *:start:{

if (!$hget(ips)) { .hmake ips | .hload ips ips.mercy }

if (!$hget(muafn)) { .hmake muafn | .hload muafn muafn.mercy }

}

alias ips { if !$dialog(ips) { .dialog -ms ips ips } }

alias islem { if !$dialog(işlem) { .dialog -ms işlem işlem } }

dialog işlem {

title "İşlem Merkezi"

size -1 -1 109 150

option dbu

text " Nick :", 1, 6 6 25 8

edit "", 2, 40 4 65 13, read

text " ident :", 3, 6 22 25 8

edit "", 4, 40 20 65 13, read

text " iP :", 5, 6 38 25 8

edit "", 6, 40 36 65 13, read

text " Şehir :", 7, 4 54 37 8

edit "", 8, 40 52 65 13, read

box "", 12, 3 -2 105 69

text "Şuan Bu Kişiye Shun Atıldı", 15, 3 68 102 8, center

button "Gline At", 9, 3 79 48 17

button "Shun Kaldır", 10, 55 79 48 17

button "Yardım'a Çek", 11, 3 98 48 17

button "Özel'e Al", 13, 55 98 48 17

button "Bu kişiyi Muaf Nicklere Ekle", 14, 3 117 100 12

box "", 16, 1 74 106 58

button "Kapat", 17, 2 133 104 15, ok

}

on *:dialog:işlem:init:*: {

;mdx MarkDialog $dname

; mdx SetDialog $dname bgcolor $rgb(237,351,219)

; mdx SetColor $dname 1 textbg $rgb(237,241,219)

;mdx SetColor $dname 1 background $rgb(287,291,219)

;mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 13 900 Verdana

; mdx SetColor $dname 1,2,3,4,5,6,7,8,15 background $rgb(237,241,219)

;mdx SetColor $dname 1,2,3,4,5,6,7,8,15 textbg $rgb(237,241,219)

;mdx SetColor $dname 15l text $rgb(199,92,2)

}

on *:dialog:işlem:sclick:13: { query $did(2).text }

on *:dialog:işlem:sclick:14: {

if $hget(muafn,$did(2).text).item { noop $input(Bu Nick Muaf Listede Mevcut,o,Muaf Uyarı) }

else {

if !$hget(muafn) { .hmake muafn 100 | .hadd -m muafn $did(2).text 1 | .hsave muafn muafn.mercy | shun $+(-*@,$did(6).text) | return $input(Nick Muaf Listeye Eklendi ve Shunu Kaldırıldı,o,Muaf Uyarı) }

else { .hadd -m muafn $did(2).text 1 | .hsave muafn muafn.mercy | shun $+(-*@,$did(6).text) | return $input(Nick Muaf Listeye Eklendi ve Shunu Kaldırıldı,o,Muaf Uyarı) }

}

dialog ips {

title "Sorunlu IP Tespit Merkezi"

size -1 -1 159 156

option dbu

list 1, 6 13 64 74, size

text " IP'ler", 2, 7 5 63 7

text " Muaf Nick'ler", 3, 88 5 64 8

list 4, 88 13 64 74, size

edit "", 5, 6 91 64 12, multi autohs

button "IP Ekle", 6, 6 107 64 12, flat

edit "", 7, 88 91 64 12, multi autohs

button "Muaf Nick Ekle", 8, 88 107 64 12, flat

button "« « KAPAT » »", 15, 2 139 154 15, flat

box "", 16, 2 -1 72 124

box "", 17, 84 -1 72 124

box "", 9, 2 122 154 16

text " Silmek için üstüne Çift tıklayınız", 10, 9 127 125 8

}

on *:dialog:ips:*:*: {

if $devent == init {

mdx MarkDialog $dname

mdx SetDialog $dname bgcolor $rgb(237,241,219)

mdx SetFont $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 +b Turkish 13 950 Verdana

mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 textbg $rgb(237,241,219)

mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 background $rgb(237,241,219)

mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 text $rgb(0,0,0)

mdx SetColor $dname 9,10,12,13,14,15 background $rgb(237,241,219)

mdx SetColor $dname 9,10,12,13,14,15 textbg $rgb(237,241,219)

mdx SetFont $dname 2,5,6,7,9,10,11,14 13 950 Verdana

mdx SetColor $dname 9,10,15 textbg $rgb(237,241,219)

mdx SetFont $dname 9,10,15 13 950 Verdana

mdx SetColor $dname 2,3,10l text $rgb(199,92,2)

var %:ips = 1 | while %:ips <= $hget(ips,0).item { .did -a $dname 1 $hget(ips,%:ips).item | inc %:ips }

var %:muafn = 1 | while %:muafn <= $hget(muafn,0).item { .did -a $dname 4 $hget(muafn,%:muafn).item | inc %:muafn }

}

if $devent == sclick {

if $did == 6 { if (*.* iswm $did(5)) { if $hget(ips,$did(5)) { return } | if !$hget(ips) { .hmake ips 100 | .write ips.mercy | return } | .hadd -ms ips $did(5) $rand(10,999) | .hsave -o ips ips.mercy | did -a $dname 1 $did(5) | did -r $dname 5 } }

if $did == 8 { if $did(7) { if #* iswm $did(7) || *.* iswm $did(7) { return } | if !$hget(muafn) { .hmake muafn 100 | .write muafn.mercy | return } | if $hget(muafn,$did(7)) { return } | .hadd -ms muafn $did(7) $rand(10,9999) | .hsave muafn muafn.mercy | .did -a $dname 4 $did(7) | did -r $dname 7 } }

if $did == 10 { if %:nick { .sajoin %:nick #0,0 | unset %:nick | unset %:ipp } }

if $did == 12 { if %:nick { .shun $+(-*@,%:ipp) | unset %:nick | unset %:ipp } }

if $did == 11 { if %:ipp { gline $+(*@,%:ipp) - Sorunlu | unset %:ipp | unset %:nick } }

if $did == 13 { if %:nick { var %:com = 1 | while %:com <= $comchan(%:nick,0) { ban -k $comchan(%:nick,%:com) %:nick Sorunlu | inc %:com } unset %:nick | unset %:ipp } }

if $did == 15 { unset %:nick | unset %:ipp | .dialog -c $dname }

}

if $devent == dclick {

if $did == 1 { .hdel ips $hfind(ips,$did(1).seltext,1,W).item | .hsave -o ips ips.mercy | .hload ips ips.mercy | .did -d $dname 1 $did(1).sel }

if $did == 4 { .hdel muafn $hfind(muafn,$did(4).seltext,1,W).item | .hsave -o muafn muafn.mercy | .hload muafn muafn.mercy | .did -d $dname 4 $did(4).sel }

}

on *:dialog:işlem:*:*: {

if $devent == init { renklendirici 20 }

if $devent == sclick {

if $did == 9 { gline $+(*@,$did(6).text) Sorunlu | dialog -c $dname }

if $did == 10 { .shun $+(-*@,$did(6).text) | return $input(Shun Kaldırıldı,o,İşlem Merkezi) }

if $did == 11 { sajoin $did(2).text #Yardim }

}

on *:snotice:*Client connecting on port*:{

if $hget(muafn,$9) { return }

.enable #ips | .who +I $9

var %:ip = 1 | while %:ip <= $hget(ips,0).item { if $+($hget(ips,%:ip).item,*) iswm $token($token($10,2,64),1,41) { .islem | set %:nick $9 | set %:ipp $token($token($10,2,64),1,41) | .shun %:nick - Sorunlu | .splay $mircdirsounds\uyar.wav | break } | inc %:ip }

}

#ips off

raw 352:*:{ haltdef

var %:ip = 1 | while %:ip <= $hget(ips,0).item {

if $+($hget(ips,%:ip).item,*) iswm $4 {

if !$dialog(işlem) { .dialog -ms işlem işlem }

var %:rand $rand(10,9999999)

.sockopen $+(bul,%:rand) anonymouse.org 80 | .sockmark $+(bul,%:rand) $4

.did -a işlem 2 $6 | did -a işlem 4 $3 | did -a işlem 6 $4 | did -a işlem 8 Bekleyin..

break

}

inc %:ip

}

.disable #ips

}

#ips end

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }

on *:sockopen:bul*:{

var %:city sockwrite -n $sockname

%:city GET /cgi-bin/anon-www.cgi/http://whatismyipaddress.com/ip/ $+ $sock($sockname).mark HTTP/1.1

%:city Accept: text/html, application/xhtml+xml, */*

%:city Accept-Language: tr-TR

%:city User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)

%:city Host: anonymouse.org

%:city DNT: 1

%:city Connection: Keep-Alive

%:city $crlf

if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 Siteye Baglanıldı.. }

}

on *:sockread:bul*:{

if ($sockerr) { .sockclose $sockname | if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 Hata.. | return } }

var %city | sockread %city

if (Country: isin %city) { if $token($htmlfree(%city),2,58) != Turkey { if $dialog(işlem) { sockclose $sockname | .did -r işlem 8 | .did -a işlem 8 Yurt Dışı... | return } } }

if (City: isin %city) { if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 $token($htmlfree(%city),2,58) | sockclose $sockname } }

}

10 ay önce

Akill Liste Remotesi Mirc

Mircinizde Sunucu akill listesini döküp düzenleyebileceğiniz güzel bir addon

on ^1:NOTICE:*:*:{
  if (*@* iswm $1) && (%akilnotice == on) {  
    write akill.txt $gettok($1,2,64)
    did -a aklist 1 $regsubex(akill,$gettok($1,2,64),/(\*)$/S,)
  }
}
dialog aklist {
  title "Akill Listesi - Liste Otomatik Akill Yer"
  size -1 -1 123 169
  option dbu
  list 1, 2 16 119 104, size
  edit "", 2, 46 124 57 10, multi autohs
  text " IP Girin :", 3, 3 125 43 8
  button "Ekle", 7, 105 123 16 26
  button "KAPAT", 6, 1 152 120 14, ok
  text "Örnek: 78.161.*", 4, 3 139 98 9
  box "", 8, 2 135 101 14
  box "", 9, 2 121 42 13
  box "", 10, 2 0 119 13
  text " Silmek icin ipin uzerine Cift tiklayin", 11, 3 4 111 8
}

on *:dialog:aklist:*:*:{
  if $devent == init {
    ;mdx MarkDialog $dname
    //set %akilnotice on | .os akill list 
    .timer 1 1 //set %akilnotice off
    ; mdx MarkDialog $dname
    ; mdx SetDialog $dname bgcolor $rgb(237,241,219)
    ; mdx SetFont $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 +b Turkish 13 950 Verdana
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 textbg $rgb(237,241,219)
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 background $rgb(237,241,219)
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 text $rgb(0,0,0)
    ;  mdx SetColor $dname 11,13,10,12 background $rgb(237,241,219)
    ;  mdx SetColor $dname 11,13,12,10 textbg $rgb(237,241,219)
    ;  mdx SetFont $dname 2,7,6,11,13,12,10,14,15,16 13 950 Tahoma
    ;  mdx SetColor $dname 11,4l text $rgb(199,92,2)
  }
  if $devent == dclick {
    if $did == 1 {
      .os akill del $+(*@, $did(1).seltext,*)
      did -d $dname 1 $did(1).sel
    }
  }
  if $devent == sclick && $did == 7 { haltdef
    .os akill add +0 *@ $+ $did(2)  $+ *  Sunucu Kurallarini İhlal Ettiniz.. | did -a aklist 1 $did(2) 
  }
  if $devent == sclick && $did == 4 { dialog -m xbilgi xbilgi }
  if $devent == close {
    write -c akill.txt
    set %akilnotice off
  }
}
alias xakil { dialog -m aklist aklist }

on ^1:NOTICE:*:*:{

if (*@* iswm $1) && (%akilnotice == on) {

write akill.txt $gettok($1,2,64)

did -a aklist 1 $regsubex(akill,$gettok($1,2,64),/(\*)$/S,)

}

dialog aklist {

title "Akill Listesi - Liste Otomatik Akill Yer"

size -1 -1 123 169

option dbu

list 1, 2 16 119 104, size

edit "", 2, 46 124 57 10, multi autohs

text " IP Girin :", 3, 3 125 43 8

button "Ekle", 7, 105 123 16 26

button "KAPAT", 6, 1 152 120 14, ok

text "Örnek: 78.161.*", 4, 3 139 98 9

box "", 8, 2 135 101 14

box "", 9, 2 121 42 13

box "", 10, 2 0 119 13

text " Silmek icin ipin uzerine Cift tiklayin", 11, 3 4 111 8

}

on *:dialog:aklist:*:*:{

if $devent == init {

;mdx MarkDialog $dname

//set %akilnotice on | .os akill list

.timer 1 1 //set %akilnotice off

; mdx MarkDialog $dname

; mdx SetDialog $dname bgcolor $rgb(237,241,219)

; mdx SetFont $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 +b Turkish 13 950 Verdana

; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 textbg $rgb(237,241,219)

; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 background $rgb(237,241,219)

; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 text $rgb(0,0,0)

; mdx SetColor $dname 11,13,10,12 background $rgb(237,241,219)

; mdx SetColor $dname 11,13,12,10 textbg $rgb(237,241,219)

; mdx SetFont $dname 2,7,6,11,13,12,10,14,15,16 13 950 Tahoma

; mdx SetColor $dname 11,4l text $rgb(199,92,2)

}

if $devent == dclick {

if $did == 1 {

.os akill del $+(*@, $did(1).seltext,*)

did -d $dname 1 $did(1).sel

}

if $devent == sclick && $did == 7 { haltdef

.os akill add +0 *@ $+ $did(2) $+ * Sunucu Kurallarini İhlal Ettiniz.. | did -a aklist 1 $did(2)

}

if $devent == sclick && $did == 4 { dialog -m xbilgi xbilgi }

if $devent == close {

write -c akill.txt

set %akilnotice off

}

alias xakil { dialog -m aklist aklist }

10 ay önce

Random Nick Koruması

Adminler için random nick koruması belirdiğiniz sayıda sesli ve sessiz harflere gzline atarak saldırıyı keser. /random yazarak çalıştırabilirsiniz.

alias rands { if (($regex($1,/[qwrtypğsdfghjklşzxcvbnmç]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[qüöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }

alias random { .dialog -m randomnick randomnick } 
dialog randomnick {
  title "Random Korumasi - www.mircclub.org"
  size -1 -1 179 92
  option notheme dbu
  edit "", 3, 153 22 13 10
  edit "", 4, 153 33 13 10
  text "Nick'de kac adet sessiz harf yanyana olunca banlasın.? ", 30, 13 23 137 8
  text "Nick'de kac adet sesli harf yanyana olunca banlasın.? ", 40, 13 34 137 8
  text "Durum : ", 50, 13 46 25 8
  edit "", 6, 42 45 124 10
  button "Ac", 7, 11 68 50 12
  button "Kapat", 8, 63 68 50 12
  button "Dialogu Kapat", 13, 115 68 51 12, ok flat
  box "Islemler : ", 100, 8 11 162 50
  box "", 110, 8 60 162 24
  box "Random Nick Korumasi :", 120, 3 3 172 86
}

on *:dialog:RandomNick:*:*:{
  if ($devent == init) {
    did -ra $dname 6 %trojandurum
    did -ra $dname 4 %troseslisayi
    did -ra $dname 3 %trosessizsayi

}
  if ($devent == sclick) {
    if ($did == 7) { .enable #trocanz | set %trojandurum Random Nick Koruma Acik | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
    if ($did == 8) { .disable #trocanz | set %trojandurum Random Nick Koruma Kapali | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
    if ($did == 13) { set %trosessizsayi $did(3) | set %troseslisayi $did(4) }
  }
}

#trocanz off
on *:JOIN:#sohbet:{ 
  if ($rands($nick) == $true) { 
    msg #xline - gzline: 10 $nick
    gzline $nick 12random
  }
}

#trocanz end

alias rands { if (($regex($1,/[qwrtypğsdfghjklşzxcvbnmç]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[qüöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }

alias random { .dialog -m randomnick randomnick }

dialog randomnick {

title "Random Korumasi - www.mircclub.org"

size -1 -1 179 92

option notheme dbu

edit "", 3, 153 22 13 10

edit "", 4, 153 33 13 10

text "Nick'de kac adet sessiz harf yanyana olunca banlasın.? ", 30, 13 23 137 8

text "Nick'de kac adet sesli harf yanyana olunca banlasın.? ", 40, 13 34 137 8

text "Durum : ", 50, 13 46 25 8

edit "", 6, 42 45 124 10

button "Ac", 7, 11 68 50 12

button "Kapat", 8, 63 68 50 12

button "Dialogu Kapat", 13, 115 68 51 12, ok flat

box "Islemler : ", 100, 8 11 162 50

box "", 110, 8 60 162 24

box "Random Nick Korumasi :", 120, 3 3 172 86

}

on *:dialog:RandomNick:*:*:{

if ($devent == init) {

did -ra $dname 6 %trojandurum

did -ra $dname 4 %troseslisayi

did -ra $dname 3 %trosessizsayi

}

if ($devent == sclick) {

if ($did == 7) { .enable #trocanz | set %trojandurum Random Nick Koruma Acik | dialog -x $dname $dname | dialog -m RandomNick RandomNick }

if ($did == 8) { .disable #trocanz | set %trojandurum Random Nick Koruma Kapali | dialog -x $dname $dname | dialog -m RandomNick RandomNick }

if ($did == 13) { set %trosessizsayi $did(3) | set %troseslisayi $did(4) }

}

#trocanz off

on *:JOIN:#sohbet:{

if ($rands($nick) == $true) {

msg #xline - gzline: 10 $nick

gzline $nick 12random

}

#trocanz end

Bir Cevap Yazın

E-posta hesabınız yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Yapılan Yorum (1)

BabyFace Yazar

Paylaşım İçin Çok Teşekkürler 🙂

16 Nisan 2009

Mirc !zar kodu

Admin Oper Bağlantı Menüsü Portlu

Admin Nick, İdent ve Host Koruması

Proxy Koruması Socket Sorgulu

Akill Liste Remotesi Mirc

Random Nick Koruması Spamfilter

Random Nick Koruması

Yardım kanalında 60 saniye konuşmayana ban

Türkçe Mirc indir