Merhaba, lafı fazla uzatmayacağım bu tür birşey zaten unreal modulu olarak kullanılıyor, belki mirc üzerinden'de yapmak isteyen olur diye düşündüm.
Kodun Amacı: mirc üzerinden ftp bağlantısı yapıp opers.conf üzerinde düzenleme (ekleme|silme) işlemi yapmak
Komutlar:
!oper ekle [nick pass N|a|A|C|o|O] ve
!oper sil [nick]
Fikir: @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod Üzerinde Değişmesi Gereken Yerler:
Kırmızı: unreal klasörü (Unreal,Unreal3.2 gibi)
Mavi: ftp baglanmak için ip(host),kullanıcı adı ve şifre
Yeşil: komutu kullanacak nickler (aralarında boşluk olmalı) NOT: Eğer Root Admin, Teknik Admin vs gibi flaglarınız varsa
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $1 == N { return OoaAreDRhwgcLkKbZtBnGNCzW^Hv }
bu kısmı
Kod: Kodu kopyalamak için üzerine çift tıklayın!
elseif $1 == N { return OoaAreDRhwgcLkKbZtBnGNCzW^Hv }
olarak değiştirip üzerine
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $1 == U { return OoaAreDRhwgcLkKbZtBnGNUCzW^Hv }
gibi ekleyebilirsiniz,
Örnek: Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias flagss {
if $1 == U { return OoaAreDRhwgcLkKbZtBnGNXUCzW^Hv }
elseif $1 == X { return OoaAreDRhwgcLkKbZtBnGNXCzW^Hv }
elseif $1 == N { return OoaAreDRhwgcLkKbZtBnGNCzW^Hv }
elseif $1 === a { return OaorehwgcLkKbZtBnGzW^Hv }
elseif $1 === A { return OAorehwgcLkKbZtBnGzW^Hv }
elseif $1 == C { return OorehwgcLkKbZtBnGCzW^Hv }
elseif $1 === o { return OorewgcLkKbZtBnGzW^Hv }
elseif $1 === O { return OrewgcLkKbZtBnGzW^Hv }
}
gibi
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias opersconfdir return Unreal3.2.10.7
alias ftpip return 77.83.200.15
alias ftpuser return ircqr
alias ftppass return z1xc32z1vc5
alias masternick return YouMyCure Toprak SrjN Feragat
alias flagss {
if $1 == N { return OoaAreDRhwgcLkKbZtBnGNCzW^Hv }
elseif $1 === a { return OaorehwgcLkKbZtBnGzW^Hv }
elseif $1 === A { return OAorehwgcLkKbZtBnGzW^Hv }
elseif $1 == C { return OorehwgcLkKbZtBnGCzW^Hv }
elseif $1 === o { return OorewgcLkKbZtBnGzW^Hv }
elseif $1 === O { return OrewgcLkKbZtBnGzW^Hv }
}
alias userdir return $+($token($mircdir,1,92),\Users\,$token($mircdir,3,92),\)
raw 243:*: { msg %ochn 2Nick:4 $5 2Yetki:4 $6 }
alias ftp {
.remove $shortfn($mircdiroper.ftp)
write oper.ftp close $ftpip
write oper.ftp open $ftpip
write oper.ftp $ftpuser
write oper.ftp $ftppass
write oper.ftp cd $opersconfdir
write oper.ftp $iif($1 == yukle,send $+($userdir,opers.conf),get opers.conf opers.conf)
write oper.ftp quit
run ftp -s:oper.ftp
}
on *:text:*:#: {
if $regex($1,/^[.!]oper$/Si) {
if !$istok($masternick,$nick,32) { msg # $qt($nick) Bu komutu kullanmaya yetkili değilsiniz. }
elseif ($nick !isreg $chan) { msg # $qt($nick) Bu komutu kullanmak için nick şifrenizi girmelisiniz. }
else {
if !$regex($2,/^(ekle|sil|list|setpass|setflag)$/Si) { msg # $qt($nick) Lütfen $qt(!oper ekle [nick pass N|a|A|C|o|O] yada !oper sil [nick]) şeklinde kullanın. }
elseif ($2 == ekle) {
if !$regex($5,/^(n|a|c|o)$/Si) { msg # $qt($nick) Lütfen $qt(!oper ekle [nick pass N|a|A|C|o|O]) şeklinde kullanın. }
else {
ftp indir
write $+($userdir,opers.conf) oper $3 $chr(123) from $chr(123) userhost *@*; $+($chr(125),;) password $+(",$4,"; flags $flagss($5),;) snomask +ksScfFvGqo ; maxlogins 3 ; class clients; $+($chr(125),;)
ftp yukle | msg # $qt($3) nickine $qt($5) flagı ile oper eklenmiştir. şifresi: $qt($4) | .timerREHASH 1 2 rehash
}
}
elseif ($2 == list) { stats o | set -u5 %ochn # }
elseif ($2 == sil) {
if (!$3) { msg # $qt($nick) Lütfen $qt(!oper sil [nick]) şeklinde kullanın. }
else {
ftp indir
noop $read($+($userdir,opers.conf),w,$+(oper $3 *))
write $+(,-dl,$readn,) $+($userdir,opers.conf)
ftp yukle | msg # $qt($3) nickinin operi silinmiştir. | .timerREHASH 1 2 rehash
}
}
}
}
}
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.