Dıalogınput Soru

[pilgetir]

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]

[MostWanted]

[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