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