SHA! Unit gesucht

[himitsu]

http://www.delphipraxis.net/155688-mini-sha1.html


@Horst0815: Sicher daß dein Code noch in XE (2009+) läuft? (speziell der Selbsttest )

[Luckie]

Also ich habe die:

Delphi-Quellcode:

{******************************************************************}
{          MD5 Hashsum Evaluation Unit For Borland Delphi          }
{                                                                  }
{          Copyright © 2002 by Dimka Maslov                        }
{          E-mail:   [e-mail],                             }
{          Web-site: http://www.endimus.com                        }
{                                                                  }
{         Derived from the RSA Data Security, Inc.                 }
{         MD5 Message-Digest Algorithm described in RFC 1321       }
{         http://www.faqs.org/rfcs/rfc1321.html                    }
{******************************************************************}

Der kann ich eine Datei über geben und bekomme eine Digest zurück den ich mit einer Funktion aus der Unit in einen String umwandeln kann. Und so was suche ich auch für SHA1 bzw. der Unit von Horst übergebe ich wohl den Dateiinhalt als Buffer, aber wie wandele ich den Digest in einen String um?

[Aphton]

Ich dachte mir, du redest hiervon
http://www.michael-puff.de/Programmi...mporte/Aphton/

[Luckie]

Verdammt. Ich kenne mich auf meinen eigenen Webspace nicht mehr aus. Aber da ist SHA1 auch nicht dabei.

[Aphton]

Mich wundert aber das hier viel mehr

Zitat von Luckie:

(...) aber wie wandele ich den Digest in einen String um?

[Luckie]

Ich meinte die Unit von Horst. Oder habe ich da eine entsprechende Funktion übersehen? Arhg. Ich habe sie übersehen.

[gammatester]

Ich weiß zwar nicht wo Horst0815 seine erste Unit her hat, aber der Selbsttest funktioniert ab D12 so nicht mehr! In meiner Unit steht

Delphi-Quellcode:

function SHA1SelfTest: boolean;
  {-self test SHA1: compare with known value}
const
  s1: string[3] = 'abc';
  D1: TSHA1Digest= ($a9,$99,$3e,$36,$47,$06,$81,$6a,$ba,$3e,$25,$71,$78,$50,$c2,$6c,$9c,$d0,$d8,$9d);

Sein s: string= 'abc'; ist ab D12 Unicode und SHA1SelfTest liefert false! Selbst wenn das falsche SHA1Update(Context,@s[1],length(s)); durch SHA1Update(Context,@s[1],length(s)*sizeof(char)); ersetzt würde, käme selbstverständlich ein anderer Testwert heraus!