IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu   Reklam Alanı


  IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu IF - mIRC Scripting Hazır Kodlar

Bizim mekan Reklam alanı

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Arama Stil
Alt 30 Haziran 2016, 15:24   #1
Gelme, burası çok derin.
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 581
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post Proxy korumasi [Addon]

Kod:
on *:Start:$iif(!$file(pm.s),write -c pm.s) | hmake pm | hload pm pm.s
on *:sockopen:sorgu*:{
  var %xs sockwrite -n $sockname
  %xs GET $+(/proxy/api/sorgu.php?key=,%api.key,&ip=,$regsubex($sockname,(.+)\*(.+)\*(.+),\2))  HTTP/1.1 
  %xs Host: proje.ircdepo.tk
  %xs Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  %xs Accept-Language: tr-TR
  %xs User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  %xs Connection: Keep-Alive
  %xs $crlf
}
on *:sockread:sorgu*:{
  sockread &b | var %komut $bvar(&b,1,$bvar(&b,0)).text, %komut $replace($replace(%komut,$crlf,$chr(124)),||,^), %komut $gettok(%komut,2,$asc(^)), %komut $gettok(%komut,2,124)
  if %komut = 1 { 
    gzline $regsubex($sockname,(.+)\*(.+)\*(.+),*@\2) - $sebep
    $iif(!$window(@pRoXy),window -zn @pRoXy)
    echo 3 -t @pRoXy *** $qt(Nick: $regsubex($sockname,(.+)\*(.+)\*(.+),\3)) Proxy korumasından atilmistir, $qt(IP: $regsubex($sockname,(.+)\*(.+)\*(.+),\2))
    sockclose $sockname
  }
  if %komut = 0 { p.tara2 $regsubex($sockname,(.+)\*(.+)\*(.+),\2) | sockclose $sockname }
}
on *:sockopen:t.proxy*:{
  var %xs sockwrite -n $sockname
  %xs GET $+(/proxy/?ip=,$sock($sockname).mark)  HTTP/1.1 
  %xs Host: proje.ircdepo.tk
  %xs Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  %xs Accept-Language: tr-TR
  %xs User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  %xs Connection: Keep-Alive
  %xs $crlf
}
on *:sockread:t.proxy*:{  
  var %s | sockread -f %s | if ($regex(%s,/<font color="red">/i)) { 
    gzline $+(*@,$sock($sockname).mark) - $sebep
    $iif(!$window(@pRoXy),window -zn @pRoXy)
    echo 4 -t @pRoXy *** $qt(IP: $sock($sockname).mark) Proxy korumasından atilmistir [TARAMA] 
  }
}
alias p.tara2 {  var %s $+(t.proxy~,$1) | $iif($sock(%s),sockclose $v1) | sockopen %s proje.ircdepo.tk 80 | sockmark %s $1 }

#Proxy off
on $*:snotice:/client\sconnecting.+[:]\s(.+)\[email protected](.+)\x29/i:{
  if $hfind(pm,$regml(2),1,W).data { p.m $regml(1) $regml(2) | return }
  if $regex(s,$regml(2),\d+\.\d+\.\d+\.\d+) { p.tara $regml(2) $regml(1) }
  else who +I $regml(1)
}
raw 352:*:if (!$hfind(pm,$4,1,W).data && !$regex($6,/(?:.+Serv|Global)/i)) { p.tara $4 $6 }
#Proxy end

