Girişe Şifre Koyma

[halil355]

kolay gelsin arkadaslar,sayfa girisine sifre koymak istiyorum ama istedigim zaman degistirebiliyim bu sifreyi nasıl yaparım bunu...

[KintaRo]

Aşağıdaki örnekteki dosyada dediğin gibi bir çalışma yaptım. Detayları:

Kaydet buttonu:

-- inputa girilen metin

metin = Input.GetText("Input1")

-- benzersiz karakterler. bu karakterler parolanizin baskasi tarafindan cozumlenmesini engeller ve bu algoritmaya gore sifrelenir.

Sifre = "akdfje2qf23£#$£#$"

-- girilen metni sifreliyoruz

sifrelenmis = Crypto.BlowfishEncryptString(metin, Sifre);

-- ini dosyasina yazdiriyoruz

INIFile.SetValue("AutoPlay\\Docs\\data.ini", "AYARLAR", "sifre", sifrelenmis)[/CODE]

Project/Actions/On Start Up evresi (başlangıç evresi:)

[CODE]-- sifrelenmis metni ini dosyasindan aliyoruz

sifrelenmis = INIFile.GetValue("AutoPlay\\Docs\\data.ini", "AYARLAR", "sifre")

-- benzersiz anahtarimizi belirtiyoruz

Sifre = "akdfje2qf23£#$£#$"

-- benzersiz anahtarimizla metnin sifresini cozuyoruz

cozumle = Crypto.BlowfishDecryptString(sifrelenmis, Sifre)

-- sifre sorusunu soruyoruz

mesaj = Dialog.PasswordInput("Hoşgeldiniz", "Şifreyi girin...", MB_ICONINFORMATION)

-- eğer girilen şifre bizimki ile aynı değilse

if mesaj ~= cozumle then

-- hatali sifre mesaji verip programı kapatıyoruz.

Dialog.Message("Hata", "Sifreyi yanlis girdiniz")

Application.Exit()

end

-- eğer şifre doğruysa program açılıyor...[/CODE]

Programın giriş şifresi 123456'dır.

Örnek proje:

[CODE]http://www.tamotomatik.org/dosya/sifreli_giris.rar[/CODE]

Bu sayede encyrpt ve decyrpt yani şifreleme ve çözümleme fonksiyonuna da değinmiş olduk. Ekstradan birde kayıtlı şifreyi gösterme butonu ekledim. Mantığı kavramak açısından.

[halil355]

Kintaro cok sagol kardesim,biraz degisiklik yaparim bunun üzerinde istedigim gibi.sayende bende greniyorum biseyler...

sifrelemeyi yapiyordum basitti ama degistirme olayini anlamamitim simdi oldu.