Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Şifre Algoritması Oluşturma
#1
Lightbulb 
Arkadaşlar Merhaba;
Ben bilgi güvenliği kapsamında şifre algoritması oluşturmak istiyorum. 
Örnek olarak en az 8 karakter olacak, içinde en az 1 büyük harf ve 1 küçük harf, 1 noktalama işareti olacak şeklinde.

Karakter sayısını alıyorum ama string bir ifadenin içinde büyük harf varmı diye nasıl kontrol edeceğimi bilemiyoum.

bunun bir fonksiyonu varmı dır. yoksa karakterleri diziye atıp büyük mü diye mi kontrol etmeliyim bulamadım.

Yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.
Cevapla
#2
(13-07-2020, Saat: 15:21)ALUCARD Adlı Kullanıcıdan Alıntı: Arkadaşlar Merhaba;
Ben bilgi güvenliği kapsamında şifre algoritması oluşturmak istiyorum. 
Örnek olarak en az 8 karakter olacak, içinde en az 1 büyük harf ve 1 küçük harf, 1 noktalama işareti olacak şeklinde.

Karakter sayısını alıyorum ama string bir ifadenin içinde büyük harf varmı diye nasıl kontrol edeceğimi bilemiyoum.

bunun bir fonksiyonu varmı dır. yoksa karakterleri diziye atıp büyük mü diye mi kontrol etmeliyim bulamadım.

Yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.

Merhaba, 
bu iş için regex kullanılır. 
Başlık biraz yeni bir şifreleme algoritması oluşturma gibi yansımış ama sorun yok. 

^(?=.*[A-Z].*[A-Z])(?=.*[!@#$&*])(?=.*[0-9].*[0-9])(?=.*[a-z].*[a-z].*[a-z]).{8}$

Bu işini çözecektir. Kendine göre düzenleme yapabilirsin. 
Ayrıntılı cevap:https://stackoverflow.com/a/5142164

Delphi ile regex kullanma: https://stackoverflow.com/a/27535827

Mobildeyim diye teferruatlı yazamadım Smile
Yazılım Topluluğumuz -> Tıklayın
Kişisel Tanıtım Sitem -> Tıklayın
20 y/o, sadece öğrenmeye odaklanmış, insancık..
WWW
Cevapla
#3
(13-07-2020, Saat: 15:21)ALUCARD Adlı Kullanıcıdan Alıntı: Karakter sayısını alıyorum ama string bir ifadenin içinde büyük harf varmı diye nasıl kontrol edeceğimi bilemiyoum.

* RegEX zor gelirse ( kavraması biraz zaman alır ) strring fonksiyonlar biçilmiş kaftan.

Not: Characters kısmına dilediğin uygun karakterleri ekleyebilirsiniz.Numaraları ekstra eklemişim. soruyu okumadan kod yazarsan böyle oluyor. O kısmı bonus kabul et, dilersen çıkarç  Wink


function ProperPassword( aString : String ): boolean;
Const
  minChar = 8;
  UpperChars = [ 'A'..'Z' ];
  LowerChars = [ 'a'..'z' ];
  Numbers    = [ '0'..'9' ];
  Characters = [ '.', '_', '-', '|' ];
var
  i : Integer;
  upperOk, lowerOk, charOk, numberOk: Boolean;
begin
  Result := False; // default value
  if Length(aString) < minChar then Exit; // quit

  upperOk   := false;
  lowerOk   := false;
  charOk    := false;
  numberOk  := false;
  for i := 1 to Length(aString) do
  begin
    if aString[i] in UpperChars then upperOk  := True;
    if aString[i] in LowerChars then lowerOk  := True;
    if aString[i] in Characters then charOk   := True;
    if aString[i] in Numbers    then numberOk := True;
  end;
  Result := upperOk AND lowerOk and charOk and numberOk;
end;

Kullanımı :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ProperPassword( '12345.Muharrem' )
    then ShowMessage('OK')
    else ShowMessage('not proper');

end;
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Program içinden Dinamik Anket Oluşturma KarahanMesut 7 212 Dün, Saat: 13:30
Son Yorum: KarahanMesut
  Şablon Oluşturma Ve Kullanma KarahanMesut 1 114 15-10-2020, Saat: 20:11
Son Yorum: wiseman
  delphide kilitli kullanıcı kurtarma şifre değiştirme Ekvador 1 296 03-09-2020, Saat: 14:44
Son Yorum: pro_imaj
  Periyot Süre Raporu Oluşturma Selen 1 490 29-05-2020, Saat: 09:04
Son Yorum: bydelphi
  EFatura xml oluşturma ile ilgili kütüphane bilen? witalihakko 13 6.855 31-03-2020, Saat: 11:26
Son Yorum: akuyumcu63



Konuyu Okuyanlar: 1 Ziyaretçi