IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 4 Sayfadan 1 2 34
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Girişte Ülke/Şehir/İSP Gösterme (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/682252-giriste-ulke-sehir-isp-gosterme.html)

diE 30 Haziran 2020 19:10
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Kod:
on *:text:*:#OperLog:{
  if $regex($1,/^[!.][uüÜ]lke/Si) {
    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }
      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }
      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }
      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }
      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
      else {
        msg # Yasak Ülke Listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(Ulke,0).data {
          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)
          inc %:t
        }
        msg # -
        msg # Yasak Ülke Listesi Sonu
      }
    }
  }
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$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 Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{
  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
  }
}

diEfoRyoU 02 Temmuz 2020 00:07
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Kod:
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

Koda verdiğin emeğe bütün saygımla soruyorum, bağlantı snoticesinde IP adresi görünmüyor mu ki bağlanan kullanıcıya fazladan who uygulayıp raw dan ip alıyorsun. Gözden kaçırdığım bişey mi var acaba sevgili @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

DeLiKanLl 03 Temmuz 2020 13:28
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042330395)
Kod:
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

Koda verdiğin emeğe bütün saygımla soruyorum, bağlantı snoticesinde IP adresi görünmüyor mu ki bağlanan kullanıcıya fazladan who uygulayıp raw dan ip alıyorsun. Gözden kaçırdığım bişey mi var acaba sevgili @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
DiEfoRyoU Merhaba

Bende aşağıdaki gibi bir kod var. Nick takip yapıyor. Host dan takip yapıyor. Gerçek İp den takip yapıtırabilirmiyiz.? Gerçek İp ler status de görülüyor. Bu konuda yardımcı olabilirmisin ?

[13:12] 5-Bilgi- 4 sess 5Daha Önce 5: Dinleyici Metn2 deneme Try Cenqiz HdL Asistan abcd Dinleyicii Misafir Testt 5Nicklerinden Giriş Yaptı. 4Host : *!*@55.60.E243A8CE.IP

Kod:
#nickTakip on
on !*:join:#:if ($hmatch(#,$+($site,*),0) >= 2) && !$regex($token($address,2,64),/(helper|oper|admin|global|ircop|dj)/i) { kntrl # $site $nick } | hadd -m # $+($site,½,$nick) 1
alias kntrl var %1 1,%2 | while %1 <= $hmatch($1,$+($2,*),0) { var %& = $gettok($hmatch($1,$+($2,*),%1),2,189) | if (%& != $3) { %2 = $addtok(%2,%&,32) } | inc %1 } | $iif($gettok(%2,2,32),echo $colour(part) -t $1 5-Bilgi- 4 $3 5Daha Önce 5: %2 5Nicklerinden Giriş Yaptı. 4Host : $address($nick,2))
#nickTakip end
menu status {
  Takip
  .On:/enable #nickTakip
  .Off:/disable #nickTakip
}

Emrehan 03 Temmuz 2020 13:49
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042330395)
Kod:
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

