mIRC üzerinden ftp bağlantısı ile oper ekletmek

Aytac

nicktag
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
375
Tepkime puanı
22
Puanları
18
Konum
ircland
Web sitesi
www.ircalem.net
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]

Kod Üzerinde Değişmesi Gereken Yerler:
unreal klasörü (Unreal,Unreal3.2 gibi)
ftp baglanmak için ip(host),kullanıcı adı ve şifre
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,
Örnek:
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 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
        }
      }
    }
  }
}

d76H4c.png
 
Üst