tcl crypt

Anyone know how I could do encrypting something like perl crypt function only in tcl? I'm not much of a tcl person but have a new client and they want their scripts in tcl. Everything else I've pretty much got, but I have not found anything like crypt in tcl. Am I left with calling a perl script from within tcl? I'd rather not do that.