alias p.m {
  $iif(!$window(@pRoXy.Muaf),window -ze @pRoXy.Muaf)
  echo 4 -t @pRoXy.muaf $qt(Nick: $1) $qt(IP: $2) Muaf listesinde.
}
alias p. hadd -m pm $md5($+($1,$ticks)) $1 | hsave pm pm.s | echo 3 -a *** $qt($1) Listeye eklenmiştir.
alias p.. echo 3 -a *** $qt($hget(pm,$1)) listeden silinmistir. | hdel -m pm $1 | hsave pm pm.s 
alias muaf {
  var %e echo 3 -a ***
  if $1 = ekle {
    if !$hfind(pm,$2,1,W).data { p. $2 }
    else { %e Listede ekli durumda. }
  }
  if $1 = sil {
    if $hfind(pm,$2,1,W).data { p.. $hfind(pm,$2,1,W).data }
    else { %e Listede bulunmuyor } 
  }
  if $1 = liste { 
    var %e2 echo 3 @pRoXy-Muaf, %s 1, %f $hget(pm,0).item
    if %f = 0 { %e Liste Boş Durumda. | return }
    $iif(!$window(@pRoXy-Muaf),window -ze @pRoXy-Muaf) 
    %e2 *** Proxy Muaf Listesi.
    %e2 
    while %s <= %f { %e2 $qt(IP: $hget(pm,%s).data) | inc %s }
    %e2 
    %e2  *** Muaf listesi sonu.
  }
}
alias p.tara {
  var %s $+(Sorgu*,$1,*,$2) | $iif($sock(%s),sockclose $v1)
  sockopen %s proje.ircdepo.tk 80
}
menu * {
  .-
  .Proxy Koruması
  .-
  ..Api Key:set %api.key $$?"Siteden aldiniz API KEY Numarasini Yaziniz. $str($crlf,2) $+ $iif(%Api.key,Mevcut keyiniz: $v1,Api Keyiniz Bulunmuyor) $+ "
  ..-
  ..Proxy
  ...Durum $+($chr(40),$iif($group(#Proxy) = On,Acik,Kapali),$chr(41)):echo 3 -a *** Proxy Koruması $iif($group(#Proxy) = On,Acik,Kapali) Durumda. 
  ...-
  ...Ac:.enable #Proxy | Echo 3 -a *** Proxy Koruması acilmistir.
  ...Kapat:.disable #Proxy | echo 3 -a *** Proxy korumasi kapatilmistir.
  ...-
  .Proxy Muaf
  ..Proxy Muaf $+($chr(40),IP,$chr(32),$hget(pm,0).item,$chr(41)) :echo 3 -a *** Proxy muaf listesinde toplam $hget(pm,0).item IP adresi vardir.
  ..-
  ..Ekle:muaf ekle $$?" $+ $me Ip Adresi Giriniz. $str($crlf,2) $+ Wildcard kullanabilirsiniz. 78.21.* seklin de ekleme yapabilirsiniz."
  ..Sil:Muaf sil $$?"Silmek istediginiz IP adresini yaziniz."
  ..-
  ..Liste:Muaf liste
  .-
  .Proxy Tara:Who +I *
}

alias sebep return $me

Herkes botu sokmayacagi icin addon olarakda yazalim dedik. Addonu kullanmak icin ilk önce api key almalisiniz, elinizdeki mevcut keyide girebilirsiniz. Popups(Sağ tik menü)'de bütün ayarlarini yapabilirsiniz koruma ilk kapali olarak yüklenecektir, ayarlari girmelisiniz apikey ayarlari ayarlayip muaf ipler vs. korumayi aktif etmelisiniz. Suanda ban sebebi $me = Yani nickiniz olarak atiyor değiştirmek icin;


Kod:
alias sebep return $me

Kod:
alias sebep return IRC.Bilmamne.ORG Security System

Düzenlemelisiniz.


Coded: IrCbaStarD





 immortaL isimli Üye şimdilik offline konumundadır   Alıntı
Alt 10 Ağustos 2016, 13:51   #2
 
Üyelik tarihi: 21 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 3
WEB Sitesi: www.aynet.org
IRC Sunucusu: irc.aynet.org
İlgi Alanı:
Kan Grubu: 0 RH (+)
Alınan Beğeni: 2
Standart Cevap: Proxy korumasi [Addon]

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap

 ExcLuSive isimli Üye şimdilik offline konumundadır   Alıntı
Alt 10 Ağustos 2016, 16:55   #3
 
Feragat - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 08 Mayıs 2016
Bulunduğu yer: Adana
Mesajlar: 13
WEB Sitesi: www.ircforumu.net
IRC Sunucusu: irc.mircscripting.net
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 20
Standart Cevap: Proxy korumasi [Addon]

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap






These wounds won't seem to heal.
 Feragat isimli Üye şimdilik offline konumundadır   Alıntı
Alt 20 Ağustos 2016, 19:18   #4
 
Üyelik tarihi: 21 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 3
WEB Sitesi: www.aynet.org
IRC Sunucusu: irc.aynet.org
İlgi Alanı:
Kan Grubu: 0 RH (+)
Alınan Beğeni: 2
Standart Cevap: Proxy korumasi [Addon]

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap

 ExcLuSive isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
addon, korumasi, proxy

Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:53.


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
IRCForumu - Sohbet - Bizim mekan
Copyright ©2005 - 2016 IRCForumu.Net | Tüm Hakları Saklıdır.