I did something similar to this in Racket to generate unique filetype icons for unknown files. If you're careful with your defaults it can work really well.