mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Help - Yardım

Help - Yardım mIRC Scripting hakkında her konuda yardım alabileceğiniz bölümdür.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 18 Temmuz 2009, 20:53
Avatar Yok

mS Puan: 21
mS Derece: KarabasaN
 
Üyelik tarihi: 18 Temmuz 2009
Mesajlar: 25
Konular: 7
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart Mirc Şifre Kaydı ve Oto Şifre $decode Sorunu

Selam Dostlar Öncelikle Elimde İşlevsel Bir Addon var Nick Şifre Giriş ve Oto Şifre İçin Ancak mircin varsayılan ayarı $decode Yüzünden manuel olarak Decodeyi Açmanız Gerekiyor Aslında Sorunumda bu...

Koddan $decode kısımlarını Çıkarınca Addon Bozuluyo Varsayılan Ayarıda Değiştiremedim Bilgisi Olan varya Yardımcı Olursa Minnettar Kalırım.

PHP- Kodu:
alias sifrele {
  return 
$replace($lower($1-),a,2,b,^2,c,^^2,ç,^^^2,d,3,e,^3,f,^^3,g,4,ğ,^4,h,^^4,ı,^^^4,i,^^^^4,j,5,k,^5,l,^^5,m,6,n,^6,o,^^6,ö,^^^6,p,7,q,^7,r,^^7,s,^^^7,t,8,u,^8,ü,^^8,v,^^^8,w,9,x,^9,y,^^9,z,^^^9)

}
alias scoz {
  return 
$replace($lower($1-),2,a,^2,b,^^2,c,^^^2,ç,3,d,^3,e,^^3,f,4,g,^4,ğ,^^4,h,^^^4,ı,^^^^4,i,5,j,^5,k,^^5,l,6,m,^6,n,^^6,o,^^^6,ö,7,p,^7,q,^^7,r,^^^7,s,8,t,^8,u,^^8,ü,^^^8,v,9,w,^9,x,^^9,y,^^^9,z)

}
alias dsif {
  
set %ts1 $1
  set 
%ti 1
  
.rename %ts1 tmP2.txt
  write 
-%ts1
  
:ma
  
if $read(tmP2.txt,%ti) != $null write %ts1 $sifrele($read(tmP2.txt,%ti)) | inc %ti 1 | goto ma }
  else .
remove tmp2.txt
}
alias dcoz {
  
set %ts1 $1
  set 
%ti 1
  
.rename %ts1 tmP3.txt
  write 
-%ts1
  
:ma
  
if $read(tmP3.txt,%ti) != $null write %ts1 $scoz($read(tmP3.txt,%ti)) | inc %ti 1 | goto ma }
  else .
remove tmp3.txt
}

on 1:notice:*incorre*:*: { 
  if (
$nick nickserv) { dialog -m nsw nsw halt 
}
on *:notice:*Falsches Passwort*:*: { 
  if (
$nick nickserv) { dialog -m nsw nsw halt 
}
#####################
# NICKSERV IDENTIFY #
#####################
on *:notice:*ist registriert*:* { if $nick == nickserv id } }
on *:notice:*kayıtlı*:* { if $nick == nickserv id } }
on *:notice:*kaydedilmiş*:* { if $nick == nickserv id } }
on *:notice:*This is a registered nick*:* { if $nick == nickserv id } }
on *:notice:*This nick is owned by someone*:* { if $nick == nickserv id } }
on *:notice:*This nickname is owned by someone*:* { if $nick == nickserv id } }
on *:notice:*nickname is registered*:*: { if $nick == nickserv id } }
on *:notice:*then please identify prior to using it*:*: { if $nick == nickserv id } }
on *:notice:*The nick you are using is registered*:*: { if ($network == galaxynet && $nick == ns) { id } }
on *:notice:*is a registered nickname*:*: { if ($network == austnet && $nick == NickOP) { id } }
on *:notice:*is a registered nickname*:*: { if ($network == austnet && $nick == NickOP) { id } }

