sub getChecksum {
    unpack '%A*', $_[0]
};