sub file_algorithm
{
 return unpack('H*',reverse(substr(crypt (reverse (shift), '4%'),0,5)));
}