Tekil Mesaj gösterimi
Alt 05 Şubat 2018, 17:02   #1
Çevrimdışı
immortaL
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Proxy Koruması Güncel(Debug/Socket)


Reklam

Özellikler:
Debug üzerinden çalışma.
Girişte @Network Penceresinde Giren Kişinin Bilgilerini Gösterme.
Belli sayıda yurtdışı girişi olduğunda Yurtdışı girişlerini banlama.
Karaliste *!*@* formatında ekleme
Muaf nick/IP ekleme
Siteden güncel proxy liste çekme(5 saatte bir olarak ayarlı)
Vpn girişlerini yasaklama
Nick ve ident aynı olanı banlama.

Komutlar:
!proxyip ekle/sil/list
!proxynick ekle/sil/list
!muafip ekle/sil/list
!muafnick ekle/sil/list
!karaliste ekle/sil/list
!korumaon
!korumaoff
!korumafullon

Örnek Ekleme:
- İdentinde ~ işareti ile başlayanlar giremesin
!karaliste ekle *!~*@*
- İdenti Mobil olan ve IP 177 ile başlayanlar giremesin
!karaliste ekle *!Mobil@177.*
- Alper nicki muaf olsun
!muafnick ekle Alper
- 177 ile başlayan ipler banlansın
!proxyip ekle 177.*
- Nl uzantılı hostlar giremesin
!proxyip ekle *.nl
- 78 ile başlayan ip ler muaf olsun
!muafip ekle 78.*

