Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi Tarafında Hash Üretme
#1
Firebirdde bigint alanında Hash ile belirlediğim bir kaç sütunum bulunuyor
Yani
if (inserting or (updating) ) then begin
NEW.HASH_A=hash(NEW.KOLON_A);
end

KOLON_A dan elde ettiğim hash kodu HASH_A kolonuna yazılıyor.
Bunun Delphi Tarafındaki kodlaması gerekli.
Firebirdin Hash Kodlamasını Delphi/Pascal dilinde yapan hangi Fonksiyondur/Prosedürdür  bilen varmıdır?

Uygulamada şöyle kullanmam gerekli
Function HASH(str :string):string;
begin
....
hash kodları 
....
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text:=HASH(edit1.Text);
end;
Bunu öğrenebilirsem Firebirdin Harika bir özelliği artık çok kullanılışlı duruma gelecek.
Cevapla
#2
Selam
Net de gördüğüm kadarı ile hash algoritmasının içeriği dökümanlarda belirtilmemiş deniyor, yalnız aşağıdaki şekilde bir örnek gördüm bu linkte, https://stackoverflow.com/questions/1792...n-md5-hash

HASH( <string> [ USING <algorithm> ] )
algorithm ::= { MD5 | SHA1 | SHA256 | SHA512 }

select hash(x using sha256) from y;
--
select hash(x) from y; -- not recommended

şeklinde kullanım vermişler, MD5, SHA1, SHA256, SHA512 olarak delphide deneyip karşılığını bulabilirsiniz sanırım.

Gezinirken aşağıdakini buldum bir deneyin isterseniz.
-----------------------------------------------------------------------------------------------------
Bazı örneklerle oynarken Firebird karma algoritmasını çıkardım:

- Dizeyi ters çevirin
- İlk konumu p = 1 olarak düşünün
- Her karakter için, ASCII kodunu 4 * (p - 1) bit sola kaydırın ve öncekiyle toplayın
- Ortaya çıkan toplam karmadır

birde şurada kısa bir açıklaması yapılmış.

https://docplayer.ru/32149175-Rukovodstv...rsiya.html
WWW
Cevapla
#3
(25-06-2021, Saat: 14:34)esistem Adlı Kullanıcıdan Alıntı: Selam
Net de gördüğüm kadarı ile hash algoritmasının içeriği dökümanlarda belirtilmemiş deniyor, yalnız aşağıdaki şekilde bir örnek gördüm bu linkte, https://stackoverflow.com/questions/1792...n-md5-hash

HASH( <string> [ USING <algorithm> ] )    
algorithm ::= { MD5 | SHA1 | SHA256 | SHA512 }

select hash(x using sha256) from y;
--
select hash(x) from y; -- not recommended

şeklinde kullanım vermişler, MD5, SHA1, SHA256, SHA512 olarak delphide deneyip karşılığını bulabilirsiniz sanırım.

Gezinirken aşağıdakini buldum bir deneyin isterseniz.
-----------------------------------------------------------------------------------------------------
Bazı örneklerle oynarken Firebird karma algoritmasını çıkardım:

- Dizeyi ters çevirin
- İlk konumu p = 1 olarak düşünün
- Her karakter için, ASCII kodunu 4 * (p - 1) bit sola kaydırın ve öncekiyle toplayın
- Ortaya çıkan toplam karmadır

birde şurada kısa bir açıklaması yapılmış.

https://docplayer.ru/32149175-Rukovodstv...rsiya.html


select hash(x) from TABLO; 

Şu Satır Bir fikir verdi, Teşekkür ederim bakalım
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi 7 Unrar mcuyan 12 483 19-03-2024, Saat: 10:30
Son Yorum: frmman
Lightbulb Delphi 7zip Password lü Dosya Sıkıştırma ve Açma + Bonus RAR5 Desteği frmman 6 262 16-03-2024, Saat: 17:55
Son Yorum: delphi.developer
  delphi 12 ile TFileStream çalışmıyor aegean 5 424 05-03-2024, Saat: 22:23
Son Yorum: aegean
  Delphi ile geliştirdiğiniz uygulamalar neler? - İki Ödüllü Mr.Developer 20 12.683 01-01-2024, Saat: 22:46
Son Yorum: aegean
  Delphi 7 ye göre MB Döviz kurları nasıl alırız maydin60 7 964 31-12-2023, Saat: 02:18
Son Yorum: maydin60



Konuyu Okuyanlar: 1 Ziyaretçi