Function Encode(Val SecretKey, Val Payload = Undefined, Val ExtraHeaders = Undefined) Export
   
   If Payload = Undefined Then
      Payload = New Structure;
   EndIf;
   
   header = New Structure;
   header.Insert("typ", "JWT");
   header.Insert("alg", "HS256");
   If ExtraHeaders <> Undefined Then
      For Each eh In ExtraHeaders Do
         header.Insert(eh.Key, eh.Value);
      EndDo;   
   EndIf;
   
   headerBytes = GetBinaryDataFromString(ComposeJSON(header));
   payloadBytes = GetBinaryDataFromString(ComposeJSON(Payload));
   
   segments = New Array;
   segments.Add(Base64UrlEncode(headerBytes));
   segments.Add(Base64UrlEncode(payloadBytes));
   
   stringToSign = StrConcat(segments, ".");
   
   signature = HMAC(
      GetBinaryDataFromString(SecretKey),
      GetBinaryDataFromString(stringToSign),
      HashFunction.SHA256);
      
   segments.Add(Base64UrlEncode(signature));
   
   res = StrConcat(segments, ".");
   
   Return res;

EndFunction