PHP- Kodu:
alias ort {
  if $
== $me || $comchan($1,1) == $null { return }
  var %
s 1,%k $comchan($1,0)
  while (%
<= %k) { 
    echo -
a Ortak kanallariniz 4 $comchan($1,%s)
    
inc %s
  
}
}

------------------

alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }
alias randn2 {
  if $
1isalpha && $1islower {
    if ((
$count($1,a,e,i,o,u) >= 4))  { return $false }
    if (
$regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
    if (
$len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
      if (
$regex($1,/^[^aeiou]{3}/)) { return $true }
      elseif (
$regex($1,/([a-z])\1{2}/)) { return $true }
      elseif (
$regex($1,/[aeiou]{3/)) { return $true }
      elseif (
$regex($1,q[^u])) { return $true }
      elseif (
$regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
      else { return 
$false }
    }
  }
}
alias randn {
  if $
1isalpha && $1islower {
    if (
$regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
    if (
$len($1) == 7) {
      var %
son $mid($1,$len($1),1)
      var %
son2 $mid($1,$calc($len($1– 1),1)
      if (%
son == %son2) { return $false }
      if 
$regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      else { return 
$false }
    }
    elseif (
$len($1) == 8) {
      var %
son $mid($1,$len($1),1)
      var %
son2 $mid($1,$calc($len($1– 1),1)
      if (%
son == %son2) { return $false }
      if 
$regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      else { return 
$false }
    }
    elseif (
$len($1) == 9) {
      var %
son $mid($1,$len($1),1)
      var %
son2 $mid($1,$calc($len($1– 1),1)
      if (%
son == %son2) { return $false }
      if 
$regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      else { return 
$false }
    }
    elseif (
$len($1) == 10) {
      var %
son $mid($1,$len($1),1)
      var %
son2 $mid($1,$calc($len($1– 1),1)
      if (%
son == %son2) { return $false }
      if 
$regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif 
$regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
      else { return 
$false }
    }
    if (
$regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
    elseif (
$regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
      var %
son $mid($1,$len($1),1)
      var %
son2 $mid($1,$calc($len($1– 1),1)
      if (%
son == %son2) { return $false }
      else { return 
$true }
    }
    elseif (
$regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
      var %
son $mid($1,$len($1),1)
      var %
son2 $mid($1,$calc($len($1– 1),1)
      if (%
son == %son2) { return $false }
      else { return 
$true }
    }
    elseif (
$regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
    elseif (
$regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
    else { return 
$false }
  }
}
#rondom on
on [email protected]*:join:#help:{
  
var %identd $gettok($gettok($address($nick,5),1,64),2,33),-1)
  if (
$randomnick(%nick)) || ($randomnick(%identd)) { /mode # +b $nick | kick # $nick 1Random (rastgele) nick/ident kullandığınız tespit edildi. Nick ve Ident değişiminden sonra tekrardan kanala giriş yapabilirsiniz. %logo  }
}
#rondom end

---
menu channel {
  .
RONDOM NICK KORUMASI
  
..:.enable #rondom | Echo -a Rondom Nick Koruması Açık.
  
..kapat:.disable #rondom | Echo -a Rondom Nick Koruması Kapalı.
}
---