Koda verdiğin emeğe bütün saygımla soruyorum, bağlantı snoticesinde IP adresi görünmüyor mu ki bağlanan kullanıcıya fazladan who uygulayıp raw dan ip alıyorsun. Gözden kaçırdığım bişey mi var acaba sevgili @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bağlantı yapısıyla pek oynanmamış UnrealIRCd'lerde rDNS sahibi IP'ler (harfli IP'ler) dikkate alınarak direkt WHO sorgusuna bağlanmış. Çünkü 352 raw'ında bu IP'ler de 11.22.33.44 gibi görünüyor. Harfli IP'leri çözümlemeden lokasyona yollarsanız cevap boş veya hatalı döner büyük ihtimalle. Connecting kısmında IP 11.22.33.44 ise direkt lokasyona bak, değilse WHO'ya git dememişler, kısadan hepsini WHO'ya bağlayıp sonuca gidilmiş.


Alıntı:
DeLiKanLl Nickli Üyeden Alıntı (Mesaj 1042330890)
DiEfoRyoU Merhaba

Bende aşağıdaki gibi bir kod var. Nick takip yapıyor. Host dan takip yapıyor. Gerçek İp den takip yapıtırabilirmiyiz.? Gerçek İp ler status de görülüyor. Bu konuda yardımcı olabilirmisin ?

[13:12] 5-Bilgi- 4 sess 5Daha Önce 5: Dinleyici Metn2 deneme Try Cenqiz HdL Asistan abcd Dinleyicii Misafir Testt 5Nicklerinden Giriş Yaptı. 4Host : *!*@55.60.E243A8CE.IP

Kod:
#nickTakip on
on !*:join:#:if ($hmatch(#,$+($site,*),0) >= 2) && !$regex($token($address,2,64),/(helper|oper|admin|global|ircop|dj)/i) { kntrl # $site $nick } | hadd -m # $+($site,½,$nick) 1
alias kntrl var %1 1,%2 | while %1 <= $hmatch($1,$+($2,*),0) { var %& = $gettok($hmatch($1,$+($2,*),%1),2,189) | if (%& != $3) { %2 = $addtok(%2,%&,32) } | inc %1 } | $iif($gettok(%2,2,32),echo $colour(part) -t $1 5-Bilgi- 4 $3 5Daha Önce 5: %2 5Nicklerinden Giriş Yaptı. 4Host : $address($nick,2))
#nickTakip end
menu status {
  Takip
  .On:/enable #nickTakip
  .Off:/disable #nickTakip
}
Forumda çok fazla olmasını istediğiniz gibi Nick Takip, IP Takip parça kodları mevcut. Arama yaparak işinize yarayacak kodu bulabilirsiniz.

İyi forumlar.

Enes 25 Temmuz 2020 00:45
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Peki girişler snotice değilde bir kanala aktarılıyorsa onun takibi nasıl olabilir @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ZaLiM1979 13 Eylül 2020 23:09
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041617269)
Merhaba,
Sunucuya giriş yapan kullanıcının ülke/şehir/isp adresini @Giriş penceresine yansıtır.
En az oper yetkiniz olması gerek ve sunucuya giriş/çıkış(snotice)'leri görmeniz gerekmektedir..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:pro*:{
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) {
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    $iif(!$window(@Giriş),window -e @Giriş)
    .echo @Giriş Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
    .hfree -sw %:n
    sockclose $sockname
  }
}
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Selam IF sakinler :)


elimdeki whois rawlarina Toprak'in yukarda yazdigini eklemek istedim ama
basaramadim.. yardimci olabilecek arkadaslar varmi acaba? istegim sadece

whois cektigim kisinin ülke, sehir ve isp whois'da görmek.
elimdeki whois raw-kodu bu:


