59.125.220.147:8080
59.125.169.122:8080
220.130.81.188:8000
202.145.49.20:80
193.2.7.251:49400
203.211.135.2:6969
83.69.197.106:3128
82.138.3.22:8000
81.27.246.204:8080
213.148.5.157:3128
195.209.224.91:3128
195.135.236.204:3128
85.204.25.97:8000
83.15.100.165:8080
200.3.252.170:3128
82.134.53.6:80
195.159.135.38:80
85.12.47.185:80
84.86.94.244:3265
207.248.228.166:80
60.51.251.238:8080
58.27.140.58:8080
202.56.85.211:8080
202.175.82.176:1081
217.145.211.46:8000
62.215.214.69:80
59.7.91.227:8080
222.103.177.149:8080
124.53.159.169:80
221.255.206.249:8080
221.112.63.4:80
220.40.60.59:8080
219.22.30.44:8080
125.101.84.47:8080
89.96.54.88:3128
81.174.70.141:32123
81.174.70.140:28282
213.215.225.47:80
212.123.91.165:80
82.188.196.218:8080
62.173.168.110:8080
220.227.56.122:8080
220.224.226.149:3128
210.18.156.193:6588
203.212.217.190:6588
203.199.200.44:8090
203.110.240.22:80
202.63.110.235:6588
61.238.104.200:808
202.67.230.9:3128
85.25.124.46:3128
83.141.17.20:80
62.75.219.25:80
62.159.143.172:80
85.31.187.74:3128
80.87.168.229:80
213.41.102.165:80
81.21.97.68:8080
61.49.7.135:808
61.134.60.254:808
60.213.25.170:3128
60.191.96.90:808
59.56.174.199:808
59.44.59.132:808
58.53.79.208:1080
58.53.194.120:8080
58.25.227.85:8090
58.213.153.48:808
58.211.75.8:8000
222.41.192.146:808
222.190.124.19:8001
221.130.193.14:8080
220.232.93.0:8090
219.159.67.187:808
218.97.194.94:80
218.75.76.74:8088
59.125.220.147:8080
59.125.169.122:8080
220.130.81.188:8000
202.145.49.20:80
193.2.7.251:49400
203.211.135.2:6969
83.69.197.106:3128
82.138.3.22:8000
81.27.246.204:8080
213.148.5.157:3128
195.209.224.91:3128

Merhaba arkada?lar. Wordpress\\\’te anket sistemi ararken akl?ma mirc için yap?lm?? anket addonu var m?d?r diye dü?ündüm. Google\\\’da arad?m anket addonu yok, ircforumlari.net adresinde farkl? kelimeler ile arad?m yok.
?u an bu mesaj? yazmadan önce tekrar bir arayay?m dedim ve yine yok…
Kar??n?zda anket addonu.

