По, более чем скромному, описанию самой биржи как то так:
Код:
KEY:='xxxxxxxxxxxxxx';
SEKRET:='xxxxxxxxxxxxxx';
..........
Nonce:=DateTimeToUnix(now);
..........
WWW:='https://yobit.net/tapi/';
Par:=TStringList.Create;
Par.Add('method=getInfo');
..........
param:=Par[0];
if Par.Count>1 then for i:=1 to Par.Count-1 do param:=param+'&'+Par[i];
Par.add('nonce='+Nonce);
param:=param+'&nonce='+Nonce;
..........
sign:=SHA512DigestToHex(CalcHMAC_SHA512(SEKRET,param));
..........
IdSSL1:=TIdSSLIOHandlerSocketOpenSSL.Create();
..........
IdHTTP1:=TIdHTTP.Create();
IdHTTP1.IOHandler:=IdSSL1;
IdHTTP1.Request.CustomHeaders.AddValue('Key', KEY);
IdHTTP1.Request.CustomHeaders.AddValue('Sign', sign);
..........
Lin.Text:=IdHTTP1.Post(WWW,par);
Админ: Пользуемся тегами при оформлении кода!
Что то как то не получается аутентифицироваться.
Максимум что удалось выжать - это {"success":0,"error":"invalid sign"}.