Kod:
raw 311:*:{ {
    /echo -a 0,4 Whois Info  4Beginn der Whois-Liste von $2
    /echo -a 0,4 ©  3Nickname4:12 $2 
    /echo -a 0,4 ©  3Hostmask4:12 4(12 $+ $3 $+ 4 $+ @ $+ 12 $+ $4 $+ 4)  
    /echo -a 0,4 ©  3Realname4:12 $6-
    /echo -a 0,4 ©  3Country4:12 $country($4) 
    var %clone = $kanalclone($2)
    if (%clone == $null) /echo -a 0,4 ©  3Clones vom $2 $+ 4: 12Keine Clones gefunden!
    else /echo -a 0,4 ©  3Clones vom $2 $+ 4:12 $numtok(%clone,44) $+  4Clones -12 %clone
    if ($2 == $me) { /echo -a 0,4 ©  3Meine Modes4:12 $usermode }
    Halt
  }
  haltdef
}
alias kanalclone {
  if ($ial($address($1,2),0) == 1) return
  var %nickler = 0 | var %clone = $1
  while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
  return %clone
}
Alias country {
  if (&? iswm $1) return country
  if ($readini($scriptdircountry.ini,country,$gettok($1,-1,46))) return $ifmatch
  if ($network == ptnet) && (127.* iswm $1) return PTnet fakemask
  if ($remove($1,.) isnum) return Numeric IP
  return Unknown
} 
raw 330:*: {
  haltdef
  /echo -a 0,4 ©  3Authname4:12 $2  $4 $5 $6 $7 $3
}
raw 307:*: {
  haltdef
  /echo -a 0,4 ©  3Registriert4:12 Nickname $2 ist registriert. 
}
raw 379:*: {
  haltdef
  /echo -a 0,4 ©  3User Modes4:12 $6- 
}
raw 312:*: {
  haltdef
  /echo -a 0,4 ©  3Network4:12 $network 
  /echo -a 0,4 ©  3Server4:12 $3 
  /echo -a 0,4 ©  3Server Description4:12 $4- 
}
raw 301:*: {
  haltdef
  /echo -a 0,4 ©  3Away4:12 $2 ist AwAy:4 $3- 
}
raw 335:*: {
  haltdef
  /echo -a 0,4 ©  3Bot4:12 $2 ist ein Bot auf $network
}
raw 317:*: {
  haltdef
  %idle = $replace($duration($3),  secs, 12 Sek.4,  sec, 12 Sek.4,  mins, 12 Min4,  min, 12 Min.4,  hrs, 12 Std.4,  hr, 12 Std.4,  days, 12 Tage4,  day, 12 Tag4,  wks, 12 Wochen4,  wk, 12 Woche)
  %online = $replace($duration($calc($ctime - $4)),  secs, 12 Sek.4,  sec, 12 Sek.4,  mins, 12 Min4,  min, 12 Min.4,  hrs, 12 Std.4,  hr, 12 Std.4,  days, 12 Tage4,  day, 12 Tag4,  wks, 12 Wochen4,  wk, 12 Woche)
  %baglanis = $replace($asctime($4,04dddd $+ 04dd12/04mm12/04yyyy 12UM 04HH12:04nn12:04ss ),monday,12Montag 3,tuesday,12Dienstag 3,wednesday,12Mittwoch 3,thursday,12Donnerstag 3,friday,12Freitag 3,saturday,12Samstag 3,sunday,12Sonntag 3,january,12Januar,February,12Februar,March,12März,april,12April,May,12Mai,June,12Juni,July,12Juli,August,12August,September,12September,October ,12Oktober,November,12November,December,12Dezember) 
  /echo -a 0,4 ©  3Eingeloggt4:12 $2 ist Eingeloggt am4 -4 %baglanis 12Uhr
  /echo -a 0,4 ©  3Online4:12 $2 ist Online seit4 %online
  /echo -a 0,4 ©  3Idle4:12 $2 idlet seit4 %idle
  .timer 1 5 unset %idle*
  .timer 1 5 unset %online*
  .timer 1 5 unset %baglanis*
}
raw 401:*: {
  haltdef
  /echo -a 0,4 ©  3Online4:12 $2 ist nicht online!
}
raw 378:*:{
  haltdef
  /echo -a 0,4 ©  3Local Host4:12 $2 $3 $4 $5 $6
  nerden $7
}
alias nerden {
  if ($longip($1)) {
    var %e echo $color(whois) $iif($active == Status Window,-s,$active), %h 1, %r
    var %a ajax. $+ $upper($regsubex($str(.,10),/./g,$mid($md5($time),$r(1,32),1)))
    .comopen %a msxml2.xmlhttp
    %e 0,4 ©  3IP-Adresse4:12 $1
    noop $com(%a,send,$com(%a,open,1,bstr,GET,bstr,$+(http://ipinfo.io/,$1,/json),bool,true)) $com(%a,ResponseText,2)
    %r = $remove($replace($remove($com(%a).result,$({,0),$(},0),"),$+($chr(44),$lf),=),$lf)
    if ($count(%r,=)) {
      while ($gettok(%r,%h,61)) {
        %e $str($chr(160),15) $(|,0) $regsubex($v1,(.+):,$+($upper(\1),$str($chr(160),$calc(11-$len(\1))),:))
        inc %h
      }
    }
    .comclose %a
  }
  else whois $1
}

raw 318:*: {
  haltdef
  /echo -a 0,4 Whois Info  4Ende der Whois-Liste von $2
}
raw 310:*: {
  haltdef
  /echo -a 0,4 ©  3HelpOp4:12 $2-
}
raw 313:*: {
  haltdef
  /echo -a 0,4 ©  3InFo4:12 $2-
}
raw 320:*: {
  haltdef
  /echo -a 0,4 ©  3Oper Info4:12 $2- $+ 
}
raw 431:*: {
  haltdef
  /echo -a 0,4 ©  3Keinen Nicknamen Angegeben.
}
raw 671:*: {
  haltdef
  /echo -a 0,4 ©  3SSL-Verbindung4:12 Client Is Using A Secure Connection
}
raw 406:*: {
  haltdef
  /echo -a 0,4 ©  3Nickname Unbekannt.
}
raw 319:*:{
  var %count 1, %temp, %crap, %result
  while ($comchan($2,%count)) {
    %temp = %temp $ifmatch
    inc %count
  }
  %count = 1
  while ($gettok($3-,%count,32)) {
    %crap = $fixchan($ifmatch)
    if ($istok(%temp,%crap,32)) { %result = %result 4 $+($chr(2),$gettok($3-,%count,32),$chr(2)) 12 }
    else { %result = %result $gettok($3-,%count,32) }
    inc %count
  }
  /echo -a 0,4 ©  3Channels4:3 -5 $numtok($3-,32) 3-12 %result 
  haltdef
}
raw 276:*:{
  haltdef
  echo -a 0,4 ©  3SSL-Client4:12 $2 $3 $4 $5 $6 $7
}
raw 327:*: {
  echo -a $timestamp 14|---› 14Client Info:1 Java User
  haltdef
}
alias fixchan return $mid($1,$pos($1,$chr(35)) -)



raw 1:*: { /echo  12Hoşgeldin4 $8 0,7 | halt }
raw 2:*: { /echo  12Server versionu:4 $8 | halt }
raw 3:*: { /echo  12Server Kuruluş Tarihi:4  $6 $7 $8 $6 $11 | halt }
raw 4:*: { /echo  12Sunucu Adı:4  $2 12Çalışan Version:4 $3  | halt }
raw 5:*: { /echo  12Server bilgi:4 $6 $7 $8 $6 $10 | halt }

raw 250:*: { /echo  12Toplam bağlantı4 $4 12kişi. | halt }
raw 251:*: { /echo  12Toplam kullanıcı sayısı:4 $4 | halt }
raw 251:*: { /echo  12Görünmeyen kullanıcı sayısı:4 $7 | halt }
raw 251:*: { /echo  12Toplam Server sayısı:4 $10 | halt  }
raw 252:*: { /echo  12IRC'de olan IRCop sayısı:4 $2 | halt }
raw 253:*: { /echo  12Bilinmeyen bağlantı sayısı:4 $2 | halt }
raw 254:*: { /echo  12Aktif kanal sayısı:4 $2 | halt }
raw 255:*: { /echo  12Alıcılar4 $4 12tane - Yerel kullanıcılar4 $7 12tane. | halt }

raw 301:*: { /echo -a 14* 6 $2 »3 Su Anda Away: 6 $3- |  halt }
raw 306:*: { /echo -a 4***12 Şu andan ihtibaren awaysiniz.  | halt }
raw 307:*: { echo -a %whoischange 14* 6 Rumuz Bilgi:3 $2 Sifreli ve Tanitilmis Bir Nicktir  | halt }
raw 310:*: { /echo -a %whoischange 14* 6 $2 3Bir Helper(IRC YardImcI) dır. | halt }
raw 311:*: {  /echo -a %whoischange 4© © © ©14 [6 Whois $2 14]4 © © © ©  | /echo -a %whoischange 14* 6 Adres: 3 $3 $+ @ $+ $4  | /echo -a %whoischange 14* 6 İsim: 3 $6- |  if ( %mynick == $2 ) { set %myaddress *!*@ $+ $4 | halt  } | halt }
raw 312:*: { /echo -a %whoischange 14* 6 Server: 3 $3 $4 $5-  | halt }
raw 313:*: { /echo -a %whoischange 14* 6 IRCop: 3 $2 $3- | halt }
raw 317:*: { /set -a %onlineT $calc($ctime - $4)  | /echo -a %whoischange 14* 6 Konuşmadığı Süre: 3 $replace($duration($3),secs,Saniye,mins,Dakika,hrs,Saat,days,Gün,wk,Hafta)  | /echo -a %whoischange 14* 6 Sunucuya Giriş Saati: 3 $replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık)  | halt }
raw 318:*: {  /echo -a %whoischange 4© © © ©14 [6 Whois Sonu 14]4 © © © © | halt }
raw 319:*: { echo -a %whoischange 14* 6 Kanallar: 3 $3- | halt }
raw 328:*:{ /echo  4***12 $2 URL: $3  | halt }
raw 352:*:{ /echo    4***12 $2-  | halt }
REM raw 375:*:{ /echo  4«[12 Server Motd Başlangıcı 4]» | halt }
REM raw 376:*:{ /echo -  | /echo %c 4«[12 Server Motd Sonu 4]»  | /echo -  | halt }
raw 381:*:{ /echo -a 4***12 IRCop Oldun. Tebrikler | halt }

raw 401:*:{ /echo -a 4***12 $2 Kişi bulunamadı..  | halt }
raw 404:*:{ /echo -a 4***12 $2 Kanalına Gönderilmedi.  | halt }
raw 405:*:{ /echo -a 4***12 Daha fazla kanala giremezsiniz.  | halt }
raw 412:*:{ /echo -a 4***12 $2 yazdığınız gitmedi.  | halt }
raw 421:*:{ /echo -a 4***12 $2 Yalnış komut. | Halt }
raw 430:*:{ /echo  -a 4***12 $2 IRCop komutudur. Kullanamazsınız. | halt }
raw 433:*:{ .nick TeuFeLs-KerL $+ $rand(1,9) $+ $rand(1,9) | halt }
raw 441:*:{ /echo -a 4***12 $2 $3 Kanalında bulunamadı. | Halt }
raw 471:*: { echo  -a 4***12 $2 Kanalında limit var ve şu anda kanal limiti dolu. Daha sonra tekrar deneyiniz...  | halt }
raw 472:*:{ /echo  -a 4***12 $2 Yalnış mode ayarı.  | halt }
raw 473:*: { echo  -a 4***12 $2 Kanalına şu anda giremezsiniz. Kanal davetsel konumda (+i). Daha sonra tekrar deneyiniz...  | halt }
raw 474:*: { echo  -a 4***12 $2 Kanalına giremezsiniz. Banlısınız...  | halt }
raw 475:*: { echo  -a 4***12 $2 Kanalı şifreli konumda. (+k) Şifreyi bilmeden giremezsiniz.  | halt }
raw 437:*: { echo  -a 4***12 $2 Kanalında iken nick değiştiremezsiniz. Kanal nick değiştirmeye kapalı durumda. (+N)  | halt }
raw 478:*:{ /echo -a 4***12 $2 Ban List dolu.. ( $3 ) | Halt }
raw 481:*:{ /echo  -a 4***12 IRCop değilsiniz. Bu komutu kullanamazsınız. | halt }
raw 482:*:{ /echo  -a 4***12 $2 Kanalında op değilsin.  | halt }
raw 493:* { /echo -a %logo 0,12 0,4 $2 0,12 Nickinin Özeli Kapalı Olduğu Icin Mesajınız Kendisine Ulaşamadı.. | halt }
raw 461:* { /echo -a %logo 0,12 Yeterli Parametre Girmediniz.!! | halt }
raw 432:* { /echo -a %logo 0,4 $2 0,12 Kullanmaya Calıştığınız Nick Yasaklı Bir Nick.!! Lütfen Başka Bir Nick Deneyin.. | halt }

buda görüntüsü..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Resim Linki:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


simdiden yardimlariniz icin tesekkürler.

ZaLiM1979 14 Eylül 2020 02:25
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
buda görüntüsü .)

angry1 01 Nisan 2021 22:30
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Merhaba arkadaşlar: Sanırım bu verileri aldığımız ipaddresslocation.org adresinde değişiklik oldu. kodlar çalışmıyor yardımcı olabilirmisiniz? Bu makalede paylaştığınız kodları kullanıyorum güncelleme yapabilirseniz çok memnun olurum. hayırlı İF ler.

diE 03 Nisan 2021 15:43
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
ssl geçtikleri için birazda tasarım değiştiğinden çalışmaması normal

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] el atar müsait zamanda sayın coderlerimiz : ) şimdiden elinize sağlık

Daemon 05 Nisan 2021 16:33
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 olan yeri


sockopen -e $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 443 degistirip denermisin.

diE 05 Nisan 2021 18:28
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Maalesef baska onerınız varmıdır :)

Feragat 06 Nisan 2021 09:36
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
diE Nickli Üyeden Alıntı (Mesaj 1042469299)
ssl geçtikleri için birazda tasarım değiştiğinden çalışmaması normal

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] el atar müsait zamanda sayın coderlerimiz : ) şimdiden elinize sağlık
Uzun süredir aynı çizgide devam eden site evrim geçirmiş. Bunu güncellemek gerek. (En kısa zamanda) ;idea

