| immortaL | 23 Haziran 2019 20:59 |
mIRC üzerinden ftp bağlantısı ile oper ekletmek.
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: @ Toprak
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:
if $1 == N { return OoaAreDRhwgcLkKbZtBnGNCzW^Hv }
bu kısmı Kod:
elseif $1 == N { return OoaAreDRhwgcLkKbZtBnGNCzW^Hv }
olarak değiştirip üzerine Kod:
if $1 == U { return OoaAreDRhwgcLkKbZtBnGNUCzW^Hv }
gibi ekleyebilirsiniz, Kod:
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:
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 Che
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
}
}
}
}
}
| 