Proxy Koruması Çalışmıyo
HTML-Kodu:
on *:join:#:{
if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
var %ip $gettok($address,2,$asc(@))
if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae 11****5 Muaf nick girişi:4 $nick 5Atılmadı. | return }
kick $chan $nick 0,1BLACKLiST! | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
}
}
on *:Start:{
if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x
if !$file(m.x) { write -c m.x } | hmake m | hload m m.x
}
alias pr {
if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x }
if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
if $1 == Aç { set %proxy.koruma ON | echo 3 -ae *** 12Proxy Koruması açılmıştır. } | if $1 == Kapat { set %proxy.koruma Off | echo 3 -ae *** 4Proxy Koruması kapatılmıştır.. }
if $1 == ekle {
if !$2 { echo 3 -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
if $hfind(p,$2,1,W).item { echo 3 -ae 11***7 Bu ip listede mecvuttur. | return }
hadd -m p $2 Proxy | hsave p pr.x
echo 3 -ae 11*** $2 12Listeye eklenmiştir.
}
if $1 == sil {
if !$2 { echo 3 -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
if $hfind(p,$2,1,W).item {
hdel p $ifmatch | hsave p pr.x
echo 3 -ae 11*** $ifmatch 4Listeden silinmiştir.
}
else { echo 3 -ae 11***10 Listeden bulunamamıştır. }
}
if $1 == liste {
var %s 1, %f $hget(p,0).item
if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return }
while %s <= %f {
echo 3 -ae 11***4 Proxy IP listesi: $hget(p,%s).item
inc %s
}
}
if $1 == muaf {
if $2 == ekle {
if $hfind(m,$3,1,W).item { echo 3 -ae 11***7 Bu nick listede mecvuttur. | return }
hadd -m m $3 Proxy | hsave m m.x
echo 3 -ae 11*** $3 12Muaf nick listeye eklenmiştir.
}
if $2 == sil {
if $hfind(m,$3,1,W).item {
hdel m $ifmatch | hsave m m.x
}
else { echo 3 -ae 11***5 Listeden bulunamamıştır. }
}
if $3 == liste {
var %s 1, %f $hget(m,0).item
if $hget(m,0).item == 0 { echo 3 -ae 11***4 Liste boş durumda. | return }
while %s <= %f {
echo 3 -ae 11***12 Proxy muaf Nick Listesi: $hget(m,%s).item
inc %s
}
}
}
}
on *:join:#:{
if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
var %ip $gettok($address,2,$asc(@))
if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae 11****5 Muaf nick girişi:4 $nick 5Atılmadı. | return }
kick $chan $nick 0,1BLACKLiST! | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
}
}
alias iekle { if ($dialog(Proxy_ekle)) { dialog -c Proxy_ekle } | dialog -ma Proxy_ekle Proxy_ekle }
dialog Proxy_ekle {
title "Hash Proxy Ekleme"
size -1 -1 264 163
option pixels
box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
button "Proxy IP Ekle", 2, 33 34 197 80, normal
text "Yüklenen Proxy Adet:", 3, 62 140 108 16
text "0", 4, 171 140 50 16, center
}
on 1:dialog:Proxy_ekle:*:*:{
if ($devent == init) {
}
if ($devent == sclick) {
if ($Did == 2) {
Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
If (%F) {
Var %I = 1
While ($Read(%F,%I)) {
Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.).+/gi,*@\1*)
if !$hget(p,%j) {
hadd -m p %j Proxy
hsave -o p pr.x
inc %eklenen
}
inc %I
}
}
did -o Proxy_ekle 4 1 %eklenen
}
}
}
--------------
/Pr Aç
/Pr Kapat
/Pr ekle *@198.16.*
/Pr sil *@198.16.*
------------------------------------------------
Selamun aleykum arkadaşlar. Yukarı da vermiş olduğum KOD kanala giren proxylere işlem yapmıyor. Proxyleri ekliyorum fakat girişte işlem yapmıyor.
pr.txt şu şekilde ekleme yapıyor. ;
*@37.49.*
Proxy
*@104.236.*
Proxy
*@104.248.*
Proxy
*@180.250.*
Proxy
*@180.242.
tabi bunlar yanyana görünüyor hash pr tablosun da |