Alper 06 Nisan 2021 11:00
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1042470787)
Uzun süredir aynı çizgide devam eden site evrim geçirmiş. Bunu güncellemek gerek. (En kısa zamanda) ;idea
Katılıyorum :)


Kod:
on *:sockopen:pro*:{
  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0
  sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
  var %:pro
  sockread %:pro
  if $regex(u,%:pro,/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }
  if $regex(c,%:pro,/Town\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }
  if $regex(i,%:pro,/ISP Provider\x3A\x20(.+)<hr>/Si) {
    var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    echo -st 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp
  }
}
on *:sockclose:pro*:{ .hfree $token($sock($sockname).mark,2,191) }


Not: mIRC'te SSL aktif olması gerekmekte.

Sadullah 06 Nisan 2021 11:50
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tablo yok diyor :)

Kod:
* /hfree: 'Alem' Tablo yok
-

Alper 06 Nisan 2021 12:19
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
Sadullah Nickli Üyeden Alıntı (Mesaj 1042470800)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tablo yok diyor :)

Kod:
* /hfree: 'Alem' Tablo yok
 -

o sorun değil onu sockclose kısmında if $hget($token($sock($sockname).mark,2,191)) koşulu ile kontrol ederiz. Normalde nick e tablo oluşturuyor verileri onun içine ekliyor.

