IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

8Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Mayıs 2013, 01:53   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
/nerden ip farklı bi soru ?




S.a arkadaşlar
Şöyle bişeyi nasıl yapabiliriz..

!nerden ip yaptıgım zaman bi ipin bilgileri cıkıyor.. ükle şehir v.s

örnegin

[01:46] <xx> Host: e178088121.adsl.alicedsl.de
[01:46] <xx> Ulke: Germany
[01:46] <xx> Ulke Kodu: DEU
[01:46] <xx> Kita: Europe
[01:46] <xx> Bolge: Berlin
[01:46] <xx> Sehir: Berlin
[01:46] <xx> Organizasyon: Telefonica Germany
[01:46] <xx> Servis Saglayici: Alice DSL

Şimdi yapmak istedigim şu aşagıdaki code ye açma kapama ekleyip
!takipet ip yazdıgım zaman koruma acılcak ve

Sehir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
erlin yazan bütün ipleri gzline ile uzaklaştırıcak. yani berlin yazıyosa şehrinde. böyle bişeyi nasıl yapabiliriz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias nerden { if $sock(yerbul) { sockclose yerbul } sockopen yerbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } on *:input:#: { if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } } } on *:sockopen:yerbul:{ sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1 sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf } on *:sockread:yerbul: { if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } var %yerbul sockread %yerbul if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) } if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2) } if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) } if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) } if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) } if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) } if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) } if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) } } #nrdn off raw 340:*: { if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down } set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) .nerden :down .disable #nrdn .halt } #nrdn end


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 26 Mayıs 2013, 03:12   #2
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias nerden { var %rand $rand(0,999999) sockopen $+(yerbul,%rand)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(yerbul,%rand) $1 } on *:sockopen:yerbul*:{ sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1 sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf } on *:sockread:yerbul*: { var %yerbul sockread %yerbul if $regex(%yerbul,/IP.City\:/i) { var %sehir $token($token(%yerbul,3,62),1,60) if $istok(Berlin Berlin2 Berlin3 Sehir4 Sanliurfa,%sehir,32) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return } } }

/nerden 95.15.60.58

ne demek istedigini anlamadım ama bu isini görür bence. demo olarak veriyorum gerisi sana kalmıs.

 
Alıntı ile Cevapla

Alt 26 Mayıs 2013, 22:02   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




Set Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias nerden { var %rand $rand(0,999999) sockopen $+(yerbul,%rand)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(yerbul,%rand) $1 } on *:sockopen:yerbul*:{ sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1 sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf } on *:sockread:yerbul*: { var %yerbul sockread %yerbul if $regex(%yerbul,/IP.City\:/i) { var %sehir $token($token(%yerbul,3,62),1,60) if $istok(Berlin Berlin2 Berlin3 Sehir4 Sanliurfa,%sehir,32) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return } } }

/nerden 95.15.60.58

ne demek istedigini anlamadım ama bu isini görür bence. demo olarak veriyorum gerisi sana kalmıs.

