MD5 Hash

[dominikkv]

hi

für ein HTTP.Get brauche ich einen MD5-Hash.
In der Dokumentation der Webseite steht folgendes:

Zitat:

The algorithm for generating this token is as follows:
token := md5(md5(password) + timestamp)

The md5() function takes a string and returns the 32-byte ASCII hexadecimal representation of the MD5 hash, using lower case characters for the hex values. The '+' operator represents concatenation of the two strings.

den Timestamp hab ich, jetzt fehlt nur noch die richtige Hash-Funktion.
Ich hab mir mal die DEC angeschaut und folgendes versucht:

Delphi-Quellcode:

THash_MD5.CalcBinary(THash_MD5.CalcBinary(Passwort) + TimeStamp));

Leider führt das nicht zum Erfolg...
Hat jemand eine Idee?

mfg.Dominik

[Andreas L.]

http://www.google.com/codesearch?hl=...s_f=MD5.pas#a0

[mirage228]

Hey,

Wieso nimmst du nicht die Funktion CalcString von THash_MD5 ?

mfG
mirage228

[Luckie]

Zitat:

Zitat von dominikkv

Leider führt das nicht zum Erfolg...
Hat jemand eine Idee?

Ja, sag uns, was du unter "führt nicht um Erfolg" verstehst.

[dominikkv]

Zitat:

Zitat von Andreas L.

http://www.google.com/codesearch?hl=de&q=+md5.pas+show:cSgfkSoWP30:LkICx ivafk0:CAtxQJQb3aw&sa=N&cd=1&ct=rc&cs_p=http://www.daremon.gr/flickr/Releases/dFlickr-0.9.3b.zip&cs_f=MD5.pas#a0

Danke, werde ich mir nacher mal anschauen

Zitat:

Zitat von mirage228

Hey,
Wieso nimmst du nicht die Funktion CalcString von THash_MD5 ?

Ähh... weil es die nicht gibt?
Also bei mir aufjedenfall...

Zitat:

Zitat von Luckie

Zitat:

Zitat von dominikkv

Leider führt das nicht zum Erfolg...
Hat jemand eine Idee?

Ja, sag uns, was du unter "führt nicht um Erfolg" verstehst.

Das ist ein Teil von einem Handshake. (klick)
bisher bin ich so weit:

Delphi-Quellcode:

  TimeStamp := IntToStr(TimeStampHumanToUnix(Now, True));

  Memo1.Text := HTTP1.Get('http://post.audioscrobbler.com/?hs=true&p=1.2'+
        '&c=tst'+
        '&v=1.0'+
        '&u=mYname'+
        '&t='+TimeStamp+
        '&a='+THash_MD5.CalcBinary(THash_MD5.CalcBinary('mYpassword') + TimeStamp));
end;

und als Antwort kommt: BADAUTH
Und Benutzername und PW sind richtig (hab ich jetzt natürlich hier rausgenommen).

[Klaus01]

Guten Morgen,

in Deinem ersten Beitrag steht:

Zitat:

Zitat von dominikkv

The md5() function takes a string and returns the 32-byte ASCII hexadecimal representation of the MD5 hash, using lower case characters for the hex values. The '+' operator represents concatenation of the two strings.

Bist Du sicher, dass THash_md5.CalcBinary den md5 Hashwert als Stringzurückgibt?
Und bist Du sicher das die Zeichen die zurückgegeben werden auch alles kleine Zeichen sind?

Grüße
Klaus

[negaH]

Delphi-Quellcode:

THash_MD5.CalcBinary(THash_MD5.CalcBinary('mYpassword') + TimeStamp, TFormat_HEXL)

Steht doch in der Anleitung "lowercase formatted HEX string".

.CalcBinary(Daten, Format) erwartet bei Formt eine der TFormat_XYZ Klassen um den binären Digest in ein anderes Textformat zu konvertieren.

Gruß Hagen

[dominikkv]

hmm... kaum macht mans richtig, schon klappts...
in diesem Fall:

Delphi-Quellcode:

THash_MD5.CalcBinary(THash_MD5.CalcBinary('mYpw', TFormat_HEXL) + TimeStamp, TFormat_HEXL)

danke an euch alle :zwinker:

[negaH]

Die ziehen einen HEX-Formatierten Hash über das Passwort, hängen hintendran einen lesbar formatierten Timestamp und ziehen über das alles nochmal einen Hash. Das halte ich für hm nicht so gut.

Gruß Hagen