Sha1.pas dosyası var ama .dcu yok?

[Shou]

Merhabalar bir dosyanın sha1 değeri almak istiyorum googleda bu kodu buldum :

http://www.koders.com/delphi/fid872E48E ... BD5AE.aspx

fakat uses kısmına sha1 yazdıgımda sha1.dcu yok diyor dcu dosyası paylaşılmamış yada nasıl kullanılıyor birisi örnek bir proje eklerse ve anlatırsa çok sevinirim şimdiden teşekkürler..

[Lost Soul]

dcu ya da pas birisi yeter. pas dosyasını projeye dahil etmeniz ya da browsing path dan dosyanın yerini göstermeniz gerekir.

[Shou]

teşekkür ederim ama eklıyorum deneme.zip adlı dosyanın sha1 değerine nasıl bakıcam onu yapamıyorum örnek proje paylaşırmısın basit birşey?

[Lost Soul]

sha1 le bahsettiğiniz gibi dosya üzerinde bir işim olmadı ancak pas dosyasındaki test metodu
kullanımına bir örnek teşkil ediyor zaten.

Kod: Tümünü seç

function SHA1SelfTest: boolean;
const
  s: string= 'abc'; //<============================
  OutDigest: TSHA1Digest=
    ($a9,$99,$3e,$36,$47,$06,$81,$6a,$ba,$3e,$25,$71,$78,$50,$c2,$6c,$9c,$d0,$d8,$9d);
var
  Context: TSHA1Context;
  Digest: TSHA1Digest;
begin
  SHA1Init(Context);
  SHA1Update(Context,@s[1],length(s)); //<==========================
  SHA1Final(Context,Digest);
  if CompareMem(@Digest,@OutDigest,Sizeof(Digest)) then
    Result:= true
  else
    Result:= false;
end;

[Shou]

Baktım ama kodu nereye yazıyor edit1.text dıorum olmuyor neden?

[Shou]

Yokmu yardımcı olacak dosyaların sha1 nasıl bakıcam ve edit1.text nasıl yazdırıcam?

[greenegitim]

Delphi Encryption Compendium bileşenini araştır
http://blog.digivendo.com/2008/11/delph ... -released/