This is the quickest thing I could come up with. (I hope it works!)

#!/usr/bin/perl -w

use strict;

print jc('anStr');

sub jc 
{
  my ($c_str) = shift;
  return '{'.join(',',(map {"(byte)'$_'"} (split(//, $c_str)))).'}';
}
[download]

Update: My last update didn't make much sense, so I un-updated.

Impossible Robot