in the incoming contexts, add:

[macro-dialexten]
exten => s,1,Set(blklst=${DB(BLACKLIST/${MACRO_EXTEN}/${CALLERID(num)})})
exten => s,n,GotoIf(${blklst}?:noblklst)
exten => s,n,Playback(privacy-you-are-blacklisted|noanswer)
exten => s,n,Hangup(17)  ; give busy or send to voicemail if you want
;exten => s,n,VoiceMail(${MACRO_EXTEN}|u)
exten => s,n(noblklst),NoOp(HERE GOES THE REST OF THE DIALPLAN)
exten => s,n,.....

in your features place:

; Blacklist per user
exten => *54,1,Goto(add-to-blacklist|s|1)
exten => *55,1,Goto(remove-from-blacklist|s|1) 

[add-to-blacklist]
exten => s,1,Playback(enter-num-blacklist)
exten => s,n,Read(blacknr,then-press-pound)
exten => s,n,SayDigits(${blacknr})
exten => s,n,Background(if-correct-press)
exten => s,n,Background(digits/1)
exten => s,n,Background(if-this-is-not-correct)
exten => s,n,Background(digits/2)
exten => s,n,WaitExten(10)
exten => s,n,Goto(t|1)
exten => 1,1,Set(DB(BLACKLIST/${CALLERID(num)}/${blacknr})=1)
exten => 1,n,Playback(num-was-successfully)
exten => 1,n,Playback(added)
exten => 1,n,Hangup(16)
exten => 2,1,Goto(s|1)
exten => t,1,Playback(nothing-recorded)
exten => t,n,Hangup(16)

[remove-from-blacklist]
exten => s,1,Playback(entr-num-rmv-blklist)
exten => s,n,Read(blacknr,then-press-pound)
exten => s,n,SayDigits(${blacknr})
exten => s,n,Background(if-correct-press)
exten => s,n,Background(digits/1)
exten => s,n,Background(if-this-is-not-correct)
exten => s,n,Background(digits/2)
exten => s,n,WaitExten(10)
exten => s,n,Goto(t|1)
exten => 1,1,NoOp(${DB_DELETE(BLACKLIST/${CALLERID(num)}/${blacknr})})
exten => 1,n,Playback(num-was-successfully)
exten => 1,n,Playback(removed)
exten => 1,n,Hangup(16)
exten => 2,1,Goto(s|1)
exten => t,1,Playback(nothing-recorded)
exten => t,n,Hangup(16)

in the incoming contexts, add:

::CODECOLORERCOMMENT1::

in your features place:

::CODECOLORERCOMMENT2::