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

 

Go Back   IRCForumu.Net | Türkiye'nin IRC ve mIRC Forumu > IF - mIRC Scripting > Hazır Kodlar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 30 Haziran 2016, 15:24   #1
Gelme, burası çok derin.
Avatar Yok
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 584
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ı ile Cevapla
Alt 10 Ağustos 2016, 13:51   #2
Avatar Yok
 
Ü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]

Sistem api key kodu vermiyor elinizde api key varsa paylaşabilirmisiniz. Yoksa bir işe yaramayacaktır.
ExcLuSive isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
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]

Alıntı:
ExcLuSive Nickli Üyeden Alıntı Mesajı göster
Sistem api key kodu vermiyor elinizde api key varsa paylaşabilirmisiniz. Yoksa bir işe yaramayacaktır.
irc.geveze.net - #master kanalında ircbastard ile görüşüp api key hakkında bilgi alabilirsiniz.
__________________
These wounds won't seem to heal.
Feragat isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 20 Ağustos 2016, 19:18   #4
Avatar Yok
 
Ü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]

görüştüm projeyi askıya aldıklarını söylediler yardımcı olmadı.
ExcLuSive isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

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



Forum Yasal Uyarı
Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Kuruluş: IRCForumu.Net © 30 Nisan 2018 Cumartesi
Kurucular: immortaL

IRCForumu.Net Her Hakkı Saklıdır.

irc forumu | ircforumları | irc forumları |
Sitemiz bir "paylaşım" sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir. Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda [email protected] adresine mail atıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5101 sayılı yasayla değişik 5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı T.C. Kültür ve Turizm Bakanlığı tarafından hak sahipliği verilmiş olan MÜ-YAP tarafından yasaklanmış olup, yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.