| KarabasaN | 18 Temmuz 2009 20:53 |
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 -c %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 -c %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 -1 225 98
option dbu
icon icons\10.ico, 0
text Nick: $me, 2, 3 40 91 8
text "Şifre:", 3, 3 49 14 8, right
edit "", 4, 17 48 80 10, autohs style(pass)
text Bağlı Sunucu : $server, 5, 3 73 90 10
button "Şifreyi gönder", 6, 2 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.", 9, 101 46 121 33
box "Otomatik Şifre Belirtsem Ne Olur ?", 10, 99 38 125 42
link "Otomatik Şifre Sistemini Kullanmak İçin Burayı Tıklayın", 11, 4 85 204 9
box "", 12, 1 -1 223 38
text "", 13, 2 3 193 33
text Dikkat! $crlf $+ Kullandığınız nick daha önceden kaydedilmiş!, 14, 4 5 139 14
text "Eğer bu nick size ait ise lütfen doğru şifreyi şimdi girin", 1, 4 25 139 7
icon 15, 193 3 31 33, icons\sifre.jpg, 0, noborder
button "Nick Değiştir", 7, 49 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 == 1 {
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) == e { return $decode($oku(sifre,tumsifre)) }
if $oku(sifre,tumnicksifre) == h { return $decode($oku($me,psw)) }
}
dialog nsm {
title "Nick ve Şifre Yönetim Merkezi"
size -1 -1 150 151
option dbu
check "Tüm nicklerimin şifreleri aynıdır", 1, 2 43 84 10
button "Şifreyi Ayarla", 2, 98 43 37 10
list 3, 5 70 138 50, size
box "", 4, 2 54 145 82
button "Ekle", 5, 6 123 37 10
button "Sil", 6, 46 123 37 10, disable
button "Düzenle", 7, 105 123 37 10, disable
check "Nickimin Guest olmasına izin verme", 8, 5 140 94 10
button "Tamam", 9, 105 138 37 12, ok
text "Şifreleriniz özel bir kod ile kodlanıp saklanacaktır", 10, 3 62 143 8, center
box "", 11, 2 -1 146 40
text "", 12, 3 3 115 35
icon 13, 118 2 30 37,icons\sifre.jpg, 0, noborder
text "Nick ve Şifre Yönetim Merkezi", 15, 5 5 90 7
text "Bu bölümde kayıtlı nicklerinizi ve onların şifrelerini yönetebilirsiniz.", 14, 10 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 == 1 { yaz ayar noguest e }
if $did(8).state == 0 { yaz ayar noguest h }
}
on 1:dialog:nsm:sclick:1: {
if $did(1).state == 1 {
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 == 0 { yaz sifre tumnicksifre h | did -e nsm 3,4,5,6,7 }
}
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) == e { did -c nsm 8 }
if $oku(sifre,tumnicksifre) == e { 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,7 }
}
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,32) psw 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,32) psw 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 -1 150 43
option dbu
text "Nick:", 1, 3 7 25 8, right
text "Şifre:", 2, 3 17 25 8, right
edit "", 3, 29 5 50 10, return
edit "", 4, 29 15 50 10, autohs
button "Ekle", 5, 42 28 37 12, default
button "İptal", 6, 82 28 37 12, cancel
text "İki kutunun da dolmuş olmasına dikkat edin.", 7, 83 5 60 16
}
on 1:dialog:ynie:sclick:5: {
yaz $did(3) psw $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 != e {
/.gplay merlin $1 | /.gtalk merlin $2- }
}
}
|
