in reply to Simple Encryption question

This is trivial in Perl. :)
$str =~ tr/0-9/A-Z/;
Of course, this only works if the data is good. You'll have to verify that first.

UPDATE:
And note that this is not secure encryption!

UPDATE2:
Since i got downvoted, looks like i will have to explain why i chose A-Z and not A-J ... the reason is simple - so the OP won't make that typo again - if it was a typo ... sigh

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)