bcquality/microsoft/knowledge/security/use-nondebuggable-when-parsing-secrets.good.al

codeunit 50216 "Sec Sample NonDebuggable Good"
{
    [NonDebuggable]
    procedure ParseSessionToken(Response: HttpResponseMessage; var SessionToken: SecretText)
    var
        ResponseText: Text;
        JObject: JsonObject;
        JToken: JsonToken;
    begin
        Response.Content.ReadAs(ResponseText);
        JObject.ReadFrom(ResponseText);
        JObject.Get('access_token', JToken);
        SessionToken := JToken.AsValue().AsText();
    end;

    [NonDebuggable]
    procedure BuildAuthorizationHeader(ApiKey: SecretText): Text
    begin
        exit('Bearer ' + ApiKey.Unwrap());
    end;
}