CrAnK

Joined:

Jan 03, 2010

Activity Stream

All Threads Projects Code Snippets

CrAnK - Aug 18, 2011

@SReject Hello SReject can u help me with these code ???

		Code 			
on $*:SNOTICE:/client connecting .*?@([a-z\-\d.]+)/i:{
  var %addr = $regml(1)
  if ($regex(%addr,^\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?$/i)) {
    .dns $PAddr(%addr,1)
    hadd -m ProxyCheck $PAddr(%addr,1) Check 1 %addr
  }
  else {
    hadd -m ProxyCheck %addr GetIP
    .dns %addr
  }
}
on *:DNS:{
  if ($hget(ProxyCheck,$dns(0).addr)) {
    var %hash = $v1, %cnt, %addr, %ip, %zone, %naddr, %msg
    hdel ProxyCheck $dns(0).addr
    if (Check * iswm %hash) {
      %cnt = $gettok($v2,2,32)
      %addr = $gettok($v2,3,32)
      %IP = $RevIP($gettok($dns(0).addr,1-4,32))
      %zone = $gettok($dns(0).addr,5-,32)
      if ($iaddress) {
       %msg = Your ip, %ip $+ , has been found in the DNSBL of %zone
        gline %addr %msg
        gline %ip %msg
      }
      elseif (%cnt < $numtok($BList,32)) {
        %naddr = $PAddr(%IP,$calc(%cnt +1))
        hadd -m ProxyCheck %naddr Check $calc(%Cnt +1) %addr
        .dns %naddr
      }
    }
    elseif (%hash == GetIP) && ($dns(1).ip) {
      %addr = $PNext($v1,1)
      .dns %addr
      hadd -m ProxyCheck %addr Check 1 $dns(0).addr
    }
    halt
  }
}
alias -l PAddr return $Revip($$1) $+ . $+ $$gettok($BList,$$2,32)
alias -l Revip {
  tokenize 46 $1
  return $+($4, ., $3, ., $2, ., $1)
}
alias -l BList {
  return $&
    .dronebl $&
    .proxybl $&
    .rbl.efnet.org $&
    .dnsbl.ahbl.org $&
    .dnsbl.rizon.net $&
    .dnsbl.swiftbl.org
}	

Drone connect:

		Code 			
-
 *** Notice -- Client connecting on port 6667: Clonex-kzymlssq (clonex@ool-44c5b8d8.dyn.optonline.net) [clients]
-
* Dns resolving:
ool-44c5b8d8.dyn.optonline.net
-
*** G:Line added for *@68.197.184.216 on Sun Jul 24 19:42:59 2011 GMT (from Security to expire at Wed Aug 17 12:00:35 2011 GMT: :DNSBL listed. Check www.ircnet.com/cgi-bin/bl.cgi?ip=68.197.184.216 for removal.)
-	

These code doesnt work for me
PS : Security is a bot (bopm)

Respond

CrAnK commented on a Snippet, Proxycheck check. (Check through 12 BL zones!) - Aug 15, 2011

SReject your code doesnt work to me

		Code 			
on $*:SNOTICE:/client connecting .*?@([a-z\-\d.]+)/i:{
  var %addr = $regml(1)
  if ($regex(%addr,^\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?$/i)) {
    .dns $PAddr(%addr,1)
    hadd -m ProxyCheck $PAddr(%addr,1) Check 1 %addr
  }
  else {
    hadd -m ProxyCheck %addr GetIP
    .dns %addr
  }
}
on *:DNS:{
  if ($hget(ProxyCheck,$dns(0).addr)) {
    var %hash = $v1, %cnt, %addr, %ip, %zone, %naddr, %msg
    hdel ProxyCheck $dns(0).addr
    if (Check * iswm %hash) {
      %cnt = $gettok($v2,2,32)
      %addr = $gettok($v2,3,32)
      %IP = $RevIP($gettok($dns(0).addr,1-4,32))
      %zone = $gettok($dns(0).addr,5-,32)
      if ($iaddress) {
        %msg = Your ip, %ip $+ , has been found in the DNSBL of %zone
        gline %addr %msg
        gline %ip %msg
      }
      elseif (%cnt < $numtok($BList,32)) {
        %naddr = $PAddr(%IP,$calc(%cnt +1))
        hadd -m ProxyCheck %naddr Check $calc(%Cnt +1) %addr
        .dns %naddr
      }
    }
    elseif (%hash == GetIP) && ($dns(1).ip) {
      %addr = $PNext($v1,1)
      .dns %addr
      hadd -m ProxyCheck %addr Check 1 $dns(0).addr
    }
    halt
  }
}
alias -l PAddr return $Revip($$1) $+ . $+ $$gettok($BList,$$2,32)
alias -l Revip {
  tokenize 46 $1
  return $+($4, ., $3, ., $2, ., $1)
}
alias -l BList {
  return $&
    .dronebl $&
    .proxybl $&
    .rbl.efnet.org $&
    .dnsbl.ahbl.org $&
    .dnsbl.rizon.net $&
    .dnsbl.swiftbl.org
}	

		Code 			
-
 *** Notice -- Client connecting on port 6667: Clonex-kzymlssq (clonex@ool-44c5b8d8.dyn.optonline.net) [clients] 
-
* Dns resolving:
ool-44c5b8d8.dyn.optonline.net
-
*** G:Line added for *@68.197.184.216 on Sun Jul 24 19:42:59 2011 GMT (from Security to expire at Wed Aug 17 12:00:35 2011 GMT: :DNSBL listed. Check www.ircnet.com/cgi-bin/bl.cgi?ip=68.197.184.216 for removal.)
-
	

its doesnt gline the user or IP

Respond

CrAnK commented on a Snippet, Address Blacklist - Apr 11, 2011

create a file Pwned.txt and its ok ;)

Respond

CrAnK commented on a Snippet, My kill list - Apr 11, 2011

open mirc script editor ( ALT + R ) , then new file and paste the codes.

Albanian: Nqs se ke kuptuar ketu me fol ne pv ta shpjegoj :P

Respond

CrAnK commented on a Snippet, Whois tracker with IP locator - Mar 08, 2011

Thnx u Jethro_ & Scakk . I have no problem now

Respond

CrAnK commented on a Snippet, Whois tracker with IP locator - Mar 07, 2011

when someone make more than one whois on me it show me this error log :

Quote

-
* /sockopen: 'IPwhois' socket in use (line 23, IPWhois.ini)
-

Line 23 :

Quote

alias whoisip { set %ipnumber $1 | sockopen IPwhois www.melissadata.com 80 }

Respond

CrAnK commented on a Snippet, Anti UNBAN - May 26, 2010

* CrAnK sets mode: +b *!*@202.70.54.91
* TestUser sets mode: -b *!*@202.70.54.91
* CrAnK sets mode: +b *!*@202.70.54.91

this part of AntiUnBan is ok

* TestUser sets mode: -b *!*@1.1.1.1.1
* CrAnK sets mode: +b *!*@1.1.1.1.1

another @op make unban another IP with this codes @Ops make autoban

Respond

CrAnK commented on a Snippet, Vhosts -Eggdrop - Mar 14, 2010

make ps in shell and kill the procces

Respond