on *:notice:*Şifre*geçersiz*:*: { if ( $nick == nickserv ) /dialog -m nsw nsw }
on *:notice:*password*incorrect*:*: { if ( $nick == nickserv ) /dialog -m nsw nsw }
on *:notice:*yanlış*:* { if $nick == nickserv dialog -m nsw nsw } }
alias id {
  if 
$ncd != $null {  /.msg nickserv identify $ncd | echo -a 12>>> Nick şifresi gönderildi... }
  if 
$ncd == $null {  /dialog -m nsw nsw }
}

dialog nsw {
  
title "Şifre Bilgi Sistemi"
  
size --1 225 98
  option dbu
  icon icons
\10.ico0
  text Nick
$me23 40 91 8
  text 
"Şifre:"33 49 14 8right
  edit 
""417 48 80 10autohs style(pass)
  
text  Bağlı Sunucu $server53 73 90 10
  button 
"Şifreyi gönder"62 60 45 12, default ok
  text 
"Eğer Ev Kullanıcısı İseniz Sizin için mükemmel bir özellik ayarladık. Sunucuya Bağlanmanız ile birlikte Otomatik olarak Şifrenizi Girilecek.  Her Seferinde Şifre Girmek Zorunda Kalmayacaksınız. Cafe Kullanıcıları İçin Tavsiye Etmiyoruz."9101 46 121 33
  box 
"Otomatik Şifre Belirtsem Ne Olur ?"1099 38 125 42
  link 
"Otomatik Şifre Sistemini Kullanmak İçin Burayı Tıklayın"114 85 204 9
  box 
""12-1 223 38
  text 
""132 3 193 33
  text Dikkat
$crlf $+ Kullandığınız nick daha önceden kaydedilmiş!, 144 5 139 14
  text 
"Eğer bu nick size ait ise lütfen doğru şifreyi şimdi girin"14 25 139 7
  icon 15
193 3 31 33,  icons\sifre.jpg0noborder
  button 
"Nick Değiştir"749 60 45 12, default
}

on 1:dialog:nsw:init:*: {
  
dll $dl SetMircVersion $version
  dll $dl MarkDialog $dname

  mdx SetFont $dname 14 
+a 13 600 Tahoma
  
//mdx SetColor $dname 14 background $rgb(255,255,255)
  //mdx SetColor $dname 14 textbg $rgb(255,255,255)

  //mdx SetColor $dname 13 textbg $rgb(255,255,255)
  //mdx SetColor $dname 13 background $rgb(255,255,255)

  //mdx SetColor $dname 1 textbg $rgb(255,255,255)
  //mdx SetColor $dname 1 background $rgb(255,255,255)

  //mdx SetColor $dname 8 textbg $rgb(255,255,255)
  //mdx SetColor $dname 8 background $rgb(255,255,255)

  
did -c nsw 5
  kdiger 43 Şifreniz bende güvenli bir şekilde saklanacaktır
}
on 1:dialog:nsw:sclick:7: {
  
dialog -m myzurnanick myzurnanick
}
on 1:dialog:nsw:sclick:11: {
  
dialog -m nsm nsm
}
on 1:dialog:nsw:sclick:6: {
  if 
$did(4) != $null {
    if 
$did(5).state == {
      
yaz $me psw $encode($did(4))
    }
    /.
msg NickServ identify $did(4)
  }
  if 
$did(4) == $null {
    
dialog -x nsw nsw
    dialog 
-m nsw nsw
    did 
-r nsw 1
    did 
-a nsw 1 Lütfen geçerli bir şifre girin.
  }
}
alias ncd {
  if 
$oku(sifre,tumnicksifre) == { return $decode($oku(sifre,tumsifre)) }
  if 
$oku(sifre,tumnicksifre) == { return $decode($oku($me,psw)) }
}

