Hi Codewalker,
ich hab die letzten Tage auch an diesem Thema gearbeitet ... bisweilen sehr erfolglos.
Aber jetzt endlich der Durchbruch - und das Danke Deiner Quellen hier!
Mit ein paar kleinen Änderungen hat Deine (bzw. Eure) klasse Vorarbeit nun endlich funktioniert und die Authentifizierung läuft glatt durch. Die Sache mit dem php-Vergleich hat mir auch gut gefallen und war recht hilfreich.
Hier mal mein Input:
Delphi-Quellcode:
function GenerateHMACSignature(Text, key: ansistring): ansistring;
var
ctx: THMAC_Context;
phash: PHashDesc;
mac: THashDigest;
begin
phash := FindHash_by_Name('SHA256');
if phash = nil then begin
{Action for 'Hash function not found/registered.'}
exit;
end;
hmac_init(ctx, phash, @key[1], length(key));
hmac_update(ctx, @Text[1], length(Text));
hmac_final(ctx, mac);
// Result := HexStr(@mac, sizeof(mac));
Result := Base64Str(@mac, sizeof(TSHA256Digest));
end;
(Base64Str nicht HexStr)
Diese Einbindung als zusätzlichen TSoapHeader
Delphi-Quellcode:
// sAWSID = Secret Key
AmazonTimestamp := FormatDateTime('yyyy"-"mm"-"dd"T"hh":"nn":00Z"', emt_now);
AmazonString := 'ItemSearch' + AmazonTimestamp;
AmazonSignature := GenerateHMACSignature( AmazonString, sAWSID );
brachte folgendes
funktionierende (!) Ergebnis (AWSAccessKeyID hab ich hier rausgenommen):
Delphi-Quellcode:
<?
xml version="1.0"?>
<
SOAP-ENV:Envelope xmlns:
SOAP-ENV="http:
//schemas.xmlsoap.org/soap/envelope/"
xmlns:xsd="http:
//www.w3.org/2001/XMLSchema"
xmlns:xsi="http:
//www.w3.org/2001/XMLSchema-instance">
<
SOAP-ENV:Header>
<AWSAccessKeyId xmlns="http:
//security.amazonaws.com/doc/2007-01-01/">...</AWSAccessKeyId>
<Timestamp xmlns="http:
//security.amazonaws.com/doc/2007-01-01/">2010-05-04T08:00:00Z</Timestamp>
<Signature xmlns="http:
//security.amazonaws.com/doc/2007-01-01/">kXCgfQHO3Mh1MXDul5o2HwLMYZHtnEBSY6uhnJt+XW4=</Signature>
</
SOAP-ENV:Header>
<
SOAP-ENV:Body><ItemSearch xmlns="http:
//webservices.amazon.com/AWSECommerceService/2009-11-01">...
Und genau diese Signature
kXCgf... bekomme ich auch über das (ebenfalls leicht korrigierte) php-Script
Delphi-Quellcode:
<?php
session_start();
$t = $_REQUEST["t"];
$k = $_REQUEST["k"];
if ((empty($t)) || (empty($k)))
{
die;
}
// Zum besseren Vergleich, Sek. auf 00 gesetzt
$aktuelle = gmdate("Y-m-d\TH:i:\\0\\0\Z");
// $aktuelle = gmdate("Y-m-d\TH:i:s\Z");
$aktuellezeit = urlencode($aktuelle);
// ! Zusammengesetzte HashDaten aus Aktion und Timestamp
$key = $t.$aktuelle;
$signature1 = hash_hmac("sha256", $key, $k, true);
$signature2 = base64_encode($signature1);
print "HashData: \t $key
";
print "Timestamp: \t $aktuelle
";
print "Timestamp (URLEnccode): \t $aktuellezeit
";
print "Text: \t $t
";
print "Key: \t $k
";
print "Result: \t $signature1
";
print "Result_Base64: \t $signature2";
?>
Output (AWS_Key hab ich entfernt):
Delphi-Quellcode:
HashData: ItemSearch2010-05-04T08:00:00Z
Timestamp: 2010-05-04T08:00:00Z
Timestamp (URLEnccode): 2010-05-04T08%3A00%3A00Z
Text: ItemSearch
Key:
Result: p }ÎÜÈu1pî6Ìaí@Rc«¡~]n
Result_Base64: kXCgfQHO3Mh1MXDul5o2HwLMYZHtnEBSY6uhnJt+XW4=
Gruss
nru
Zitat:
Es ist echt ein Krampf, die Schnittstelle war mal so gut
DAS kann ich nur bestätigen.