IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Clone

Kod:

alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
 alias randn2 {
 if $1- isalpha && $1- islower {
 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 $1- isalpha && $1- islower {
 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 }
 }
 }
 menu channel,status {
 Random Nick Koruması
 Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır.
 kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır.
 }
 #random off
 on !*:join:#:if ($randomnick($nick)) { /ban -u900 # $nick 2 | kick # $nick 4Random Nick! }
 #random end

kullanım şekli:

Kod:

on !*:join:#:if ($randomnick($nick)) { işlev }
 on !*:join:#:if ($randomnick($nick)) { kill $nick random nick kullanmayın! }
 on !*:join:#:if ($randomnick($nick)) { gzline $nick +1h random nick kullanmayın! }

kod kullanımını echo olarak test edipte sunuyorum ve test sonuçları;
random nick : myjk
random nick : uipgrznytk
random nick : jcyeszdvnx
random nick : snrijyhodx
random nick : uqjzmlxck
random nick : harybwkv
random nick : harybwkv
random nick : aobfdxniq
random nick : nhxrlzydvku
random nick : gboylujnzap
random nick : wkghmsv
random nick : styi
random nick : osvxhiyta
random nick : rsfdoknchv
random nick : crdxvwbkpo
random nick : ytsapnzde
random nick : phtsmqegwxb
random nick : oavuptgh
random nick : zdcl
random nick : vtlanz
random nick : ybqulr
random nick : ybqulr

sc5 clone işlemi için yapmış olduğum bir kodlamadır. esinlenme CipriX (cem) arkadaşımın sayesindedir. "randn2" aliases kodlaması başka birinden alınıp geliştirilmiştir. ve bundan esinlenerek "randn" aliasesini yapılmıştır. "randn" aliases ise tamamiyle kendime aittir.

İşini görür sanırım.. Random Nickle Giriş Yapanlar Otomatik Olarak mIRC'den Kicklenecektir, kırmızı olarak işaretlediğim yeri, zline kline vs. değiştirirsen Çalışır, iyi Forumlar.

Not; XcLusive 'ye aittir Code. Olduğu gibi buraya aktardim.

Proxy korumaları içinse, forum içerisinde arama yaparsan göreceksin.