- Ekleme yapılmış olan dosyaları ekten indirip mirc klasörünün ana dizine attıktan sonra kullandığınız mirci kapatıp açtıktan sonra çalışacaktır.



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs } alias ykle1 { $iif(!$isfile(krlst.hs),.write krlst.hs) | .hmake krlst 100 | .hload krlst krlst.hs } alias ykle2 { $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs } alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off | .set %:nrdn off } alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on } alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off | .set %:yon off } alias proal_ { if $hget(Proxy) { .hfree -sw Proxy } var %::rand $r(1,999999) sockopen $+(alpro,%::rand) www.socks24.org 80 $+(.timer,otoproxy) 1 40 guncelpro } alias guncelpro { echo -sat Proxy list güncellendi toplam4 $hget(Proxy,0).data } alias connect_ { if ($1 = aç) debug -i on connect_ if ($1 = kapat) debug off tokenize 32 $1- if $1 = <- && $3 = NOTICE { if ($9 == connecting) && ($level($13) != muafnick) && ($level($remove($token($14,2,64),$chr(41))) != muafips) { var %:r = $r(1,999999999999), %ip2 = $remove($token($14,2,64),$chr(41)) .sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($remove($token($14,2,64),$chr(41)),¿,$13) if (%aynidnt = on) && ($13 === $right($gettok($14,1,64),-1)) { kill $13 7Nickiniz13&4Identiniz 8Aynıdır 9Değişiriniz %ver1 } if (%prox == on) { if $hget(proxy,%ip2) { kline $+(*@,%ip2) +0 2Sunucumuza 4Proxy/Tor/Socks/Wingate 2ile girmek yasak!! %ver1 } elseif $hfind(prox,$13,1,W).data { kline $13 +0 8Yasaklı 7Nick 4Olarak 9Algılandınız. %ver1 } elseif $hfind(proxip,%ip2,1,W).data { kline $+(*@,%ip2) +0 7Proxy 4Olarak 9Algılandınız. %ver1 } elseif $hfind(krlst,$+($13,!,$remove($14,$chr(40),$chr(41))),1,W).data { kline $13 +0 7Sunucuya 4Girişiniz 9Yasaklanmıştır. 6! %ver1 } } } } } on *:sockopen:pro*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 sockwrite -nt $sockname $crlf } on *:sockread:pro*:{ if ($sockerr) { .sockclose $sockname | return } var %:pro | sockread -f %:pro if (IP Country: isin %:pro) && (*Turkey* iswm $token($htmlfree(%:pro),2,58)) && (%:yon == on) { .inc %:yici if (%:yici >= 2) { .set %:yon off | .unset %:yici } } if (IP Country: isin %:pro) && (*Turkey* !iswm $token($htmlfree(%:pro),2,58) ) { if (!$ulist($token($sock($sockname).mark,2,191),muafnick,1)) { .inc -u3 %:yd?s? if (%:yon == on) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Yurtdışı 4Girişi 9Yasaktır. 6! %ver1 } elseif (%:yd?s? >= 7) { .set %:yon on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. } } } if (ISP Provider: isin %:pro) { var %sglyc = $token($htmlfree(%:pro),2,58) if (Virtua isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Proxy 4Girişi 9Yasaktır. 6! %ver1 } elseif (%:vpn == on) { if (Services isin %sglyc) || (Ocean isin %sglyc) || (SG.GS isin %sglyc) || (SurfEasy isin %sglyc) || (ISPPro isin %sglyc) || (WorldStream isin %sglyc) || (SoftLayer isin %sglyc) || (OVH isin %sglyc) || (Liteserver isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Vpn 4Kullanımı 9Yasaktır. 6! %ver1 } } } if (%:yon == off) && (%:nrdn == on) { if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (ISP Provider: isin %:pro) { var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) window -e $+(@,Network,-,$token($server,2,46)) echo -t $+(@,Network,-,$token($server,2,46)) 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp .hfree -sw %:n sockclose $sockname } } } on *:sockopen:alpro*:{ var %:proal sockwrite -n $sockname %:proal GET / HTTP/1.1 %:proal Host: www.socks24.org %:proal User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0 %:proal Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %:proal Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 %:proal Connection: keep-alive %:proal $crlf + $crlf } on *:sockread:alpro*:{ var %proal sockread %proal if (*timestamp-link*.html* iswm %proal) { var %rand $rand(10,999999) .sockopen $+(hpsproal,%rand) www.socks24.org 80 .sockmark $+(hpsproal,%rand) $token($token(%proal,3-,47),1,39) } } on *:sockopen:hpsproal*:{ var %:proalhps sockwrite -n $sockname | %:proalhps GET / $+ $sock($sockname).mark HTTP/1.1 | %:proalhps Host: www.socks24.org | %:proalhps $crlf + $crlf } on *:sockread:hpsproal*:{ var %proalhps | sockread %proalhps | if $regex(%proalhps,(\d+\.\d+\.\d+\.\d+)) { .hadd -m Proxy $regml(1) IP } } on *:input:*:{ if $regex($1,/^[!\.]korumaon$/Si) { .korumaontheircd | echo -sat Koruma Açık } if $regex($1,/^[!\.]korumaoff$/Si) { .korumaoff | echo -sat Koruma Kapalı } if $regex($1,/^[!\.]korumafullon$/Si) { .korumaontheircdfull | echo -sat Koruma Full Açık } if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) { if $regex($2,/^ekle$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return } if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return } var %n = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m prox %n $strip($3) .hsave -o prox prox.hs .timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3) } if $regex($2,/^s[ıiİ]l$/Si) { if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return } if !$hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy Nick Listesinde Bulunmamaktadır. | return } .hdel -m prox $hfind(prox,$strip($3),1,W).data .hsave -o prox prox.hs .timer -h 1 500 msg # Proxy Listesinden Silinen Kayıt: $strip($3) } if $regex($2,/^l[ıiİ]st$/Si) { if ($hget(prox,0).data == 0) { .timer -h 1 500 msg # Proxy Nick Listesi bos. | return } .timer -h 1 500 msg # - var %:ya = 1 | while (%:ya <= $hget(prox,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(prox,%:ya).data ] | inc %:ya } .timer -h 1 500 msg # - } } if $regex($1,/^[!\.]pr[oO]xy[ıiİ]p$/Si) { if $regex($2,/^ekle$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return } if $hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz IP Zaten Listede mevcut $+([,$chr(32),$hget(proxip,$hfind(proxip,$strip($3),1,W).data),$chr(32),]) Eslesen Veri.. | return } var %:r = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m proxip %:r $strip($3) .hsave -o proxip proxip.hs .timer -h 1 500 msg # Proxy IP Listesine Eklenen Kayıt: $strip($3) } if $regex($2,/^s[ıiİ]l$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return } if !$hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy IP Listesinde Bulunmamaktadır. | return } .hdel -m proxip $hfind(proxip,$strip($3),1,W).data .hsave -o proxip proxip.hs .timer -h 1 500 msg # Proxy IP Listesinden Silinen Kayıt: $strip($3) } if $regex($2,/^l[ıiİ]st$/Si) { if ($hget(proxip,0).data == 0) { .timer -h 1 500 msg # Proxy IP Listesi bos. | return } .timer -h 1 500 msg # - var %:g = 1 | while (%:g <= $hget(proxip,0).data) { .timer -h 1 500 msg # %:g $+ ) [ $hget(proxip,%:g).data ] | inc %:g } .timer -h 1 500 msg # - } } if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) { if $2 == list { .timer -h 1 500 msg $chan listeleniyor. var %:mnck = 1, %mnc = $ulist(*,muafnick,0) .timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:4 %mnc while %:mnck <= %mnc { .timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $iif($ulist(*,muafnick,%:mnck) == $nick,$+(,$v1,),$v1) inc %:mnck 1 } } if $2 == ekle { if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return } if $ulist($3,muafnick,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return } .auser muafnick $3- .timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi } if $2 == sil { if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return } .ruser muafnick $3- | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf nick Listesinden Silindi } } if $regex($1,/^[!\.]m[uU]af[ıiİ]p$/Si) { if $2 == list { .timer -h 1 500 msg $chan listeleniyor. var %:mips = 1, %mip = $ulist(*,muafips,0) .timer -h 1 500 msg $chan - Toplam Muaf IP Sayısı:4 %mip while %:mips <= %mip { .timer -h 1 500 msg $chan $+(%:mips,$chr(41)) $iif($ulist(*,muafips,%:mips) == $nick,$+(,$v1,),$v1) inc %:mips 1 } } if $2 == ekle { if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek IP - HOST yazınız | return } if $ulist($3,muafips,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return } .auser muafips $3- .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesine Eklendi } if $2 == sil { if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek IP - HOST Yazınız | return } .ruser muafips $3- | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesinden Silindi } } if $regex($1,/^[!\.]karal[ıiİ]ste$/Si) { if (!$2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return } if $regex($2,/^ekle$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen FullAdres belirtiniz | return } if $hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Zaten KaraListede mevcut $+([,$chr(32),$hget(krlst,$hfind(krlst,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return } var %n1 = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m krlst %n1 $strip($3) .hsave -o krlst krlst.hs .timer -h 1 500 msg # KaraListeye Eklenen Kayıt: $strip($3) } if $regex($2,/^s[ıiİ]l$/Si) { if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return } if !$hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) KaraListede Bulunmamaktadır. | return } .hdel -m krlst $hfind(krlst,$strip($3),1,W).data .hsave -o krlst krlst.hs .timer -h 1 500 msg # KaraListeden Silinen Kayıt: $strip($3) } if $regex($2,/^l[ıiİ]st$/Si) { if ($hget(krlst,0).data == 0) { .timer -h 1 500 msg # KaraListe bos. | return } .timer -h 1 500 msg # - var %:ya = 1 | while (%:ya <= $hget(krlst,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(krlst,%:ya).data ] | inc %:ya } .timer -h 1 500 msg # - } } }

