Untitled
unknown
plain_text
14 days ago
1.7 kB
5
Indexable
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } alias nerden { var %:r $rand(10,99999) sockopen $+(yerbul,%:r) www.qbilisim.net 80 sockmark $+(yerbul,%:r) $+($1,¿,$2) } on *:sockopen:yerbul*:{ var %komut sockwrite -nt $sockname %komut GET $+(/seker-nerden/?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.0 %komut Host: $sock($sockname).addr %komut Connection: keep-alive %komut $crlf } on *:sockread:yerbul*: { if ($sockerr) { sockclose $sockname | returnex } var %x, %chan $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191) | sockread -f %x echo -s %x if $regex(%x,id="bir">(.*?)</b>) { hadd -m $sockname hostname $regml(1) } if $regex(%x,id="iki">(.*?)</b>) { hadd -m $sockname ulke $regml(1) } if $regex(%x,id="uc">(.*?)</b>) { hadd -m $sockname ulkecode $regml(1) } if $regex(%x,id="bes">(.*?)</b>) { hadd -m $sockname sehir $regml(1) } if $regex(%x,id="dokuz">(.*?)</b>) { var %regml $regml(1) abot privmsg %chan - abot privmsg %chan 4IP: $iif(%ip,$v1,Belirsiz) abot privmsg %chan 4Hostname: $htmlfree($iif($hget($sockname,hostname),$v1,Belirsiz)) abot privmsg %chan 4Ulke: $htmlfree($iif($hget($sockname,ulke),$v1,Belirsiz)) abot privmsg %chan 4Ulke Code: $htmlfree($iif($hget($sockname,ulkecode),$v1,Belirsiz)) abot privmsg %chan 4Sehir: $iif($hget($sockname,sehir),$tr($v1),Belirsiz) abot privmsg %chan 4ISP: $iif(%regml,$v1,Belirsiz) abot privmsg %chan - .hfree -sw $sockname sockclose $sockname } }
Editor is loading...
Leave a Comment