$wres += ($char * pow(32,($codelen - $i)));