On *:Join:#: {
if ($nick !== $me) {
if ($chan == %anketkanal) { .msg $nick Anketimize kat?lmak ister misiniz? | .msg $nick Anketimize kat?lmak için lütfen !Anket yaz?n?z. | .msg $nick Anket sonuçlar?n? görmek içinse !Sonuc yaz?n?z. | AnketleriBirArttir }
if ($chan !== %anketkanal) { Halt }
}
}
On *:Text:*:?: {
if ($1 == !Sonuc) { Sonuclar }
if ($1 == !Anket) { Anket }
if ($1 == !Oy) { Set %OyAdresi $address($nick,3) | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme }
}
Alias Sonuclar {
if (%sonuc1 !== $null) { .msg $nick 4 %sonuc1 sonucunun ald??? oy say?s? %sonucoy1 }
if (%sonuc2 !== $null) { .msg $nick 2 %sonuc2 2sonucunun ald??? oy say?s? %sonucoy2 }
if (%sonuc3 !== $null) { .msg $nick 4 %sonuc3 2sonucunun ald??? oy say?s? %sonucoy3 }
if (%sonuc4 !== $null) { .msg $nick 2 %sonuc4 2sonucunun ald??? oy say?s? %sonucoy4 }
}
Alias Anket {
.msg $nick Anketimize ho?geldiniz.
.msg $nick Anket sorumuz ?öyledir.
.msg $nick 
.msg $nick %anketsoru
.msg $nick 
.SonucOzel
}
Alias SonucOzel {
if (%sonuc1 !== $null) { .msg $nick 1) 4 %sonuc1 }
if (%sonuc2 !== $null) { .msg $nick 2) 4 %sonuc2 }
if (%sonuc3 !== $null) { .msg $nick 3) 4 %sonuc3 }
if (%sonuc4 !== $null) { .msg $nick 4) 4 %sonuc4 }
.msg $nick 
.msg $nick Anketimize kat?lmak için lütfen !Oy Seçti?iniz ??kk?n numaras?. Örn : !Oy 1
}
Alias Denetleme {
if $read(Liste.txt,w,%OyAdresi) { .msg %Oyveren Üzgünüm, daha önceden oy kullanm??s?n?z. | halt }
if !$read(Liste.txt,w,%OyAdresi) { .Oylamayap }
}
Alias OylamaYap {
if (%VerdigiOy == $NULL) { .msg %Oyveren Lütfen seçti?iniz anket cevab?n?n numaras?n? giriniz. | .msg %Oyveren Örnek : !Oy 2 | halt }
if (%VerdigiOy == 1) { inc %sonucoy1 }
if (%VerdigiOy == 2) { inc %sonucoy2 }
if (%VerdigiOy == 3) { inc %sonucoy3 }
if (%VerdigiOy == 4) { inc %sonucoy4 }
.msg $nick Oyunuz kaydedilmi?tir. Oylama yapt???n?z anket cevap numaras? %VerdigiOy
.write Liste.txt %OyAdresi
.halt
}
Alias AnketleriBirArttir {
inc %ilkanketgiris
if (%ilkanketgiris == 1) {
if (%sonuc1 !== $null) { inc %sonucoy1 }
if (%sonuc2 !== $null) { inc %sonucoy2 }
if (%sonuc3 !== $null) { inc %sonucoy3 }
if (%sonuc4 !== $null) { inc %sonucoy4 }
}
if (%ilkanketgiris !== 1) { return }
}
Alias f1 {
set %anketkanal $$?=\\"Anket kanal?n? ba??nda # olarak yaz?n?z.\\" | TestKanal
}
Alias TestKanal {
if (%anketkanal == $null) { echo -a Anket sistemi anket kanal? olmadan maalesef çal??maz. | halt }
if (%anketkanal !== $null) { set %anketsoru $$?\\"Anketin sorusunu aç?k bir dille yaz?n?z.\\" | AnketSoruTest }
}
Alias AnketSoruTest {
if (%anketsoru == $Null) { echo -a Sorusuz anket olur mu hiç? | echo -a Lütfen ankete soru girin. | halt }
if (%anketsoru !== $null) { Set %sonuc1 $$?=\\"Anket cevap 1 yaz?n?z\\" | Cevapbirtest }
}
Alias CevapbirTest {
if (%sonuc1 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc1 !== $null) { set %sonuc2 $$?=\\"Anket cevap 2 yaz?n?z\\" | Cevapikitest }
}
Alias CevapikiTest {
if (%sonuc2 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc2 !== $null) { set %sonuc3 $$?=\\"Anket cevap 3 yaz?n?z\\" | Cevapuctest }
}
Alias CevapucTest {
if (%sonuc3 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
if (%sonuc3 !== $null) { set %sonuc4 $$?=\\"Anket cevap 4 yaz?n?z\\" | Cevapdorttest }
}
Alias CevapdortTest {
if (%sonuc4 == $null) { halt }
if (%sonuc4 !== $null) { halt }
}

raw 301:*: {
haltdef
echo -a 4» Away: Evet: ( $+ $3- $+ )
}
raw 307:*: {
haltdef
echo -a 4» Bu Nick Kayıtlı ve Şifrelidir
}
raw 310:*: {
haltdef
echo -a 4» IRC Helper
}
raw 311:*:{
haltdef
echo -a 4————————-1<12Kimlik Bilgisi Sorgulaması1>4————————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 312:*:{
haltdef
echo -a 4» Bağlı Olduğu Server: $3
}
raw 313:*: {
haltdef
echo -a 4» Network Özelliği: $5 $6 $7 $8 $9
}
raw 314:*:{
haltdef
echo -a 4————————1<12Kimlik Bilgisi Sorgulaması Sonu1>14———————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 317:*:{
haltdef
echo -a 4» Bağlandığı Zaman: $asctime($4,dddd dd/mm/yyyy HH:nn:ss)
echo -a 4» Boş Olduğu Süre: $duration($3)
echo -a 4» Toplam Online Süresi: $duration($calc($ctime – $4))
}
raw 318:*:{
haltdef
echo -a 4———————–1<12Kimlik Bilgisi Sorgulaması Sonu1>4———————
}
raw 319:*:{
haltdef
echo -a 4» Kanalları: $3-
}
raw 338:*:{
haltdef
echo -a 4» Gerçek İp Adresi: $3
echo -a 4» Gerçek İp: $4
}

alias _tara {
if $1 {
var %_dizin $shortfn($1-) , %_dsayisi $findfile(%_dizin,*.*,0) , %_x 1
while %_x <= %_dsayisi {
%_1 = $findfile(%_dizin,*.*,%_x)
if $readini(%_1,rfiles,$+(n,0)) {
%_2 = 0
while $readini(%_1,rfiles,$+(n,%_2)) {
%_f = $shortfn($replace($+(%_dizin,$ifmatch),\\,\,//,/))
if $dialog(tr_remover) {
if $did($ifmatch,4).lines == 0 { did -e tr_remover 6 }
did -a tr_remover 4 %_f
did -a tr_remover 9 $calc($did(tr_remover,9) + 1)
}
inc %_2
}
}
inc %_x
}
unset %_1 , %_2 , %_f
}
}

alias _tr {
if !$dialog(tr_remover) { dialog -m tr_remover tr_remover }
}

dialog tr_remover {
title “IRC Trojan Remover by DefauLt”
size -1 -1 195 191
option dbu
edit “”, 1, 62 19 84 10, return autohs autovs
button “Gozat…”, 2, 148 19 30 10
text “Windows dizininiz:”, 3, 15 20 45 8
list 4, 62 46 116 107, size hsbar vsbar
button “Taramaya basla!”, 5, 123 161 55 10
button “Bulunanlari sil…”, 6, 62 161 55 10
text “Bulunan dosyalar:”, 7, 15 46 45 8
text “Toplam:”, 8, 15 61 20 8
text “0″, 9, 37 61 11 8
text “DefauLt ©”, 10, 15 90 36 8
link “default@mircturk.com”, 11, 15 100 45 8
box “IRC Trojan Remover”, 12, 5 5 184 178
button “Tamam”, 13, 14 161 30 10, ok
}

on *:dialog:tr_remover:*:*:{
if $devent == init {
did -b $dname 5,6
}
if $devent == sclick {
if $did == 2 {
if $sdir($gettok($mircexe,1,92),Windows dizininizi secin) {
did -ra $dname 1 $ifmatch
did -e $dname 5
}
}
if $did == 5 && $did($dname,1) {
if $input(Taramanin verimli olabilmesi icin calisan diger tum programlarinizi kapattiktan sonra OK butonuna tiklayin ve bu mIRC ile tarama bitene kadar ilgilenmeyin.,ic,Bilgi) {
_tara $did($dname,1)
}
}
if $did == 6 {
if $input(Bulunan dosyalari silmek istiyor musunuz?,ic,Silme islemi) {
var %_w 1
while %_w <= $did($dname,4).lines {
remove $did($dname,4,%_w).text
inc %_w
}
}
}
}
}

menu status,menubar {
-
IRC Trojan Remover:_tr

alias -l _buser { .guser blacklist $1 3 }
alias -l _rbuser { .ruser blacklist $1 3 }
alias -l _luser { dialog -m dusmanlist dusmanlist }
alias -l _blist {
did -r dusmanlist 11
var %_btotal = $ulist(*,blacklist,0) , %_b = 0
while (%_b < %_btotal) {
inc %_b
did -a dusmanlist 11 $ulist(*,blacklist,%_b)
}
}
alias dusman { /dialog -m dusmanlist dusmanlist }
dialog dusmanlist {
title "Falan Filan - Düşman Listesi"
size -1 -1 106 117
option dbu
combo 11, 6 19 94 50, extsel sort autohs autovs
text " Eklediğiniz nickler Gline yiyecektir. Buna Göre Ekleyeceğiniz nicklere dikkat edin", 2, 6 4 95 15
box "", 3, 3 0 101 96
edit "", 12, 6 69 94 10 , read autohs
button "Ekle", 20, 7 81 40 12 , default
button "Sil", 30, 58 81 40 12 , default
box "", 7, 3 94 101 21
button "Pencereyi Kapat", 8, 17 100 73 12, ok
}

on @blacklist:join:#: {
.gline $nick 15m Uzaklastırıldınız | .echo $nick 0,1 Kötü Nick / Düşman Listesinden ötürü Serverden Atıldı.  %Logo1
}