Özellikler:
Debug üzerinden çalışma.
Girişte @Network Penceresinde Giren Kişinin Bilgilerini Gösterme.
Belli sayıda yurtdışı girişi olduğunda Yurtdışı girişlerini banlama.
Karaliste *!*@* formatında ekleme
Muaf nick/IP ekleme
Siteden güncel proxy liste çekme(5 saatte bir olarak ayarlı)
Vpn girişlerini yasaklama
Nick ve ident aynı olanı banlama.

Komutlar:
!proxyip ekle/sil/list
!proxynick ekle/sil/list
!muafip ekle/sil/list
!muafnick ekle/sil/list
!karaliste ekle/sil/list
!korumaon
!korumaoff
!korumafullon

Örnek Ekleme:
- İdentinde ~ işareti ile başlayanlar giremesin
!karaliste ekle *!~*@*
- İdenti Mobil olan ve IP 177 ile başlayanlar giremesin
!karaliste ekle *!Mobil@177.*
- Alper nicki muaf olsun
!muafnick ekle Alper
- 177 ile başlayan ipler banlansın
!proxyip ekle 177.*
- Nl uzantılı hostlar giremesin
!proxyip ekle *.nl
- 78 ile başlayan ip ler muaf olsun
!muafip ekle 78.*

- Ekleme yapılmış olan dosyaları ekten indirip mirc klasörünün ana dizine attıktan sonra kullandığınız mirci kapatıp açtıktan sonra çalışacaktır.



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs } alias ykle1 { $iif(!$isfile(krlst.hs),.write krlst.hs) | .hmake krlst 100 | .hload krlst krlst.hs } alias ykle2 { $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs } alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off | .set %:nrdn off } alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on } alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off | .set %:yon off } alias proal_ { if $hget(Proxy) { .hfree -sw Proxy } var %::rand $r(1,999999) sockopen $+(alpro,%::rand) www.socks24.org 80 $+(.timer,otoproxy) 1 40 guncelpro } alias guncelpro { echo -sat Proxy list güncellendi toplam4 $hget(Proxy,0).data } alias connect_ { if ($1 = aç) debug -i on connect_ if ($1 = kapat) debug off tokenize 32 $1- if $1 = <- && $3 = NOTICE { if ($9 == connecting) && ($level($13) != muafnick) && ($level($remove($token($14,2,64),$chr(41))) != muafips) { var %:r = $r(1,999999999999), %ip2 = $remove($token($14,2,64),$chr(41)) .sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($remove($token($14,2,64),$chr(41)),¿,$13) if (%aynidnt = on) && ($13 === $right($gettok($14,1,64),-1)) { kill $13 7Nickiniz13&4Identiniz 8Aynıdır 9Değişiriniz %ver1 } if (%prox == on) { if $hget(proxy,%ip2) { kline $+(*@,%ip2) +0 2Sunucumuza 4Proxy/Tor/Socks/Wingate 2ile girmek yasak!! %ver1 } elseif $hfind(prox,$13,1,W).data { kline $13 +0 8Yasaklı 7Nick 4Olarak 9Algılandınız. %ver1 } elseif $hfind(proxip,%ip2,1,W).data { kline $+(*@,%ip2) +0 7Proxy 4Olarak 9Algılandınız. %ver1 } elseif $hfind(krlst,$+($13,!,$remove($14,$chr(40),$chr(41))),1,W).data { kline $13 +0 7Sunucuya 4Girişiniz 9Yasaklanmıştır. 6! %ver1 } } } } } on *:sockopen:pro*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 sockwrite -nt $sockname $crlf } on *:sockread:pro*:{ if ($sockerr) { .sockclose $sockname | return } var %:pro | sockread -f %:pro if (IP Country: isin %:pro) && (*Turkey* iswm $token($htmlfree(%:pro),2,58)) && (%:yon == on) { .inc %:yici if (%:yici >= 2) { .set %:yon off | .unset %:yici } } if (IP Country: isin %:pro) && (*Turkey* !iswm $token($htmlfree(%:pro),2,58) ) { if (!$ulist($token($sock($sockname).mark,2,191),muafnick,1)) { .inc -u3 %:yd?s? if (%:yon == on) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Yurtdışı 4Girişi 9Yasaktır. 6! %ver1 } elseif (%:yd?s? >= 7) { .set %:yon on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. } } } if (ISP Provider: isin %:pro) { var %sglyc = $token($htmlfree(%:pro),2,58) if (Virtua isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Proxy 4Girişi 9Yasaktır. 6! %ver1 } elseif (%:vpn == on) { if (Services isin %sglyc) || (Ocean isin %sglyc) || (SG.GS isin %sglyc) || (SurfEasy isin %sglyc) || (ISPPro isin %sglyc) || (WorldStream isin %sglyc) || (SoftLayer isin %sglyc) || (OVH isin %sglyc) || (Liteserver isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Vpn 4Kullanımı 9Yasaktır. 6! %ver1 } } } if (%:yon == off) && (%:nrdn == on) { if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (ISP Provider: isin %:pro) { var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) window -e $+(@,Network,-,$token($server,2,46)) echo -t $+(@,Network,-,$token($server,2,46)) 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp .hfree -sw %:n sockclose $sockname } } } on *:sockopen:alpro*:{ var %:proal sockwrite -n $sockname %:proal GET / HTTP/1.1 %:proal Host: www.socks24.org %:proal User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0 %:proal Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %:proal Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 %:proal Connection: keep-alive %:proal $crlf + $crlf } on *:sockread:alpro*:{ var %proal sockread %proal if (*timestamp-link*.html* iswm %proal) { var %rand $rand(10,999999) .sockopen $+(hpsproal,%rand) www.socks24.org 80 .sockmark $+(hpsproal,%rand) $token($token(%proal,3-,47),1,39) } } on *:sockopen:hpsproal*:{ var %:proalhps sockwrite -n $sockname | %:proalhps GET / $+ $sock($sockname).mark HTTP/1.1 | %:proalhps Host: www.socks24.org | %:proalhps $crlf + $crlf } on *:sockread:hpsproal*:{ var %proalhps | sockread %proalhps | if $regex(%proalhps,(\d+\.\d+\.\d+\.\d+)) { .hadd -m Proxy $regml(1) IP } } on *:input:*:{ if $regex($1,/^[!\.]korumaon$/Si) { .korumaontheircd | echo -sat Koruma Açık } if $regex($1,/^[!\.]korumaoff$/Si) { .korumaoff | echo -sat Koruma Kapalı } if $regex($1,/^[!\.]korumafullon$/Si) { .korumaontheircdfull | echo -sat Koruma Full Açık } if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) { if $regex($2,/^ekle$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return } if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return } var %n = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m prox %n $strip($3) .hsave -o prox prox.hs .timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3) } if $regex($2,/^s[ıiİ]l$/Si) { if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return } if !$hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy Nick Listesinde Bulunmamaktadır. | return } .hdel -m prox $hfind(prox,$strip($3),1,W).data .hsave -o prox prox.hs .timer -h 1 500 msg # Proxy Listesinden Silinen Kayıt: $strip($3) } if $regex($2,/^l[ıiİ]st$/Si) { if ($hget(prox,0).data == 0) { .timer -h 1 500 msg # Proxy Nick Listesi bos. | return } .timer -h 1 500 msg # - var %:ya = 1 | while (%:ya <= $hget(prox,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(prox,%:ya).data ] | inc %:ya } .timer -h 1 500 msg # - } } if $regex($1,/^[!\.]pr[oO]xy[ıiİ]p$/Si) { if $regex($2,/^ekle$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return } if $hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz IP Zaten Listede mevcut $+([,$chr(32),$hget(proxip,$hfind(proxip,$strip($3),1,W).data),$chr(32),]) Eslesen Veri.. | return } var %:r = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m proxip %:r $strip($3) .hsave -o proxip proxip.hs .timer -h 1 500 msg # Proxy IP Listesine Eklenen Kayıt: $strip($3) } if $regex($2,/^s[ıiİ]l$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return } if !$hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy IP Listesinde Bulunmamaktadır. | return } .hdel -m proxip $hfind(proxip,$strip($3),1,W).data .hsave -o proxip proxip.hs .timer -h 1 500 msg # Proxy IP Listesinden Silinen Kayıt: $strip($3) } if $regex($2,/^l[ıiİ]st$/Si) { if ($hget(proxip,0).data == 0) { .timer -h 1 500 msg # Proxy IP Listesi bos. | return } .timer -h 1 500 msg # - var %:g = 1 | while (%:g <= $hget(proxip,0).data) { .timer -h 1 500 msg # %:g $+ ) [ $hget(proxip,%:g).data ] | inc %:g } .timer -h 1 500 msg # - } } if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) { if $2 == list { .timer -h 1 500 msg $chan listeleniyor. var %:mnck = 1, %mnc = $ulist(*,muafnick,0) .timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:4 %mnc while %:mnck <= %mnc { .timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $iif($ulist(*,muafnick,%:mnck) == $nick,$+(,$v1,),$v1) inc %:mnck 1 } } if $2 == ekle { if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return } if $ulist($3,muafnick,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return } .auser muafnick $3- .timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi } if $2 == sil { if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return } .ruser muafnick $3- | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf nick Listesinden Silindi } } if $regex($1,/^[!\.]m[uU]af[ıiİ]p$/Si) { if $2 == list { .timer -h 1 500 msg $chan listeleniyor. var %:mips = 1, %mip = $ulist(*,muafips,0) .timer -h 1 500 msg $chan - Toplam Muaf IP Sayısı:4 %mip while %:mips <= %mip { .timer -h 1 500 msg $chan $+(%:mips,$chr(41)) $iif($ulist(*,muafips,%:mips) == $nick,$+(,$v1,),$v1) inc %:mips 1 } } if $2 == ekle { if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek IP - HOST yazınız | return } if $ulist($3,muafips,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return } .auser muafips $3- .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesine Eklendi } if $2 == sil { if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek IP - HOST Yazınız | return } .ruser muafips $3- | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesinden Silindi } } if $regex($1,/^[!\.]karal[ıiİ]ste$/Si) { if (!$2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return } if $regex($2,/^ekle$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen FullAdres belirtiniz | return } if $hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Zaten KaraListede mevcut $+([,$chr(32),$hget(krlst,$hfind(krlst,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return } var %n1 = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m krlst %n1 $strip($3) .hsave -o krlst krlst.hs .timer -h 1 500 msg # KaraListeye Eklenen Kayıt: $strip($3) } if $regex($2,/^s[ıiİ]l$/Si) { if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return } if !$hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) KaraListede Bulunmamaktadır. | return } .hdel -m krlst $hfind(krlst,$strip($3),1,W).data .hsave -o krlst krlst.hs .timer -h 1 500 msg # KaraListeden Silinen Kayıt: $strip($3) } if $regex($2,/^l[ıiİ]st$/Si) { if ($hget(krlst,0).data == 0) { .timer -h 1 500 msg # KaraListe bos. | return } .timer -h 1 500 msg # - var %:ya = 1 | while (%:ya <= $hget(krlst,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(krlst,%:ya).data ] | inc %:ya } .timer -h 1 500 msg # - } } }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı