VB的SHA加密算法类模块,可以直接使用。