dialog nsm {
  
title "Nick ve Şifre Yönetim Merkezi"
  
size --1 150 151
  option dbu
  check 
"Tüm nicklerimin şifreleri aynıdır"12 43 84 10
  button 
"Şifreyi Ayarla"298 43 37 10
  
list 35 70 138 50size
  box 
""42 54 145 82
  button 
"Ekle"56 123 37 10
  button 
"Sil"646 123 37 10disable
  button 
"Düzenle"7105 123 37 10disable
  check 
"Nickimin Guest olmasına izin verme"85 140 94 10
  button 
"Tamam"9105 138 37 12ok
  text 
"Şifreleriniz özel bir kod ile kodlanıp saklanacaktır"103 62 143 8center
  box 
""11-1 146 40
  text 
""123 3 115 35
  icon 13
118 2 30 37,icons\sifre.jpg0noborder
  text 
"Nick ve Şifre Yönetim Merkezi"155 5 90 7 
  text 
"Bu bölümde kayıtlı nicklerinizi ve onların şifrelerini yönetebilirsiniz."1410 22 101 14
}
on 1:dialog:nsm:sclick:5: {
  if !
$dialog(ynie) { dialog -m ynie ynie }
  else 
dialog -v ynie
}
on 1:dialog:nsm:sclick:8: {
  if 
$did(8).state == yaz ayar noguest e }
  if 
$did(8).state == yaz ayar noguest h }
}
on 1:dialog:nsm:sclick:1: {
  if 
$did(1).state == {
    
did -b nsm 3,4,5,6,7
    yaz sifre tumnicksifre e
    
if $oku(sifre,tumsifre) == $null 
      :
sie
      
var %nekibu $input(Bir şifre girmeniz gerekmektedir$crlf $crlf $+ Lütfen tüm nickleriniz için kullanılacak olan şifreyi girin,oegw,Dikkat,$decode($oku(sifre,tumsifre)))
      if %
nekibu != $null yaz sifre tumsifre $encode(%nekibu) }
      else goto 
sie
    


  }
  if 
$did(1).state == yaz sifre tumnicksifre h |     did -e nsm 3,4,5,6,}
}
on 1:dialog:nsm:init:*: {
  
dll $dl SetMircVersion $version
  dll $dl MarkDialog $dname

  mdx SetFont $dname 15 
+a 13 600 Tahoma
  
//mdx SetColor $dname 12 background $rgb(255,255,255)
  //mdx SetColor $dname 12 textbg $rgb(255,255,255)

  //mdx SetColor $dname 14 textbg $rgb(255,255,255)
  //mdx SetColor $dname 14 background $rgb(255,255,255)

  //mdx SetColor $dname 15 textbg $rgb(255,255,255)
  //mdx SetColor $dname 15 background $rgb(255,255,255)

  
dll $dl SetControlMDX $dname 3 ListView listview rowselect grid single flatsb labeltip headerdrag report  dll\views.mdx
  did 
-i nsm 3 1 headerdims 120 140 
  did 
-i nsm 3 1 headertext $tab(0 NickŞifresi)
  
mdx SetFont $dname 10 +a 13 600 Tahoma
  
if $oku(ayar,noguest) == did -c nsm 8 }
  if 
$oku(sifre,tumnicksifre) == did -c nsm 1 }
  var %
kakt 1
  
if $oku(sifre,nickler) != !@yok@! { goto loop }
  else goto 
bit
  
:loop
  
if $gettok($oku(sifre,nickler),%kakt,9) != $null {
    
did -a nsm 3 $remove($gettok($oku(sifre,nickler),%kakt,9),€) $chr(9) $str(*,$len($decode($oku($remove($gettok($oku(sifre,nickler),%kakt,9),€),psw))))
    
inc %kakt
    
goto loop
  
}
  :
