herkese merhaba
eksiğim olursa düzeltin kusuruma bakamayın delphide yeniyim bir türlü başarılı olamadım
şimdi bizim bir formumuz var bu formun içine bir sayı listesi gömüp bu sayı listesinden her hangi bir sayıyı ekrandaki edit alanına yazarak programı kapatmak istiyoruz toparlamak gerekirse
elimde bir form var formda login button var ve bir adette password editi var bix password editi içine girilecek değeri bizim belirlediğimiz listeden rastgele seçilerek yapılamsını isitiyoruz bunu nasıl yapabiliriz şimdidden teşekkürler
Selamlar
Random komutunu araştırarark başlayabilirsiniz işlemlerinize.
ilginiz için teşekkür ederim random olayını yapabiliyorum sayı üretmede sorun yok ancak bu sayıyı parola yerine nasıl kullanırım bulamadım
Sayı listesi sabit mi? Yoksa program her çalıştırıldığında o da mı random üretiliyor? Liste, bir dizi (array), bir bileşen (TMemo vs) yada harici bir doya (XML INI vs) da mı tutuluyor? Açık konuşmak gerekirse soruyu ben de anlamadım. İlk okuduğumda, bankaların internet şubelerine giriş için kullanılan, her seferinde değişik şifre üreten "şifrematik" benzeri bir yapı istiyor olabileceğinizi düşündüm ama sanırım alakası yok.
liste var elimde bir adet Tmemo bileşeni ve bunun içinde karışık liste var bu liste hem exede hem mobil uygulamada var ben mobil uygulamada kodu alıp exedeki alana girip ekranı açmak istiyorum ama başaramadım
Bir ekran paylaşır mısınız programınızdan. Öyle karışık yazılmış ki hala göz önüne getiremiyorum formunuzun yapsını.
merhaba ekte ekran görüntüsü mevcut ben burada oluşturulan randomkodu edit alanında parola olarak nasıl kullanabilirim şuan ini file ile deniyorum buradan yapabilirmiyim bakacağım
Kusura bakmayın anlamak için soruyorum, size sadece x değişkenin değeri lazımsa onu(x'i) global (Form1: Tform1; satırının altına) tanımlayınca işiniz görülmüyor mu? Sonrada
Edit1.Text:=IntToStr(x);
(07-06-2021, Saat: 16:35)Hayati Adlı Kullanıcıdan Alıntı: [ -> ]Kusura bakmayın anlamak için soruyorum, size sadece x değişkenin değeri lazımsa onu(x'i) global (Form1: Tform1; satırının altına) tanımlayınca işiniz görülmüyor mu? Sonrada
Edit1.Text:=IntToStr(x);
denedim ama başarılı olamadım değeri edite giremedim farklı yöntemler deneyeceğim ilginize teşekkür ederim
(07-06-2021, Saat: 10:43)mr.irregularr Adlı Kullanıcıdan Alıntı: [ -> ]herkese merhaba
eksiğim olursa düzeltin kusuruma bakamayın delphide yeniyim bir türlü başarılı olamadım
şimdi bizim bir formumuz var bu formun içine bir sayı listesi gömüp bu sayı listesinden her hangi bir sayıyı ekrandaki edit alanına yazarak programı kapatmak istiyoruz toparlamak gerekirse
elimde bir form var formda login button var ve bir adette password editi var bix password editi içine girilecek değeri bizim belirlediğimiz listeden rastgele seçilerek yapılamsını isitiyoruz bunu nasıl yapabiliriz şimdidden teşekkürler
Selamlar,
Sayıyı parola yerine kullanmayın. Random'la kaç hanelik bir parola üretecekseniz her karakteri için bir Random çalıştırın.
şöyle olabilir,
Önce bir olası parola karakterleri dizini oluşturursunuz, sonra istenen parola uzunluğu kadar random sayı üretip bu dizinden karakter bulursunuz. Bunları art arda eklediğinizde parolayı elde etmiş olursunuz.
function GeneratePassword(const n : Integer) : string;
const
PossiblePasswordChars = 'ABCDEFGHIİJKLMNOÖPRSŞTUÜVYZabcdefghıijklmnoöprsştuüvyz1234567890!+%&@?-';
var
s : string;
i : Integer;
begin
Randomize;
s := '';
for i:=1 to n do
s := s + PossiblePasswordChars[Random(Length(PossiblePasswordChars))+1];
Result := s;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := GeneratePassword(10);
end;