Kod:
on *:sockclose:pro*:{ if $hget($token($sock($sockname).mark,2,191)) { hfree $token($sock($sockname).mark,2,191) } }
Veriyi almadı o zaman?


Birde sockopen kısmını değiştirdin mi?


-e ekleyip sonundaki portu 443 yaptın mı?




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sadullah 06 Nisan 2021 12:30
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
Alper Nickli Üyeden Alıntı (Mesaj 1042470809)
o sorun değil onu sockclose kısmında if $hget($token($sock($sockname).mark,2,191)) koşulu ile kontrol ederiz. Normalde nick e tablo oluşturuyor verileri onun içine ekliyor.

Kod:
on *:sockclose:pro*:{ if $hget($token($sock($sockname).mark,2,191)) { hfree $token($sock($sockname).mark,2,191) } }
Veriyi almadı o zaman?


Birde sockopen kısmını değiştirdin mi?


-e ekleyip sonundaki portu 443 yaptın mı?




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
yaptım aynı uyarıyı tekrar alıyorum :)

Alper 06 Nisan 2021 12:34
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
Sadullah Nickli Üyeden Alıntı (Mesaj 1042470818)
yaptım aynı uyarıyı tekrar alıyorum :)
Aynı uyarıyı alman normal sebebini belirttim zaten :)