bit
}
on 1:dialog:nsm:sclick:3: {
  if 
$did(3).seltext != $null did -e nsm 5,6,}
}
on 1:dialog:nsm:sclick:7: {
  if !
$dialog(ynie) { dialog -m ynie ynie did -ra ynie 3 $gettok($did(3).seltext,6,32) | did -ra ynie 4 $decode($oku($gettok($did(3).seltext,6,32),psw)) }
  if 
$dialog(ynie) { dialog -v ynie did -ra ynie 3 $gettok($did(3).seltext,6,32) | did -ra ynie 4 $decode($oku($gettok($did(3).seltext,6,32),psw)) }
}
on 1:dialog:nsm:dclick:3: {
  if !
$dialog(ynie) { dialog -m ynie ynie did -ra ynie 3 $gettok($did(3).seltext,6,32) | did -ra ynie 4 $decode($oku($gettok($did(3).seltext,6,32),psw)) }
  if 
$dialog(ynie) { dialog -v ynie did -ra ynie 3 $gettok($did(3).seltext,6,32) | did -ra ynie 4 $decode($oku($gettok($did(3).seltext,6,32),psw)) }
}
on 1:dialog:nsm:sclick:6: {
  if 
$remtok($oku(sifre,nickler),$gettok($did(3).seltext,6,32),9) == $null yaz sifre nickler !@yok@! | yaz $gettok($did(3).seltext,6,32psw HIMBIL FARE SENİ! | goto dvmm }
  
yaz sifre nickler $remtok($oku(sifre,nickler),$gettok($did(3).seltext,6,32),9)
  
yaz $gettok($did(3).seltext,6,32psw HIMBIL FARE SENİ!
  :
dvmm
  did 
-r nsm 3
  
var %kakt 1
  
if $oku(sifre,nickler) != !@yok@! { goto loop }
  else goto 
bit
  
:loop
  
if $gettok($oku(sifre,nickler),%kakt,9) != $null {
    
did -a nsm 3 $remove($gettok($oku(sifre,nickler),%kakt,9),€) $chr(9) $str(*,$len($decode($oku($remove($gettok($oku(sifre,nickler),%kakt,9),€),psw))))
    
inc %kakt
    
goto loop
  
}
  :
bit
}
on 1:dialog:nsm:sclick:2: {
  :
sie
  
var %nekibu $input(Bir şifre girmeniz gerekmektedir$crlf $crlf $+ Lütfen tüm nickleriniz için kullanılacak olan şifreyi girin,oegw,Dikkat)
  if %
nekibu != $null yaz sifre tumsifre $encode(%nekibu) }
  if %
nekibu == $nul { goto sie }

}

dialog ynie {
  
title "Yeni Nick Ekle"
  
size --1 150 43
  option dbu
  text 
"Nick:"13 7 25 8right
  text 
"Şifre:"23 17 25 8right
  edit 
""329 5 50 10, return
  
edit ""429 15 50 10autohs
  button 
"Ekle"542 28 37 12, default
  
button "İptal"682 28 37 12cancel
  text 
"İki kutunun da dolmuş olmasına dikkat edin."783 5 60 16
}
on 1:dialog:ynie:sclick:5: {
  
yaz $did(3psw $encode($did(4))
  
yaz sifre nickler $remove($addtok($oku(sifre,nickler),$did(3),9),!@yok@!)
  
dialog -x ynie
  
if $dialog(nsm) == $null dialog -m nsm nsm }
  else {
    
did -r nsm 3
    
var %kakt 1
    
if $oku(sifre,nickler) != !@yok@! { goto loop }
    else goto 
bit
    
:loop
    
if $gettok($oku(sifre,nickler),%kakt,9) != $null {
      
did -a nsm 3 $remove($gettok($oku(sifre,nickler),%kakt,9),€) $chr(9) $str(*,$len($decode($oku($remove($gettok($oku(sifre,nickler),%kakt,9),€),psw))))
      
inc %kakt
      
goto loop
    
}
    :
bit
  
}
}

alias kdiger {
  
halt
  
if $os == XP {
    if %
amankackac != {
    /.
gplay merlin $| /.gtalk merlin $2- }
  }


Konu KarabasaN tarafından (18 Temmuz 2009 Saat 20:55 ) değiştirilmiştir.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Seçenekler

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 Açık
Pingbacks are Açık
Refbacks are Açık



Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76