pilgetir Posted October 6, 2011 Share Posted October 6, 2011 konu 1; burada sifreyi yanlıs girince dialogınput kapanıyor ben yanlış girilince tekrar sifre sormasını istiyorum.iptale basınca gitsin [quote]---------------------------------------------- function yonetim() tSerial = {"deneme", "kurtarma", "developer85"} sGirilen = Dialog.PasswordInput("Yönetim Paneli Şifresini Giriniz", "Lütfen Şifreyi Giriniz:", MB_ICONQUESTION); if sGirilen == tSerial[1] or sGirilen == tSerial[2] or sGirilen == tSerial[3] and sGirilen ~= "CANCEL" then DialogEx.Show("yönetim"); elseif sGirilen == "CANCEL" then Application.Exit () elseif sGirilen ~= tSerial[1] and sGirilen ~= tSerial[2] and sGirilen ~= tSerial[3] or sGirilen == "" or sGirilen ~= "CANCEL" then Dialog.Message("Hata", "Girilen Şifre Yanlış") return; end end --------------------------------------------------------[/quote] konu2; birde arkadaşlar şifreyi bir dialog sayfamdaki 2 ınputdan veriyi alacak birisine şifreyi girecek diğerinede şifreyi tekrar girecek kaydete basacak ve şifrem ini dosyasına şifrelenmiş bir biçimde kayıt edilmesini istiyorum kullanıcı bu şifreyi diyelim unuttu yönetim paneline girerken bu girdiği şifreyi soracakya panel diyelim o şifreyi unuttu ben program içinde kendim belirlediğim bir şifre daha olacak ikisi ilede girilecek kurtarma şifresi gibi bu olayı yapamadım. [quote]--------------------- function yonetim() tSerial = {"deneme", "kurtarma", "developer85"} sGirilen = Dialog.PasswordInput("Yönetim Paneli Şifresini Giriniz", "Lütfen Şifreyi Giriniz:", MB_ICONQUESTION); if sGirilen == tSerial[1] or sGirilen == tSerial[2] or sGirilen == tSerial[3] and sGirilen ~= "CANCEL" then DialogEx.Show("yönetim"); elseif sGirilen == "CANCEL" then Application.Exit () elseif sGirilen ~= tSerial[1] and sGirilen ~= tSerial[2] and sGirilen ~= tSerial[3] or sGirilen == "" or sGirilen ~= "CANCEL" then Dialog.Message("Hata", "Girilen Şifre Yanlış") return; end end ------------------------[/quote] Quote Link to comment Share on other sites More sharing options...
MostWanted Posted October 6, 2011 Share Posted October 6, 2011 (edited) [codebox]tSerial = {"deneme", "kurtarma", "developer85"} repeat sGirilen = Dialog.PasswordInput("Yönetim Paneli Şifresini Giriniz", "Lütfen Şifreyi Giriniz:", MB_ICONQUESTION); if sGirilen == tSerial[1] or sGirilen == tSerial[2] or sGirilen == tSerial[3] and sGirilen ~= "CANCEL" then DialogEx.Show("yönetim"); break; elseif sGirilen == "CANCEL" then Application.Exit () end until (sGirilen == tSerial[1] or sGirilen == tSerial[2] or sGirilen == tSerial[3]) and sGirilen ~= "CANCEL" [/codebox] Bu tekrar etmesi için.İkincisinin ise yolunu anlatacağım malum biraz bilgin var yaparsın.İlk önce Crypto.BlowfishEncryptString bununla şifrelerini kaydet (bence regedite), sonra ordan okut ve Crypto.BlowfishDecryptString ile şifreleri çöz eşitse giriş yaptır.Çok zor değil ha? Edited October 6, 2011 by MostWanted Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.