IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 30 Haziran 2016, 15:24   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Proxy korumasi [Addon]


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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(.+)\x28.+@(.+)\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:   Kodu kopyalamak için üzerine çift tıklayın!
alias sebep return $me


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sebep return IRC.Bilmamne.ORG Security System


Düzenlemelisiniz.


Coded: IrCbaStarD
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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(.+)\x28.+@(.+)\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:   Kodu kopyalamak için üzerine çift tıklayın!
alias sebep return $me


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sebep return IRC.Bilmamne.ORG Security System


Düzenlemelisiniz.


Coded: IrCbaStarD
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 10 Ağustos 2016, 13:51   #2
Çevrimdışı
Cevap: Proxy korumasi [Addon]



Sistem api key kodu vermiyor elinizde api key varsa paylaşabilirmisiniz. Yoksa bir işe yaramayacaktır.

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 10 Ağustos 2016, 16:55   #3
Çevrimdışı
Cevap: Proxy korumasi [Addon]



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.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 20 Ağustos 2016, 19:18   #4
Çevrimdışı
Cevap: Proxy korumasi [Addon]



görüştüm projeyi askıya aldıklarını söylediler yardımcı olmadı.

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
addon, korumasi, proxy
IRCForumu.Net - Sponsor Bağlantılar


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