加密解密函数(另附加密解密函数可逆测试程序) PublicFunctionUserCode(OptionalByValpasswordAsString)AsString '用户口令加密-非汉字 Dimil_bit,il_x,il_y,il_z,il_len,iAsLong Dimis_outAsString Ifpassword=""ThenExitFunction'注意此修改 il_len=Len(password) il_x=0 il_y=0 is_out=""