diE 06 Nisan 2021 18:08
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1042470787)
Uzun süredir aynı çizgide devam eden site evrim geçirmiş. Bunu güncellemek gerek. (En kısa zamanda) ;idea
Haklısın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güncellenmesi lazım Gotham City'e yaz geldiği zaman : )

Aytac 06 Nisan 2021 23:15
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Kod:
on *:text:*:#OperLog:{
  if $regex($1,/^[!.][uüÜ]lke/Si) {
    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }
      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }
      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }
      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }
      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
      else {
        msg # Yasak Ülke Listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(Ulke,0).data {
          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)
          inc %:t
        }
        msg # -
        msg # Yasak Ülke Listesi Sonu
      }
    }
  }
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen -e $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0
  sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{
  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
  if $regex($1-,/IP Country: (.+)<img src=/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/Town: (.+)/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider: (.+)<hr>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
  }
}

diE 07 Nisan 2021 00:02
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Çalıştıran varmı ? lakin ssl kurmama rağmen mirce calıştıramadım
Socket açıyor 443 ile sorun görünmüyor fakat veri almıyor sanırsam

Zadrich 07 Nisan 2021 00:40
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Bir türlü çalışmadı SSL yi aktif ettiğim halde ((:

Aytac 07 Nisan 2021 01:05
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
SSL ayarlarınız bu şekilde olması lazım. (mIRC 6.35)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

diE 07 Nisan 2021 01:12
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
Aytac Nickli Üyeden Alıntı (Mesaj 1042471155)
SSL ayarlarınız bu şekilde olması lazım. (mIRC 6.35)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bu şekilde oldugu halde calısmıyor zaten @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sürüm 6.35

Aytac 07 Nisan 2021 01:27
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Unrealde giriş yapanların snoticesini kopyalayın alttaki gibi.Sizde farklı olabilir girişler.

[01:24:54] *** Notice -- Client connecting on port 6667: Werdel (webchat@176.33.69.145) [176.33.69.145] [clients]

diE 07 Nisan 2021 01:31
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
[01:30:22] *** Notice -- Client connecting on port 7012: Lisa (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.xxx) [clients]
farklı degıl aynı ama bilmiyorum mirc.exe bile değiştirip denedim olmadı farklı mirc kullandım denedim sonuc aynı

Aytac 07 Nisan 2021 01:47
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
diE Nickli Üyeden Alıntı (Mesaj 1042471161)
[01:30:22] *** Notice -- Client connecting on port 7012: Lisa (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.xxx) [clients]
farklı degıl aynı ama bilmiyorum mirc.exe bile değiştirip denedim olmadı farklı mirc kullandım denedim sonuc aynı


ssl dosyalarını pc de düzgün yerlere attın mı.Birde göster mircindaki ssl ayarlarını.

diE 07 Nisan 2021 01:49
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
yukarıdaki attıgın ayarlarla aynı zaten dosyaları atmayınca buton aktıf olmuyor Geçersiz Sertifikaları Otomatik Kabul Et seçili. Mircteki kilitle de kapalı Decode olan yer

Aytac 07 Nisan 2021 01:57
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
diE Nickli Üyeden Alıntı (Mesaj 1042471164)
yukarıdaki attıgın ayarlarla aynı zaten dosyaları atmayınca buton aktıf olmuyor Geçersiz Sertifikaları Otomatik Kabul Et seçili. Mircteki kilitle de kapalı Decode olan yer
Kod girenlere who çekiyor mu statuse baktın mı?

diE 07 Nisan 2021 02:00
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
whois çekiyor sockette açıyor ulke23908 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (xxx.xxx.xxx.xxx) tcp connecting @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

on *:sockread:ulke*:{

kısmından sonrasında var bı durum ne kanala yansıtma yapıyor ne tepkı verıyor

Aytac 07 Nisan 2021 02:10
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
diE Nickli Üyeden Alıntı (Mesaj 1042471166)
whois çekiyor sockette açıyor ulke23908 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (xxx.xxx.xxx.xxx) tcp connecting @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

on *:sockread:ulke*:{

kısmından sonrasında var bı durum ne kanala yansıtma yapıyor ne tepkı verıyor
Oralarda sorun olsa bende çalışmaz. Kanala yansıtmıyor kod zaten @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] diye yanda açılması lazım. Bu saydığımız sorunlardan başka birşey olamaz.

diE 07 Nisan 2021 02:15
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Bilmiyorum bi sende çalışıyor sanırım başka çalıştıran yok site değişmeden önce normal çalışıyordu sorun yoktu denemediğim yol kalmadı bakalım

SuLh 07 Nisan 2021 03:22
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Konuya farklı bi yerden yaklaşıp veriyi com objectlerle değerlendireyim dedim, kullanmak isteyen olursa diye buraya bırakıyorum.

Kod:
alias konum {
  var %qk $+(hop,$r(1,9999)),%address $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
wscript.shell
  .comclose %qk $com(%qk,run,1,bstr,cmd.exe /k $&
    powershell $+($chr(36),xx=new-object -COM Msxml2.ServerXMLHTTP.6.0;) $+($chr(36),xx.Open,$chr(40),'GET',$chr(44),',%address,',$chr(44),$false,$chr(41),;) $+($chr(36),xx.Send,$chr(40),$chr(41),;) $+($chr(36),xx.responseText) $&
    $+ |clip & exit,uint,0,bool,1)
  var %k 1 | while %k <= $cb(0) { if $cb(%k) {
      if $regex(u,$cb(%k),/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m %:n Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }
      if $regex(c,$cb(%k),/Town\x3A\x20(\S+)\x20/Si) { .hadd -m %:n Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }
      if $regex(i,$cb(%k),/ISP Provider\x3A\x20(.+)<hr>/Si) {
        var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))
        var %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
        echo -st 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp | clipboard
      }
    }
    inc %k
  }
}
/konum IP Nick

Kod:
/konum 176.55.***.*** Deneme
Kod:
[ Giriş ] *** Nick: Deneme - IP: 176.55.***.*** - Ulke: Turkey - Sehir: Istanbul - ISP: Vodafone Telekomunikasyon A.S. - Saat: [03:20:47]

diE 07 Nisan 2021 03:31
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[03:27] [ Giriş ] *** Nick: zz - IP: 88.xx.xxx.xx - Ulke: Belirsiz - Sehir: Belirsiz - ISP: Belirsiz - Saat: [03:27]
[03:28] [ Giriş ] *** Nick: zz - IP: 176.xx.xxx.xx - Ulke: Belirsiz - Sehir: Belirsiz - ISP: Belirsiz - Saat: [03:28]
[03:28] [ Giriş ] *** Nick: zz - IP: 176..xx.xxx.xx - Ulke: Belirsiz - Sehir: Belirsiz - ISP: Belirsiz - Saat: [03:28]
[03:29] [ Giriş ] *** Nick: zz - IP: 176.54.xxx.xx - Ulke: Belirsiz - Sehir: Belirsiz - ISP: Belirsiz - Saat: [03:29]

Çalışıyor ama hepsıne belırsız dıyor :) töbeler olsun mirctemi sorun vardır nedir

