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

>
+
Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Ocak 2010, 06:05   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Hocam teşekkür ederim ama olmadı :S O kod hiç çalışmıyor :S

alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha {
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 {
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 * {
Random Nick Koruması
Aç :.enable #random | echo -at 14,1Random Koruması 4,1AçıLdı!!
kapat:.disable #random | echo -at 14,1Random Koruması 4,1AçıLdı!!
}
#random on
on !*:join:#X-ir: {
if $regex($nick,/(Chick|Prens|butterfly|qamze|haqan|crayz|blacklost |ccredo|tuqce|yaqmuur)/i) { halt }
if ($randomnick($nick)) {
if !$istok(mIRCTR,$right($gettok($10,1,64),-1),32) {
/ban -ku180 # $nick 2 0,1Råñdøm 5,1ñ¡¢k ƒø®ßiddêñ0,1!!
}
}
}

#random end


Diye bir kod var elimde ama bu kezde muaf identi görmüyor.Bu atıyor ama muaf identleri ekleyemedim :S

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 06:31   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*client*connect*: { if $regex($remove($8,$chr(58)),/(6667|7000)/) &amp;&amp; $istokcs(ident1,ident2,ident3,$remove($gettok($10,1,64),$chr(40)),32) { zline $9 Yasak Ident } }

Bunu denersimisin..Yasaklamak istediğin identleri ident1,ident2 yazan yerle değiş aralarına virgül ekleyip diledin kadar ident ekle..

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 10:24   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Hocam yasaklamak istediğimiz ident değilde muaf tutmamız gereken identler var.O muafların haricinde randomsa atacak amaç bu.Yardımlarınızı bekliyorum..

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 12:50   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Hala bi çözüm yok :S

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 12:58   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Ozaman hiç bunlarla uğraşmayacaksın direk unreal'den serbest olmasını istediğin identleri belirle başka hiç bir ident giremesin sunucuna..

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
ban user {
mask "*@*";
reason "Sunucumuzda ident korumasi aktif oldugu için baglanamiyorsunuz baglanmak için /emailadd identiniyaz@ yaziniz  ";
};
except ban {
mask "identyaz@*";
};
except ban {
mask "identyaz@*";
}; 


unrealircd.conf içine atip /rehash cek

Bu işlemden sonra identyaz olan yerlere serbest kalmasını istediğin identleri çoğaltarak yazabilirsin..Oidentler dışında başka ident kullanan kişiler giremez sunucuna..

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 13:34   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Hocam benim sunucum yok ayrıca telnete de bakmıyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sadece bir services adminim ne kadar denediysem deneyeyim muaf ettiremedim :S Lütfen yardım

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 22:29   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




mIRC ana klasörüne ident.txt dosyası aç ve muaf identlerini alt alta sırala. Daha sonra vermiş olduğun join eventını aşağıdakiyle değiştir.

on *:join:#:{
if ($randomnick($nick)) {
if $read(ident.txt,w,$gettok($gettok($address($nick,5 ),2,33),1,64)) { halt }
else {
ban -k $chan $nick uç
}
}
}

__________________
Suyun intiharıdır şelale...
 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 23:11   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




[23:09:25] * Ayrıldı: WqkjasDs (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[23:09:26] * Giriş: WqkjasDs (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[23:09:30] * X-ir mod değiştirdi:+b *!*@141B8971.199DC7D0.71A06DCE.IP

Hocam dediğiniz gibi yaptım ama yine banlıyor :S

alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha {
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 {
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 * {
Random Nick Koruması
Aç :.enable #random | echo -at 14,1Random Koruması 4,1AçıLdı!!
kapat:.disable #random | echo -at 14,1Random Koruması 4,1AçıLdı!!
}
#random on
on *:join:#X-ir:{
if ($randomnick($nick)) {
if $read(ident.txt,w,$gettok($gettok($address($nick,5 ),2,33),1,64)) { halt }
else {
ban -k $chan $nick 0,1X-ir 5,1Security 0,1System5,1™9,1[0,1Råñdøm 0,1ñi¢k9,1]
}
}
}

#random end


Kod bu şekilde.Çözemedim neden böyle olduğunu :S


 
Alıntı ile Cevapla

Cevapla

Etiketler
ident, mirc download, mirc indir, muaf, sorunu, yardim, yardım


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Güncel muaf host, ident nikotin mIRC Scripting Sorunları 8 26 Mayıs 2017 08:30
Random ident muaf ekleme. KivanC mIRC Scripting Sorunları 5 15 Mayıs 2012 16:37
Unreal Muaf ident worker Unreal IRCd 1 21 Haziran 2011 12:23
muaf nick veya ident (yardım) sohbetimzelzele mIRC Scripting Sorunları 2 30 Kasım 2010 00:02
Muaf ident yardım Emrax mIRC Scripting Sorunları 5 11 Mart 2010 20:17