Forum: Sonstige Fragen zu Delphi
Delphi
by Codewalker,
30. Apr 2010
Wenn ich mich nicht vertan habe, dann bekomme ich als Ergebnis das folgende:
Timestamp: 2010-04-30T11:19:35Z
Timestamp (URLEnccode): 2010-04-30T11%3A19%3A35Z
Text: "Test"
Key: "geheim"
Result: xŠ¶!x'Á™c„Þ–ò°oSLÌ^R2Ÿa†iî¯"$
Result_Base64: eAGKtiF4J8GZY4TelvKwbxNTTMxeUjKfYYaPae6vIiQ=
Result_Hex: 7818ab6217827c1996384de96f2b06f13534ccc5e52329f61868f69eeaf2224
Forum: Sonstige Fragen zu Delphi
Delphi
by Codewalker,
30. Apr 2010
Also, ich habe das ganze aus einem funktionierenden PHP-Skript übernommen und versucht das ganze in Delphi umzusetzen. Das PHP-Skript ist wie folgt:
<?php
session_start();
$t = $_REQUEST;
$k = $_REQUEST;
if ((empty($t)) || (empty($k)))
{
die;
}
Forum: Sonstige Fragen zu Delphi
Delphi
by Codewalker,
19. Apr 2010
Okay, der Code war zusammengeschustert ... und das sieht man. Ich habs mal auf das Wesentliche reduziert.
uses HMAC, Hash, SHA256, mem_util;
{...}
function GenerateHMACSignature(Text: string; Key: string): string;
var
ctx: THMAC_Context;
Forum: Sonstige Fragen zu Delphi
Delphi
by Codewalker,
19. Apr 2010
Ganz so einfach ist es leider nicht. Das bitweise xor lässt sich nicht einfach auf Strings anwenden, das Padding muss man noch selbst implementieren (soweit bin ich hoffentlich) - Problem ist, dass ich keine Beispiele für gültige Ein-/Ausgaben gefunden habe, um zu testen, ob es denn überhaupt richtig ist.
Für alle die es ausprobieren oder mit basteln wollen, hier mal der gesamte Quelltext....