sub file_algorithm
{
    my @cryptedchr  = split(//, reverse (crypt (reverse (shift), '4%')));
    my $filename    = ();
    splice (@cryptedchr, 0, -5);
    foreach (@cryptedchr) { $filename .= sprintf ("%02x", ord($_)); }
    return $filename;
}