SuLh 07 Nisan 2021 04:24
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
ilk postta paylaşılan htmlfree aliasi mevcut değilse, içeriği boş döndürüyordur. o aliasi remotenize ekleyin.

Beatle 07 Nisan 2021 13:08
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Kod:
on *:text:*:#OperLog:{
  if $regex($1,/^[!.][uüÜ]lke/Si) {
    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }
      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }
      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }
      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }
      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
      else {
        msg # Yasak Ülke Listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(Ulke,0).data {
          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)
          inc %:t
        }
        msg # -
        msg # Yasak Ülke Listesi Sonu
      }
    }
  }
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen -e $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0
  sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{
  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
  if $regex($1-,/IP Country: (.+)<img src=/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/Town: (.+)/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider: (.+)<hr>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
  }
}

Bu kodda türkçe karakter hatası oluyor.Birde ülkesi sehri belirsiz diye cıkmıyor tire işareti oluyor.Bunları çözebilirmiyiz.



[ GİRİŞ ] Nick: PoLeN - IP: 95.7.123.199 - Ülke: Turkey - Şehir: Kütahya - ISP: Turk Telekom
[ GİRİŞ ] Nick: Leylaaa - IP: 213.43.12.12 - Ülke: - Şehir: - ISP: Turkcell Iletisim Hizmetleri A.s.

