07 Eylül 2021, 17:24 | #1 |
mIRC Girişte Şehir/Ülke/İSP Remotesi
Merhaba arkadaşlar,
Kendi mIRC programınız üzerinden Giriş/Şehir/İSP Gösterme Kodu. Kodon *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \((.+)@(.+)\)/Si) { who +I $regml(2) } raw 352:*:var %_rand $+($6,$r(1000,99999)) | sockopen $+(giris_bildiri,%_rand) igs.gevezeyiz.net 80 | sockmark $+(giris_bildiri,%_rand) $+($4,¿,$6) on *:sockopen:giris_bildiri*:{ if ($sockerr) { sockclose $sockname } else { sockwrite -nt $sockname GET $+(/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:giris_bildiri*:{ var %tr | sockread %tr | tokenize 32 %tr if $regex($1-,/<span>Country:</span> <span>(.+)</span>/i) { .hadd -msu7 Ulke $sockname $regml(1) } elseif $regex($1-,/<span>City:</span> <span>(.+)</span>/i) { .hadd -msu7 Sehir $sockname $regml(1) } elseif $regex($1-,/<span>ISP:</span> <span>(.+)</span>/i) { .hadd -msu7 ISP $sockname $regml(1) } elseif $regex($1-,/<span>Mobile:</span> <span>(.+)</span>/i) { .hadd -msu7 Mobile $sockname $iif($regml(1) == true,Evet,Hayır) } elseif $regex($1-,/<span>Proxy:</span> <span>(.+)</span>/i) { $iif(!$window(@Giris),window -e @Giris) .echo @Giris 4Nick: $token($sock($sockname).mark,2,191) 4IP: $token($sock($sockname).mark,1,191) 4Ulke: $iif($hget(Ulke,$sockname),$v1,Belirsiz) 4Sehir: $iif($hget(Sehir,$sockname),$v1,Belirsiz) 4ISP: $iif($hget(ISP,$sockname),$v1,Belirsiz) 4Mobile IP: $hget(Mobile,$sockname) 4VPN: $iif($regml(1) == true,Evet,Hayır) sockclose $sockname } } Bu Altta ki Kod'da ise, #Şehir Kanalına yansıtabiliyorsunuz. Kod#giriste on on *:snotice:*Client connecting on port*:who +I $9 raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 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: www.ipaddresslocation.org 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) msg #Şehir Nick:2 %:n - IP:2 %ip - Ulke:2 %ülke - Sehir:2 %sehir - ISP:2 %:isp .hfree -sw %:n sockclose $sockname } } #giriste end menu menubar { +> IP GIRIS ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on } ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off } ..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:. Alıntı; Toprak
________________
Sabrettiğimi Sanarken, Vazgeçtiğimi Öğrendim..
|
|
|
07 Eylül 2021, 17:49 | #2 |
Emeğine sağlık.
________________
❤ B ❤ |
|
|
Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi) | |
|
|