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