Don't reduce them to "decimal", convert them to numbers (hex), multiply them and convert back to hexadecimal representation (sprintf):

perl -wle "print sprintf '%08x', hex(shift)*hex(shift)" 12340f 33
[download]