Or... expressed golf-style in fewer keystrokes...

Ooooh, ooooh, Golf! Can I play?

%a=(qw/b a z c n o/);@l=qw/o r t n k l e m/;$r=sprintf('%x',15);
print"\U$r\E$l[1]$a{b}",map{$l[$_]}3..4;$\=" \u$l[4]$a{n}$a{n}$l[4]";
print", Jus$l[2] \u$a{b}$l[3]$l[0]$l[2]h$l[6]$l[1] \u$a{z}$a{b}".
join"",map{$l[8-$_]}1..3
[download]

I'm sure someone can come along and trim off a few more strokes...

---

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]