IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý
  odeaweb

>
+
Etiketlenen Kullanýcýlar

6Beðeni(ler)
  • 1 Post By DaDaS
  • 1 Post By YouMyCure
  • 1 Post By DaDaS
  • 1 Post By SNOOPY
  • 2 Post By YouMyCure

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 25 Ocak 2022, 16:24   #1
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (1)
IF Ticaret Yüzdesi:(%)
Giriþ Sorgu hakkýnda




giriþ kodu çalýþmýyor kod hakkýnda yardýmlarýnýzý rýca ederým.


Kod:   Kodu kopyalamak için üzerine çift týklayýn!
alias joinall { inc %kjall sockopen $+(check_nick,%kjall)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 sockmark $+(check_nick,%kjall) $1 } on *:sockopen:check_nick*:{ sockwrite -tn $sockname GET $+(/ip-address-locator.php?lookup=,$gettok($sock($sockname).mark,1,64)) HTTP/1.1 sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8 sockwrite -tn $sockname Connection: keep-alive sockwrite -tn $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -tn $sockname Content-Type: text/html sockwrite -tn $sockname Set-Cookie: __cfduid=d84f6258ebb82430cfab20ac06a0f8b551538918639; expires=Mon, 07-Oct-19 13:23:59 GMT; path=/; domain=.ipqualityscore.com; HttpOnly sockwrite -tn $sockname IPQ-Server: IPQ-0 sockwrite -tn $sockname Expect-CT: max-age=604800, report-uri="https://report-uri.cloudflare.com/cdn-cgi/beacon/expect-ct" sockwrite -tn $sockname Server: cloudflare sockwrite -tn $sockname CF-RAY: 4660af7b898d408e-HAM sockwrite -tn $sockname $crlf } on *:sockread:check_nick*:{ var %jll | sockread %jll | tokenize 32 $left(%jll,107) if *<H2>IP*Location*Finder*For*<br*/>*</H2>* iswm %jll { set %blass 4NICK:2 $gettok($gettok($sock($sockname).mark,2,64),1,43) 4IP:2 $gettok($sock($sockname).mark,1,64) 4IDENT:2 $gettok($gettok($sock($sockname).mark,2,64),2,43) 4SEHIR2/4ULKE:2 $gettok($gettok($remove(%jll,from),2,40),1,41),$chr(32) } if $regex(%jll,/<i>ISP.+Provider:.+(.*)</b><br.+/i) { msg #kontrol %blass 4ISP:2 $remove(%jll,<i>ISP Provider:</i> <b>,</b><br />) m #kontrol Bu ip adresini yasaklamak icin4.ipyasakla2 $gettok($sock($sockname).mark,1,64) komutunu uygulayiniz. } } on *:start: { if !$isfile(yasakip.die) { write -c yasakip.die } hmake yasakip | hload yasakip yasakip.die } on *:text:*:#: { if $chan = #kontrol { if $regex($1,/[.!][Ýiý]pyasakla/i) { if $hget(yasakip,$2) { msg # $2 ip adresi yasakli durumda. | return } hadd -m yasakip $2 Ekleyen: $nick msg # $2 ip adresi yasaklandi $nick hsave yasakip yasakip.die } if $regex($1,/[.!][Ýiý]psil/i) { if !$hget(yasakip,$2) { msg # $2 ip adresi yasakli durumda deðil. | return } hdel -w yasakip $2 * msg # $2 ip adresi yasak listesinden silindi $nick hsave yasakip yasakip.die } if $regex($1,/[.!]list/i) { if $hget(yasakip,0).item == 0 { bmsg botran $3 Yasakli ip listesi bulunamadi. | return } msg # 4Yasaklanmis ip adresleri listesi var %> = 1 | while ($hget(yasakip, %>).item) { msg # %> $+ ) IP:12 $v1 Ekleyen:4 $hget(yasakip, $v1) | inc %> } msg # 4Yasaklanmis ip adresleri listesi sonu } } if $chan = #bilgi { if $regex(cc,$1-,/(Client\sconnecting(.*)port\s(.*):\s(.*)\s\((.*)\@(.*)\))/Si) { var %dick $regml(cc,4), %dident $regml(cc,5), %dip $regml(cc,6), %dport $regml(cc,3) if $istok(7000 8000,%dport,32) { return } if $hget(yasakip,%dip) { .sqline %dick 1h Girisiniz yasaklanmistir. | return } joinall $+(%dip,@,%dick,+,%dident) } } }


__________________

Kullanýcý imzalarýndaki baðlantý ve resimleri görebilmek için en az 20 mesaja sahip olmanýz gerekir ya da üye giriþi yapmanýz gerekir.
google_ad_section_end -->
 
Alýntý ile Cevapla

Alt 25 Ocak 2022, 23:09   #2
Çevrimiçi
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Giriþ Sorgu hakkýnda




Daha detaylý bir aciklama yapsan ?

__________________
Güneþin ilk ýþýklarýna vererek umutlarýmý
Masal Dünyamýn açýp kapýlarýný
Girdim insan Kalabalýðýna
 
Alýntý ile Cevapla

Alt 26 Ocak 2022, 08:56   #3
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Giriþ Sorgu hakkýnda




YouMyCure Nickli Üyeden Alýntý
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
Daha detaylý bir aciklama yapsan ?

set %blass 4NICK:2 $gettok($gettok($sock($sockname).mark,2,64),1,43) 4IP:2 $gettok($sock($sockname).mark,1,64) 4IDENT:2 $gettok($gettok($sock($sockname).mark,2,64),2,43) 4SEHIR2/4ULKE:2 $gettok($gettok($remove(%jll,from),2,40),1,41),$ch r(32)

Giren kullanýcýyý #bilgi kanalýna bu þekilde yansýtýyor ancak sýtede sorun var ugrastým çözemedým
ayrýca ýp yasaklamak ýcýn komut uyguluyor

__________________

Kullanýcý imzalarýndaki baðlantý ve resimleri görebilmek için en az 20 mesaja sahip olmanýz gerekir ya da üye giriþi yapmanýz gerekir.
google_ad_section_end -->
 
Alýntý ile Cevapla

Alt 28 Ocak 2022, 09:03   #4
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Giriþ Sorgu hakkýnda




Kod:   Kodu kopyalamak için üzerine çift týklayýn!
alias _tr return $replace($1-,Ö,ö,Ç,ç,İ,i,ö,ö,ç,ç,ü,ü,ÅŸ,þ,ı,ý,Åž,þ,ÄŸ,ð,Ü,ü,Äž,ð,$chr(39),`) alias hfr { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:start: { .hmake ip | .hload ip ip.ymc } on *:sockopen:ymcpro*:{ sockwrite -nt $sockname GET $+(/api/nerden/bilgi.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Cache-Control: max-age=0 sockwrite -nt $sockname Upgrade-Insecure-Requests: 1 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36 sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9 sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7 sockwrite -nt $sockname $crlf } on *:sockread:ymcpro*:{ var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden ;echo -s %:nerden if Country isin %:nerden && Code !isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Ulke $token($hfr(%:nerden),2,58) } if City isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Sehir $token($hfr(%:nerden),2,58) } if ISP isin %:nerden { var %:isp $_tr($token($hfr(%:nerden),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $_tr($hget(%:n,Ulke)), %sehir $_tr($hget(%:n,Sehir)) if IRCWeb = $token($sock($sockname).mark,3,191) { return } if %nrdn { msg %nrdn 4NICK:12 %:n 4IP:12 %ip 4ULKE1/4SEHIR:12 %ülke 1-12 %sehir 4 ISP:12 %:isp return } msg #kontrol 4NICK:12 %:n 4IP:12 %ip 4IDENT:12 $token($sock($sockname).mark,3,191) 4ULKE1/4SEHIR:12 %ülke 1-12 %sehir 4 ISP:12 %:isp msg #kontrol Bu ip adresini yasaklamak icin4 .ip ekle2 %ip komutunu uygulayiniz. ;ip kontrol var %u = 1 | while %u <= $hget(ip,0).item { if $hget(ip,%u).item iswm $+(*@,%ip) { msg #kontrol %:n nicki4 %ip 1yasaklý adresi ile giriþ tespit edilmiþtir ve uzaklaþtýrýldý.2 Mask:4 $hget(ip,%u).item zline $+(*@,%ip) 0 4Yasak Ip Giriþi Tespit Edilmiþtir. } inc %u } sockclose $sockname } } raw 328:*: { var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($6,¿,$2) } on *:text:*:*: { if $regex($1,/^([.!]nerden)/Si) { if !$2 { msg $chan Lütfen !nerden IP/Nick olarak belirtiniz. | return } if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { set -u3 %nrdn # var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($2,¿,Bilinmiyor) } else { set -u3 %nrdn # | whois $2 } } if $chan = #kontrol { if $regex($1,/^([.!][Ýi]p)/Si) { if !$2 { msg # lütfen !ip ekle sil list þeklinde kullanýnýz. | return } if $2 = ekle && $3 { if $hget(ip,$3) { msg # $3 itemi zaten Ýp listesinde bulunuyor. | return } .hadd -sm ip $3 $nick | hsave ip ip.ymc msg # 4 $3 1itemi Ýp listesine eklendi. } elseif $2 = sil && $3 { if !$hget(ip,$3) { msg # $3 itemi zaten Ýp listesinde bulunmuyor. | return } .hdel ip $3 | hsave ip ip.ymc msg # 4 $3 1itemi Ýp listesinden silindi. } elseif $2 = list { if $hget(ip,0).item = 0 || !$hget(ip,0).item { msg # ip listesi boþ. | return } msg # ** Ýp Listesi ** msg #  var %i = 1 | while %i <= $hget(ip,0).item { msg # 4 $hget(ip,%i).item 1Ekleyen -->2 $hget(ip,%i).data inc %i } msg #  msg # ** Ýp Listesi Sonu ** } } } if $chan = #bilgi { if (Client connecting on port isin $1-) { var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($left($token($11,2,64),-1),¿,$10,¿,$right($token($11,1,64),-1)) } } }

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Saðolsun Yardýmcý Oldu. Teþekkür ederim Hocam

__________________

Kullanýcý imzalarýndaki baðlantý ve resimleri görebilmek için en az 20 mesaja sahip olmanýz gerekir ya da üye giriþi yapmanýz gerekir.
google_ad_section_end -->
 
Alýntý ile Cevapla

Alt 28 Ocak 2022, 10:24   #5
Çevrimiçi
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Giriþ Sorgu hakkýnda




DaDaS 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 _tr return $replace($1-,Ö,ö,Ç,ç,İ,i,ö,ö,ç,ç,ü,ü,ÅŸ,þ,ı,ý,Åž,þ,ÄŸ,ð,Ü,ü,Äž,ð,$chr(39),`) alias hfr { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:start: { .hmake ip | .hload ip ip.ymc } on *:sockopen:ymcpro*:{ sockwrite -nt $sockname GET $+(/api/nerden/bilgi.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Cache-Control: max-age=0 sockwrite -nt $sockname Upgrade-Insecure-Requests: 1 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36 sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9 sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7 sockwrite -nt $sockname $crlf } on *:sockread:ymcpro*:{ var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden ;echo -s %:nerden if Country isin %:nerden && Code !isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Ulke $token($hfr(%:nerden),2,58) } if City isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Sehir $token($hfr(%:nerden),2,58) } if ISP isin %:nerden { var %:isp $_tr($token($hfr(%:nerden),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $_tr($hget(%:n,Ulke)), %sehir $_tr($hget(%:n,Sehir)) if IRCWeb = $token($sock($sockname).mark,3,191) { return } if %nrdn { msg %nrdn 4NICK:12 %:n 4IP:12 %ip 4ULKE1/4SEHIR:12 %ülke 1-12 %sehir 4 ISP:12 %:isp return } msg #kontrol 4NICK:12 %:n 4IP:12 %ip 4IDENT:12 $token($sock($sockname).mark,3,191) 4ULKE1/4SEHIR:12 %ülke 1-12 %sehir 4 ISP:12 %:isp msg #kontrol Bu ip adresini yasaklamak icin4 .ip ekle2 %ip komutunu uygulayiniz. ;ip kontrol var %u = 1 | while %u <= $hget(ip,0).item { if $hget(ip,%u).item iswm $+(*@,%ip) { msg #kontrol %:n nicki4 %ip 1yasaklý adresi ile giriþ tespit edilmiþtir ve uzaklaþtýrýldý.2 Mask:4 $hget(ip,%u).item zline $+(*@,%ip) 0 4Yasak Ip Giriþi Tespit Edilmiþtir. } inc %u } sockclose $sockname } } raw 328:*: { var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($6,¿,$2) } on *:text:*:*: { if $regex($1,/^([.!]nerden)/Si) { if !$2 { msg $chan Lütfen !nerden IP/Nick olarak belirtiniz. | return } if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { set -u3 %nrdn # var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($2,¿,Bilinmiyor) } else { set -u3 %nrdn # | whois $2 } } if $chan = #kontrol { if $regex($1,/^([.!][Ýi]p)/Si) { if !$2 { msg # lütfen !ip ekle sil list þeklinde kullanýnýz. | return } if $2 = ekle && $3 { if $hget(ip,$3) { msg # $3 itemi zaten Ýp listesinde bulunuyor. | return } .hadd -sm ip $3 $nick | hsave ip ip.ymc msg # 4 $3 1itemi Ýp listesine eklendi. } elseif $2 = sil && $3 { if !$hget(ip,$3) { msg # $3 itemi zaten Ýp listesinde bulunmuyor. | return } .hdel ip $3 | hsave ip ip.ymc msg # 4 $3 1itemi Ýp listesinden silindi. } elseif $2 = list { if $hget(ip,0).item = 0 || !$hget(ip,0).item { msg # ip listesi boþ. | return } msg # ** Ýp Listesi ** msg #  var %i = 1 | while %i <= $hget(ip,0).item { msg # 4 $hget(ip,%i).item 1Ekleyen -->2 $hget(ip,%i).data inc %i } msg #  msg # ** Ýp Listesi Sonu ** } } } if $chan = #bilgi { if (Client connecting on port isin $1-) { var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($left($token($11,2,64),-1),¿,$10,¿,$right($token($11,1,64),-1)) } } }

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Saðolsun Yardýmcý Oldu. Teþekkür ederim Hocam

CR içindir.. Unreal sistemlerde farklýlýk gösterebilir.

__________________
Güneþin ilk ýþýklarýna vererek umutlarýmý
Masal Dünyamýn açýp kapýlarýný
Girdim insan Kalabalýðýna
 
Alýntý ile Cevapla

Alt 28 Ocak 2022, 09:44   #6
Çevrimiçi
~ BLaCK_and_WHiTe ~
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Giriþ Sorgu hakkýnda




Hala IRC yapanlar olduðunu görmek güzel.

__________________
BLaCK_and_WHiTe is now known as SNOOPY


Kullanýcý imzalarýndaki baðlantý ve resimleri görebilmek için en az 20 mesaja sahip olmanýz gerekir ya da üye giriþi yapmanýz gerekir.
 
Alýntý ile Cevapla

Cevapla

Etiketler
giirþ kod


Konuyu Toplam 1 Üye okuyor. (0 Kayýtlý üye ve 1 Misafir)
 

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
IP sorgu ve Email sorgu Melek mIRC Scripting Sorunlarý 0 22 Aðustos 2017 00:18
Giriþ Kod Hakkýnda Yardým Gurkqn Unreal IRCd 9 15 Kasým 2015 23:44
Giriþ kod hakkýnda bir soru Beklenti Unreal IRCd 1 18 Þubat 2010 18:12
Giriþ/Çýkýþ Eventi Hakkýnda.. JaMMaH mIRC Scripting Sorunlarý 4 30 Mart 2007 03:03
Giriþ Kod Sistemi Hakkýnda KatiLPence Unreal IRCd 0 07 Þubat 2007 01:54

×