Giris Cıkıs Gosterme

[Sadullah]

[KRSAG=Giris Cıkıs Gosterme]https://www.mircalem.com/alem.png[/KRSAG]

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)
  set %identt $3
  set %hostu $4
  set %fllnamesi $9-
  set %baglandigi $5
}

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } %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)

    ;############### MUAF NICK GIRISI #################
    if $read(bopmnick.txt,w,%:n) { msg #takip 0,2 (MUAF NICK) 3 [GIRIS] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4] Saat : $time 5- 3Tarih : $date  | return }

    ;############### MUAF IDENT GIRISI #################
    if $read(bopmident.txt,w,%identt) { msg #takip 0,2 (MUAF IDENT) 3 [GIRIS] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4] Saat : $time 5- 3Tarih : $date  | return }

    ;############### MUAF IP GIRISI #################
    if $read(bopmip.txt,w,%hostu) { msg #takip 0,2 (MUAF IP) 3 [GIRIS] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4] Saat : $time 5- 3Tarih : $date  | return }

    ;############### YASAK ULKE GIRISI #################
    if (%ulkekoruma == AKTIF) && $read(yasakulke.txt,w,%ülke) { msg #takip 0,4 AKT1F 4 [YASAK ULKE GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }
    if (%ulkekoruma == DEAKTIF) && $read(yasakulke.txt,w,%ülke) { msg #takip 0,2 DEAKTIF 4 [YASAK ULKE GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }

    ;############### USERS PROXY GIRISI #################
    if (%proxyuser == AKTIF) && $level(%hostu) == proxy { msg #takip 0,4 AKT1F 4 [USERS PROXY GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }
    if (%proxyuser == DEAKTIF) && $level(%hostu) == proxy { msg #takip 0,2 DEAKTIF 4 [USERS PROXY GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }

    ;############### PROXY TXT GIRISI #################
    if (%proxytxt == AKTIF) && $read(proxy.txt,w,%hostu) { msg #takip 0,4 AKT1F 4 [TXT PROXY GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }
    if (%proxytxt == DEAKTIF) && $read(proxy.txt,w,%hostu) { msg #takip 0,2 DEAKTIF 4 [TXT PROXY GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }

    ;############### BOTNET NICK GIRISI #################
    if (%botnetnick == AKTIF) && $read(botnet.txt,w,%:n) { msg #takip 0,4 AKT1F 4 [BOTNET NICK GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }
    if (%botnetnick == DEAKTIF) && $read(botnet.txt,w,%:n) { msg #takip 0,2 DEAKTIF 4 [BOTNET NICK GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }

    ;############### BOTNET IDENT GIRISI #################
    if (%botnetident == AKTIF) && $read(botnet.txt,w,%identt) { msg #takip 0,4 AKT1F 4 [BOTNET IDENT GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }
    if (%botnetident == DEAKTIF) && $read(botnet.txt,w,%identt) { msg #takip 0,2 DEAKTIF 4 [BOTNET IDENT GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }

    ;############### BOTNET FULLNAME GIRISI #################
    if (%botnetfullname == AKTIF) && $read(botnet.txt,w,%fllnamesi) { msg #takip 0,4 AKT1F 4 [BOTNET FULLNAME GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }
    if (%botnetfullname == DEAKTIF) && $read(botnet.txt,w,%fllnamesi) { msg #takip 0,2 DEAKTIF 4 [BOTNET FULLNAME GIRISI] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4]  | return }

    ;############### NORMAL GIRISI #################
    msg #takip 3 [GIRIS] 1 %:n 4[!]1 %identt 4[@]1 %hostu  4[F]2 %fllnamesi 0,1 /!\  4[1 $+ %ülke $+ 4/1 $+ %sehir $+ 4] Saat : $time 5- 3Tarih : $date
    .hfree -sw %:n
    sockclose $sockname
  }
}

evet canlar txt dosyalarınıda vereyim.

 

[Erroneous]

Ellerine sağlık

 

[BaRoN]

@Sadullah, bu kodları aliasesemi ekliyoruz yoksa baska bır bolumemı acaba ?

 

[Sadullah]

@BaRoN remote bolumune ekleyecen txt dosyalarını mirc klasorune atacan

 

[BaRoN]

@BaRoN remote bolumune ekleyecen txt dosyalarını mirc klasorune atacan

eyvallah tamamdır

 

[refLex]

Eline Sağlık Kanka..

 

[Sadullah]

@refLex saol reis

 

[Erroneous]

)))

 

[Erroneous]