这是我用过的 Delphi 代码。只要改变参数的值来适应你的目的，并放入你自己的密钥。我把时间戳放在现在加上2.4小时-改变它来适应你自己的目的。

procedure TForm1.ButtonWorksClick(Sender: TObject);
var
  toHash, SecretAccessKey, dirstr, awssignature, sg, ts, link: String;
  sig: T160BitDigest;
  SystemTime1: SYSTEMTIME;
  dt1: TDateTime;
begin
  GetSystemTime(SystemTime1);
  dt1 := SystemTimeToDateTime(SystemTime1) + 0.1;
  ts := '&Timestamp=' + HTTPEncode(FormatDateTime('yyyy"-"mm"-"dd"T"hh":00:00.000Z', dt1));

  tohash := 'GET' + Chr(10) + 'ecs.amazonaws.com' + Chr(10) + '/onca/xml' + Chr(10) +
    'AWSAccessKeyId=AKIAID6DSLQQRYN3MDQA&AssociateTag=locboo01-20&Keywords=031238792X&Operation=ItemSearch&SearchIndex=Books' +
    '&Service=AWSECommerceService&SignatureMethod=HmacSHA1&SignatureVersion=2' + ts + '&Version=2011-08-01';

  SecretAccessKey := 'Your secret key here';

  Sig := cHash.CalcHMAC_SHA1(SecretAccessKey, tohash);
  dirstr := cHash.SHA1DigestAsString(Sig);
  awssignature := EncdDecd.EncodeString(dirstr);

  sg := HTTPApp.HTTPEncode(awssignature);
  link := 'http://ecs.amazonaws.com/onca/xml' + '?' +
    'AWSAccessKeyId=AKIAID6DSLQQRYN3MDQA&AssociateTag=locboo01-20&Keywords=031238792X&Operation=ItemSearch&SearchIndex=Books' +
    '&Service=AWSECommerceService&SignatureMethod=HmacSHA1&SignatureVersion=2' + ts + '&Version=2011-08-01' + '&Signature=' + sg;
  Clipboard.AsText := link;

  Memo1.Lines.Add(sg);
end;