cinaryigit Nickli Üyeden Alıntı
(Mesaj 1042416236)
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] selam. İstersen bu diyaloglu kodu da Kullananbilirsin.
Kimde görmüştüm hatırlamıyorum ama tblock için hazırlanmıştı ben proxy ipleri banlama olarak editlemiştim.
Kodu yazan BF olabilir. Emeğe saygı. Kod:
dialog proxy_locksystem {
title "Block Dialog"
size -1 -1 257 319
option dbu
text "Sabit Blocklar", 1, 90 3 70 8, center
button "Ekle", 2, 85 60 37 11
button "Sil", 19, 135 123 33 10
edit "", 4, 10 13 233 10
text "İşlem Süresi", 6, 160 198 70 8, center
edit "", 7, 171 208 50 10
radio "Saniye", 8, 149 220 29 10
radio "Dakika", 9, 182 220 30 10
radio "Saat", 10, 214 220 29 10
button "Süreyi Kaydet", 11, 179 231 37 12
button "Kapat", 12, 105 305 37 12, ok
button "Sistem Aç", 13, 62 292 37 12
button "Sistem Kapat", 14, 108 291 37 12
text " Gücelleniyor..", 15, 90 231 76 8
text " Güncelleniyor..", 16, 90 241 61 8
text " Güncelleniyor..", 17, 90 250 63 8
text " Güncelleniyor..", 18, 90 259 79 8
button "Sil", 3, 135 60 37 11
text "Muaf Kanallar", 20, 91 73 70 8, center
button "Ekle", 22, 85 123 33 10
edit "", 23, 10 83 233 10
button "1 Kere Blockla", 24, 153 290 37 12
text "Kanallar", 26, 91 136 70 8, center
list 27, 9 156 232 29, size
text " Kanal Ayarlari", 25, 14 199 58 8
edit "", 28, 24 210 50 10
text "Min.", 29, 5 211 18 8
edit "", 30, 24 221 50 10
text "Max.", 31, 5 222 17 8
button "Kanalları Gün.", 32, 27 234 37 12
text " Güncelleniyor..", 33, 90 268 79 8
text " Güncelleniyor..", 34, 90 277 79 8
list 5, 10 24 233 36, size
list 21, 10 94 233 29, size
edit "", 35, 9 145 233 10
button "Ekle", 36, 85 186 33 10
button "Sil", 37, 135 185 33 10
}
alias -l gnclfk { did -r proxy_locksystem 5 | loadbuf -o proxy_locksystem 5 proxyip.type | did -r proxy_locksystem 21 | loadbuf -o proxy_locksystem 21 muafproxykanal.type | did -r proxy_locksystem 27 | loadbuf -o proxy_locksystem 27 proxykanal.type }
alias -l gnclgk { did -ra proxy_locksystem 15 Sistem Durumu: %islemdurumu | did -ra proxy_locksystem 16 Sistem Süresi: %islemzamani | did -ra proxy_locksystem 17 Süre: %islemturu | did -ra proxy_locksystem 18 Ekli Block: $iif(!$lines(proxyip.type),0,$lines(proxyip.type)) | did -ra proxy_locksystem 33 Ekli Kanal: $iif(!$lines(proxykanal.type),0,$lines(proxykanal.type)) | did -ra proxy_locksystem 34 Ekli M. Kanal: $iif(!$lines(muafproxykanal.type),0,$lines(muafproxykanal.type)) }
alias chanlst { list -min $1 -max $2 }
raw *:* {
if $numeric == 322 {
if !$read(proxykanal.type,w,$2) { write proxykanal.type $2 }
}
}
alias -l proxy_locksystem { if $dialog(proxy_locksystem) { dialog -x proxy_locksystem | dialog -m proxy_locksystem proxy_locksystem } | else { dialog -m proxy_locksystem proxy_locksystem } }
alias saldiriban {
if !%islemzamani || !%islemturu || !%islemdurumu { set %islemdurumu deaktif | echo -a Geçersiz veritabanı! | gnclgk | timerkdfk off | halt }
if !$server { set %islemdurumu deaktif | echo -a Geçersiz bağlantı! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt }
if !$lines(proxyip.type) || !$lines(proxykanal.type) { set %islemdurumu deaktif | echo -a Geçersiz kaynak dosyası! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt }
var %mssban 1
var %mssban2 1
while %mssban <= $lines(proxykanal.type) {
if ($read(proxykanal.type,%mssban)) {
var %mssban2 1
while %mssban2 <= $lines(proxyip.type) {
if ($read(proxyip.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) {
mode $read(proxykanal.type,%mssban) +b $read(proxyip.type,%mssban2)
}
inc %mssban2
}
}
inc %mssban
}
}
on *:connect: { set %islemdurumu deaktif }
on *:dialog:proxy_locksystem:*:*:{
if ($devent == init) {
if !%islemdurumu { set %islemdurumu deaktif }
if !%islemzamani { set %islemzamani 10 }
if !%islemturu { set %islemturu dk }
if ($isfile(proxyip.type) == $false) { write -c proxyip.type } | else { loadbuf -o $dname 5 proxyip.type }
if ($isfile(muafproxykanal.type) == $false) { write -c muafproxykanal.type } | else { loadbuf -o $dname 21 muafproxykanal.type }
if ($isfile(proxykanal.type) == $false) { write -c proxykanal.type } | else { loadbuf -o $dname 27 proxykanal.type }
$iif(%islemturu == sn,did -c proxy_locksystem 8,$iif(%islemturu == dk,did -c proxy_locksystem 9,$iif(%islemturu == ss,did -c proxy_locksystem 10)))
did -a proxy_locksystem 28 20 | did -a proxy_locksystem 30 100 | did -a proxy_locksystem 7 %islemzamani
gnclgk
}
if ($devent == sclick) {
if ($did == 21) {
if $did(21).seltext { did -r proxy_locksystem 23 | did -a proxy_locksystem 23 $did(21).seltext | halt }
}
if ($did == 5) {
if $did(5).seltext { did -r proxy_locksystem 4 | did -a proxy_locksystem 4 $did(5).seltext | halt }
}
if ($did == 27) {
if $did(27).seltext { did -r proxy_locksystem 35 | did -a proxy_locksystem 35 $did(27).seltext | halt }
}
if ($did == 2) {
if !$did(4) { noop $input(Lütfen eklemek istediğiniz Mode'yi yazınız!,houdbk60,Hata!) | halt }
if $read(proxyip.type,w,$did(4)) { noop $input(Bu Mode zaten ekli.,houdbk60,Hata!) | halt }
write proxyip.type $did(4) | gnclfk | gnclgk
}
if ($did == 22) {
if !$did(23) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
if $read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak ekli.,houdbk60,Hata!) | halt }
write muafproxykanal.type $did(23) | gnclfk | gnclgk
}
if ($did == 36) {
if !$did(35) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
if $read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli.,houdbk60,Hata!) | halt }
write proxykanal.type $did(35) | gnclfk | gnclgk | did -r proxy_locksystem 35
}
if ($did == 32) {
if !$did(28) { noop $input(Kanalları güncellemek için lütfen Min. user sayısını giriniz!,houdbk60,Hata!) | halt }
if !$did(30) { noop $input(Kanalları güncellemek için lütfen Max. user sayısını giriniz!,houdbk60,Hata!) | halt }
remove proxykanal.type
chanlst $did(28) $did(30)
did -r proxy_locksystem 27 | timergnc 1 2 loadbuf -o proxy_locksystem 27 proxykanal.type
}
if ($did == 25) { chanlst 50 150 }
if ($did == 24) {
if !$read(proxyip.type) { noop $input(Balamak için mode girmelisiniz!,houdbk60,Hata!) | halt }
if !$read(proxykanal.type) { noop $input(Banlamak için kanal kayıt etmeniz gerekli!,houdbk60,Hata!) | halt }
if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -aCd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 1 900 500 }
var %mssban 1
var %mssban2 1
while %mssban <= $lines(proxykanal.type) {
if ($read(proxykanal.type,%mssban)) {
var %mssban2 1
while %mssban2 <= $lines(proxyip.type) {
if ($read(proxyip.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) {
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $read(proxykanal.type,%mssban) >> +b ~q: $+ $read(proxyip.type,%mssban2)
mode $read(proxykanal.type,%mssban) +b $read(proxyip.type,%mssban2)
}
inc %mssban2
}
}
inc %mssban
}
}
if ($did == 8) {
set %islemturu sn
gnclgk
}
if ($did == 9) {
set %islemturu dk
gnclgk
}
if ($did == 10) {
set %islemturu ss
gnclgk
}
if ($did == 3) {
if !$did(4) { noop $input(Lütfen silmek istediğiniz Mode'i seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
if !$read(proxyip.type,w,$did(4)) { noop $input(Bu Mode zaten değil.,houdbk60,Hata!) | halt }
write $+(-ds,$did(4)) proxyip.type | gnclfk | gnclgk | did -r proxy_locksystem 4
}
if ($did == 37) {
if !$did(35) { noop $input(Lütfen silmek istediğiniz kanal'ı seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
if !$read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli değil.,houdbk60,Hata!) | halt }
write $+(-ds,$did(35)) proxykanal.type | gnclfk | gnclgk | did -r proxy_locksystem 35
}
if ($did == 19) {
if !$did(23) { noop $input(Lütfen silmek istediğiniz kanal'ı yazınız seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
if !$read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak değil.,houdbk60,Hata!) | halt }
write $+(-ds,$did(23)) muafproxykanal.type | gnclfk | gnclgk | did -r proxy_locksystem 23
}
if ($did == 13) {
if !$lines(proxyip.type) { noop $input(Lütfen önce Mode ekleyiniz!,houdbk60,Hata!) | halt }
if !$lines(proxykanal.type) { noop $input(Lütfen önce kanal ekleyiniz!,houdbk60,Hata!) | halt }
if $timer(kdfk) { noop $input(Zaten aktif!,houdbk60,Hata!) | halt }
if !%islemzamani { set %islemzamani 10 }
if !%islemturu { set %islemturu dk }
if !%islemdurumu { set %islemdurumu aktif }
echo -a block'lar %islemzamani $iif(%islemturu == sn,saniye'de bir,$iif(%islemturu == dk,dakika'da bir,$iif(%islemturu == ss,saat'te bir))) atılacaktır.
set %islemdurumu aktif
timerkdfk 0 $iif(%islemturu == sn,%islemzamani,$iif(%islemturu == dk,$calc(60 * %islemzamani),$iif(%islemturu == ss,$calc(60 * 60 * %islemzamani)))) .saldiriban
gnclgk
}
if ($did == 14) {
if !%islemzamani { set %islemzamani 10 }
if !%islemturu { set %islemturu dk }
if !%islemdurumu { set %islemdurumu deaktif }
echo -a blocks'lar iptal edildi.
set %islemdurumu deaktif
gnclgk
timerkdfk off
}
if ($did == 11) {
if !$did(7) { noop $input(Lütfen bir süre giriniz!,houdbk60,Hata!) | halt }
if $regex($did(7),\D) { noop $input(Lütfen geçerli bir süre giriniz!,houdbk60,Hata!) | halt }
if $did(7) { set %islemzamani $did(7) }
gnclgk
}
}
}
Sabit Block kısmına 104.129.* bu şekilde eklemen yeterli. Kod:
dialog akick_proxy {
title "Block Dialog"
size -1 -1 257 319
option dbu
text "Sabit Blocklar", 1, 90 3 70 8, center
button "Ekle", 2, 85 60 37 11
button "Sil", 19, 135 123 33 10
edit "", 4, 10 13 233 10
text "İşlem Süresi", 6, 160 198 70 8, center
edit "", 7, 171 208 50 10
radio "Saniye", 8, 149 220 29 10
radio "Dakika", 9, 182 220 30 10
radio "Saat", 10, 214 220 29 10
button "Süreyi Kaydet", 11, 179 231 37 12
button "Kapat", 12, 105 305 37 12, ok
button "Sistem Aç", 13, 62 292 37 12
button "Sistem Kapat", 14, 108 291 37 12
text " Gücelleniyor..", 15, 90 231 76 8
text " Güncelleniyor..", 16, 90 241 61 8
text " Güncelleniyor..", 17, 90 250 63 8
text " Güncelleniyor..", 18, 90 259 79 8
button "Sil", 3, 135 60 37 11
text "Muaf Kanallar", 20, 91 73 70 8, center
button "Ekle", 22, 85 123 33 10
edit "", 23, 10 83 233 10
button "1 Kere Blockla", 24, 153 290 37 12
text "Kanallar", 26, 91 136 70 8, center
list 27, 9 156 232 29, size
text " Kanal Ayarlari", 25, 14 199 58 8
edit "", 28, 24 210 50 10
text "Min.", 29, 5 211 18 8
edit "", 30, 24 221 50 10
text "Max.", 31, 5 222 17 8
button "Kanalları Gün.", 32, 27 234 37 12
text " Güncelleniyor..", 33, 90 268 79 8
text " Güncelleniyor..", 34, 90 277 79 8
list 5, 10 24 233 36, size
list 21, 10 94 233 29, size
edit "", 35, 9 145 233 10
button "Ekle", 36, 85 186 33 10
button "Sil", 37, 135 185 33 10
}
alias -l gnclfk { did -r akick_proxy 5 | loadbuf -o akick_proxy 5 akick.type | did -r akick_proxy 21 | loadbuf -o akick_proxy 21 muafproxykanal.type | did -r akick_proxy 27 | loadbuf -o akick_proxy 27 proxykanal.type }
alias -l gnclgk { did -ra akick_proxy 15 Sistem Durumu: %islemdurumu | did -ra akick_proxy 16 Sistem Süresi: %islemzamani | did -ra akick_proxy 17 Süre: %islemturu | did -ra akick_proxy 18 Ekli Block: $iif(!$lines(akick.type),0,$lines(akick.type)) | did -ra akick_proxy 33 Ekli Kanal: $iif(!$lines(proxykanal.type),0,$lines(proxykanal.type)) | did -ra akick_proxy 34 Ekli M. Kanal: $iif(!$lines(muafproxykanal.type),0,$lines(muafproxykanal.type)) }
alias chanlst { list -min $1 -max $2 }
raw *:* {
if $numeric == 322 {
if !$read(proxykanal.type,w,$2) { write proxykanal.type $2 }
}
}
alias -l akick_proxy { if $dialog(akick_proxy) { dialog -x akick_proxy | dialog -m akick_proxy akick_proxy } | else { dialog -m akick_proxy akick_proxy } }
alias saldiriban {
if !%islemzamani || !%islemturu || !%islemdurumu { set %islemdurumu deaktif | echo -a Geçersiz veritabanı! | gnclgk | timerkdfk off | halt }
if !$server { set %islemdurumu deaktif | echo -a Geçersiz bağlantı! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt }
if !$lines(akick.type) || !$lines(proxykanal.type) { set %islemdurumu deaktif | echo -a Geçersiz kaynak dosyası! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt }
var %mssban 1
var %mssban2 1
while %mssban <= $lines(proxykanal.type) {
if ($read(proxykanal.type,%mssban)) {
var %mssban2 1
while %mssban2 <= $lines(akick.type) {
if ($read(akick.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) {
cs akick add $read(proxykanal.type,%mssban) $read(akick.type,%mssban2)
}
inc %mssban2
}
}
inc %mssban
}
}
on *:connect: { set %islemdurumu deaktif }
on *:dialog:akick_proxy:*:*:{
if ($devent == init) {
if !%islemdurumu { set %islemdurumu deaktif }
if !%islemzamani { set %islemzamani 10 }
if !%islemturu { set %islemturu dk }
if ($isfile(akick.type) == $false) { write -c akick.type } | else { loadbuf -o $dname 5 akick.type }
if ($isfile(muafproxykanal.type) == $false) { write -c muafproxykanal.type } | else { loadbuf -o $dname 21 muafproxykanal.type }
if ($isfile(proxykanal.type) == $false) { write -c proxykanal.type } | else { loadbuf -o $dname 27 proxykanal.type }
$iif(%islemturu == sn,did -c akick_proxy 8,$iif(%islemturu == dk,did -c akick_proxy 9,$iif(%islemturu == ss,did -c akick_proxy 10)))
did -a akick_proxy 28 20 | did -a akick_proxy 30 100 | did -a akick_proxy 7 %islemzamani
gnclgk
}
if ($devent == sclick) {
if ($did == 21) {
if $did(21).seltext { did -r akick_proxy 23 | did -a akick_proxy 23 $did(21).seltext | halt }
}
if ($did == 5) {
if $did(5).seltext { did -r akick_proxy 4 | did -a akick_proxy 4 $did(5).seltext | halt }
}
if ($did == 27) {
if $did(27).seltext { did -r akick_proxy 35 | did -a akick_proxy 35 $did(27).seltext | halt }
}
if ($did == 2) {
if !$did(4) { noop $input(Lütfen eklemek istediğiniz Mode'yi yazınız!,houdbk60,Hata!) | halt }
if $read(akick.type,w,$did(4)) { noop $input(Bu Mode zaten ekli.,houdbk60,Hata!) | halt }
write akick.type $did(4) | gnclfk | gnclgk
}
if ($did == 22) {
if !$did(23) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
if $read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak ekli.,houdbk60,Hata!) | halt }
write muafproxykanal.type $did(23) | gnclfk | gnclgk
}
if ($did == 36) {
if !$did(35) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
if $read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli.,houdbk60,Hata!) | halt }
write proxykanal.type $did(35) | gnclfk | gnclgk | did -r akick_proxy 35
}
if ($did == 32) {
if !$did(28) { noop $input(Kanalları güncellemek için lütfen Min. user sayısını giriniz!,houdbk60,Hata!) | halt }
if !$did(30) { noop $input(Kanalları güncellemek için lütfen Max. user sayısını giriniz!,houdbk60,Hata!) | halt }
remove proxykanal.type
chanlst $did(28) $did(30)
did -r akick_proxy 27 | timergnc 1 2 loadbuf -o akick_proxy 27 proxykanal.type
}
if ($did == 25) { chanlst 50 150 }
if ($did == 24) {
if !$read(akick.type) { noop $input(Akick göndermek için mode girmelisiniz!,houdbk60,Hata!) | halt }
if !$read(proxykanal.type) { noop $input(Akick göndermek için kanal kayıt etmeniz gerekli!,houdbk60,Hata!) | halt }
if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -aCd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 1 900 500 }
var %mssban 1
var %mssban2 1
while %mssban <= $lines(proxykanal.type) {
if ($read(proxykanal.type,%mssban)) {
var %mssban2 1
while %mssban2 <= $lines(akick.type) {
if ($read(akick.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) {
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $read(proxykanal.type,%mssban) >> +b ~q: $+ $read(akick.type,%mssban2)
cs akick $read(proxykanal.type,%mssban) add $read(akick.type,%mssban2) Proxy IP, Saldırı, Lamer!
}
inc %mssban2
}
}
inc %mssban
}
}
if ($did == 8) {
set %islemturu sn
gnclgk
}
if ($did == 9) {
set %islemturu dk
gnclgk
}
if ($did == 10) {
set %islemturu ss
gnclgk
}
if ($did == 3) {
if !$did(4) { noop $input(Lütfen silmek istediğiniz Mode'i seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
if !$read(akick.type,w,$did(4)) { noop $input(Bu Mode zaten değil.,houdbk60,Hata!) | halt }
write $+(-ds,$did(4)) akick.type | gnclfk | gnclgk | did -r akick_proxy 4
}
if ($did == 37) {
if !$did(35) { noop $input(Lütfen silmek istediğiniz kanal'ı seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
if !$read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli değil.,houdbk60,Hata!) | halt }
write $+(-ds,$did(35)) proxykanal.type | gnclfk | gnclgk | did -r akick_proxy 35
}
if ($did == 19) {
if !$did(23) { noop $input(Lütfen silmek istediğiniz kanal'ı yazınız seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
if !$read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak değil.,houdbk60,Hata!) | halt }
write $+(-ds,$did(23)) muafproxykanal.type | gnclfk | gnclgk | did -r akick_proxy 23
}
if ($did == 13) {
if !$lines(akick.type) { noop $input(Lütfen önce Mode ekleyiniz!,houdbk60,Hata!) | halt }
if !$lines(proxykanal.type) { noop $input(Lütfen önce kanal ekleyiniz!,houdbk60,Hata!) | halt }
if $timer(kdfk) { noop $input(Zaten aktif!,houdbk60,Hata!) | halt }
if !%islemzamani { set %islemzamani 10 }
if !%islemturu { set %islemturu dk }
if !%islemdurumu { set %islemdurumu aktif }
echo -a block'lar %islemzamani $iif(%islemturu == sn,saniye'de bir,$iif(%islemturu == dk,dakika'da bir,$iif(%islemturu == ss,saat'te bir))) atılacaktır.
set %islemdurumu aktif
timerkdfk 0 $iif(%islemturu == sn,%islemzamani,$iif(%islemturu == dk,$calc(60 * %islemzamani),$iif(%islemturu == ss,$calc(60 * 60 * %islemzamani)))) .saldiriban
gnclgk
}
if ($did == 14) {
if !%islemzamani { set %islemzamani 10 }
if !%islemturu { set %islemturu dk }
if !%islemdurumu { set %islemdurumu deaktif }
echo -a blocks'lar iptal edildi.
set %islemdurumu deaktif
gnclgk
timerkdfk off
}
if ($did == 11) {
if !$did(7) { noop $input(Lütfen bir süre giriniz!,houdbk60,Hata!) | halt }
if $regex($did(7),\D) { noop $input(Lütfen geçerli bir süre giriniz!,houdbk60,Hata!) | halt }
if $did(7) { set %islemzamani $did(7) }
gnclgk
}
}
}
Toplu akick ekleme içinde eklenecek yere IP'yi *!*@104.129.* bu şekilde eklersiniz.
Keyifli İF'ler
|
