This is a crypt routine that a big s/w vendor uses and this is the perl version of it. I just need to binarize it.