Teşekkür ederim Set. yapmak istedigimi farklı bi şekilde yaptım
yapmak istedigim şuydu.
mesela bu modem resetleyip saldırı yapan lamerler var.
bu lamerleri önlemek için şöyle bişey düşünmüştüm.
bu yukardaki !nerden nick komutunda yazılan nickin şehrini gösteriyor.
bende burdan yola cıkarak mesela adam adana şehrinden baglanıyorsa 1 saatligine adana şehrinden girenleri banlamak... gbi bi düşünceydi.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x } alias nerden { sockopen yerbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } on *:sockopen:yerbul:{ sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1 sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf } on *:sockread:yerbul: { var %yerbul sockread %yerbul if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 4 $+ $replacecs($gettok($htmlfree(%yerbul),1,58),IP Country,Ulke,IP Country Code,Ulke Kodu,IP Continent,Kita,IP Region,B?lge,IP City,Sehir,IP Latitude,Enlem,IP Longitude,Boylam,Organization,Sirket,ISP Provider,Servis Saglayici) $+ : $+ 2 $+ $gettok($htmlfree(%yerbul),2,58) } } on *:input:*: { if ($1 == !nerden) || ($1 == .nerden) && ($2) { if ($left($2,1) isnum) { .set -e %nrd $2 | set -e %aktif $active .nerden $2 .timer 1 2 .sockclose nerden } else { .userip $2 .enable #nerdenbul set -e %aktif $active .nerden $2 .timer 1 2 .sockclose nerden } } } #nerdenbul off raw 340:*: { set %nrd $gettok($2,2,64) .disable #nerdenbul } #nerdenbul end #takiple on alias takiple { if ($1) { inc %xx sockopen $+(tkpet*,%xx)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(tkpet*,%xx) $1 } } on *:sockopen:tkpet*:{ var %s sockwrite -n $sockname %s GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1 %s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:tkpet*:{ var %x [ $+ [ $sockname ] ] sockread %x [ $+ [ $sockname ] ] if (* $+ %sehirle $+ * iswm %x [ $+ [ $sockname ] ]) { gzline $+(*@,$sock($sockname).mark) : 1Lütfen 4Sohbet 1Kurallarina Uyunuz.. $date $time 5 $me sockclose $sockname } } raw 352:*:{ takiple $4 } on *:snotice:*Client connecting*: { .who +I $9 } #takiple end alias takipet { enable #takiple set %sehirle $1- echo -a 0,4 $1- Sehri Takibe Alindi.. $1- Sehrinde Girenlere Gzline atilcak.. Kapatmak icin /takipkapa yaziniz. } alias takipkapa { disable #takiple set %sehirle takipetme echo -a 0,1 Takip Korumasi Kapandi.. Tekrar Kullanmak icin /takipet Sehir yaziniz. }

Şu Şekilde yaptım. Belki işine yarayan arkadaşlar olur..
ilk önce Aktif Ekranda !nerden nick yazıyosunuz
Sonra
/takipet şehir

Kapatmak için;
/takipkapa
şeklinde kullanabilirsiniz..

 
Alıntı ile Cevapla

Alt 26 Mayıs 2013, 23:31   #4
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




Normal'de güzel bir düşünce, ama modem bilgileri genelde net olarak göstermiyordur bazen ne kadar net göstersede sitenin saglamlıgı tartısılır sonucta, neyse genede eline saglık, Hayırlı IF'ler.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*connecting: { if (%takip) { who +I $9 } } raw 352:*: { takipkntrl $4 } alias takipkntrl { var %rand $rand(0,999999) sockopen $+(yerbul,%rand)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(yerbul,%rand) $1 } on *:sockopen:yerbul*:{ sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1 sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf } on *:sockread:yerbul*: { var %yerbul sockread %yerbul if $regex(%yerbul,/IP.City\:/i) { var %sehir $token($token(%yerbul,3,62),1,60) if $hget(takip,%sehir) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return } } } alias takipzaman { return $duration($calc($ctime - $1)) } alias takipekle { if $hget(takip,$1) { echo -a Zaten $qt($1) listede bulunmaktadir. | return } hadd $iif($2,$+(-mu,$2),-m) takip $1 $ctime echo -ea - $qt($1) sehri takip listesine $iif($2,$qt($duration($v1)) zamanı ile) eklenmistir. if (!%takip) { echo -a Takip komutu zaten deaktif durumda oldugundan islem yapmayacaktir. | return } } alias takipsil { if !$hget(takip,$1) { echo -ae Zaten $qt($1) listede bulunmamaktadir. | return } echo -ea $qt($1) sehri takip listesinden $qt($takipzaman($hget(takip,$1))) zamandir ekli olup listeden silinmistir. hdel -m takip $1 } alias takip { if ($1 == on) { if (%takip) { echo -a Takip komutu zaten aktif. | return } set %takip on } if ($1 == off) { if (!%takip) { echo -a Takip komutu zaten deaktif. | return } unset %takip } }

Komutlar:
- /takipekle Sehir "Zaman"
-- Zaman suresini eklemek isteyenler zaman'da ekleyebilir "/takipekle Urfa 1000" gibi saniye cinsinden ekleyebilirler, istemeyenlerde sadece /takipekle Sehir yazabilirler-
- /takipsil sehir
- /takip on/off

 
Alıntı ile Cevapla

Alt 21 Eylül 2013, 13:00   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




Guzel sistem buna o şehirden saldiri yapan ipleri yazarak girşini ip glizne yapamayizmi @78.190.*
@85.104.*
@78.168*


birde nick muaf veye ip muaf ident muaf yapa bilrmiyiz bu konuda yardimci olrsaniz sevinirim ustalar tşkler
diyelim zonguldak tum zonguldakı yasaklamaktansa bu ip girşine izin vermese

 
Alıntı ile Cevapla

Alt 21 Eylül 2013, 13:15   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




Öyle sistem olmaz Bir İP'nin Zonguldaktan bağlandığını görmek o İP adresinin %100 Zonguldaktan bağlandığı anlamına gelmez zaten çevre illerden gelebilir.

Bahsettiğin sistem OAScript'de var mIRC Tanıtımları bölümünden indirip kullanabilirsin.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 21 Eylül 2013, 13:37   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




&SwaT-Bot> !nerden 78.190.3.57
&SwaT-Bot> Ulke: Turkey
&SwaT-Bot> Ulke Code: TUR
&SwaT-Bot> Kita: Asia
&SwaT-Bot> B?lge: Zonguldak
&SwaT-Bot> Sehir: Zonguldak
&SwaT-Bot> Enlem: 41.4514
&SwaT-Bot> Boylam: 31.7931
&SwaT-Bot> Sirket: Turk Telekom
&SwaT-Bot> Servis Saglayici: Turk Telekom
&SwaT-Bot> !nerden 95.14.44.196
&SwaT-Bot> Ulke: Turkey
&SwaT-Bot> Ulke Code: TUR
&SwaT-Bot> Kita: Asia
&SwaT-Bot> B?lge: Zonguldak
&SwaT-Bot> Sehir: Zonguldak
&SwaT-Bot> Enlem: 41.4514
[&SwaT-Bot> Boylam: 31.7931
&SwaT-Bot> Sirket: Turk Telekom
&SwaT-Bot> Servis Saglayici: Turk Telekom
Grup(lar) Aktif
Zonguldak Sehri Takibe Alindi.. Zonguldak Sehrinde Girenlere Gzline atilcak.. Kapatmak icin /takipkapa yaziniz.


OperServ- 232 *@95.14.* [SwaT-Bot] Yasak_Giris
OperServ- 233 *@85.104.* [SwaT-Bot] Yasak
OperServ- 234 *@88.224.1.* [SwaT-Bot] Yasak_Giris
OperServ- 235 *@78.190.* [SwaT-Bot] Yasak_Giris

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:35 -->-> Daha önceki mesaj 13:33 --

proxy korumasi deil zadece sehir korumasi ip takıp sistemi ufuk

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:37 -->-> Daha önceki mesaj 13:35 --

bunu mirc ugun sekılde getirp zogunldaktan bu ipten gelene kişiyi aticak guzel olurdu boyle bir sistem ilgin icin tşkur ederim.

 
Alıntı ile Cevapla

Alt 21 Eylül 2013, 13:37   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




Benim verdiğim kod senin sisteminden bağımsız çalışıyor yani oradakileri zline atmasını engellemez sen muaf ip aralıgı istiyorsan hash tablo ile mevcut koduna ekleyeceksin.

 
Alıntı ile Cevapla

Alt 21 Eylül 2013, 13:44   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




arkdşların Vermış olugu kot guzel hani buna mirc de kualnıcı bolumune ip eklesek demin basetigim gibi
*@78.190.* kulanıcı bolumune Sadece zogundaktan takıp ediyor zaten o ip aticak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 21 Eylül 2013, 23:12   #10
Toprak
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: /nerden ip farklı bi soru ?




badword Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
arkdşların Vermış olugu kot guzel hani buna mirc de kualnıcı bolumune ip eklesek demin basetigim gibi
*@78.190.* kulanıcı bolumune Sadece zogundaktan takıp ediyor zaten o ip aticak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Zonguldak'dan giriş oldumu zlinemi atacak?

 
Alıntı ile Cevapla

Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Tefsirlerin Farklı Farklı Olması Sebebi Nedir? Liaaa İslamiyet 0 08 Mart 2012 12:07
Help Soru Cevap Botunu Nerden temin Edebilirim Link Verirmisiniz ArkadaşLar SeLCuK1905 mIRC Scripting Sorunları 1 17 Mayıs 2010 15:44
Farklı Tarzlar, Farklı Makyajlar… Kralice Güzellik, Sağlık ve Bakım Önerileri 0 05 Temmuz 2009 16:07