Here is the source for the object n_cst_crypto, which comes from the article I mentioned, except the function of_hash_a_password, which we modified:
-----------------------------------------------
forward
global type n_cst_crypto from nonvisualobject
end type
end forward
global type...