Sadullah 07 Nisan 2021 14:41
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
ssl kurulu oldugu halde veri cekmiyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] knk senin yaptıdın konum calısıyor peki bu konumdan yola cıksak /konum yazmadan kendisi gosterse olmaz mı ?

diE 07 Nisan 2021 16:02
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
SuLh Nickli Üyeden Alıntı (Mesaj 1042471183)
ilk postta paylaşılan htmlfree aliasi mevcut değilse, içeriği boş döndürüyordur. o aliasi remotenize ekleyin.
evet haklısın onu ekleyınce sorunsuz calısıyor sanırım powershell'in oldugu yerlerde calısıyor vds/vps server 2003 gıbı makınalarda calısmıyor emegıne saglık

Zadrich 09 Nisan 2021 02:16
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Belli version ve belli vds türlerinde çalışıyor gerisinde deaktif olarak hiç bir şekilde çalışmıyor.

diE 09 Nisan 2021 14:45
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Kod:
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen -e $+(ulke,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0
  sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{
  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
  if $regex($1-,/IP Country: (.+)<img src=/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/Town: (.+)/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider: (.+)<hr>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
  }
}
bu kod bu şekilde aktif olmuyor bende ssl olduğu halde

Kod:
  elseif $regex($1-,/ISP Provider: (.+)<hr>/i) {
bu kısmı deaktif edince çalışmaya başlıyor fakat ip nick harici ülke şehir ve ısp göstermiyor aynı şekilde bir önceki sayfalarda @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'inde paylaştığı koddada aynı sorun mevcut

Alper 09 Nisan 2021 17:39
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Site bilerek mi öyle yapılmış bilmiyorum ama her zaman aynı şekilde gelmiyor veri mesela bizim yaptığımız şablona uyan şekilde veri geliyorsa sorun yok veriyi zaten gösteriyor ama diğer türü veriyi bulmadığı için doğal olarak veriyi göstermiyor.


Bahsettiğim olay,


Bazen aşağıdaki gibi geliyor veri durum böyle olunca veri alınmıyor.



1a
</span>
<hr>
IP Country:
7
Germany
c
<img src='



Bazen ise aşağıdaki gibi geliyor aşağıdaki gibi gelirse sorun yok veriyi yakalar ve gösterir.



<span style="word-break:break-all">
<hr>
IP Country: Turkey <img src='ip/world.small/tr.png' width='18' height='12' alt='country flag'>
<hr>
Country Code: TUR <img src='ip/world.small/tr.png' width='18' height='12' alt='country flag'>
<hr>


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:16.
Sayfa 2 Toplam 4 Sayfadan 1 2 34
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk