| 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. |
