加密解密函数(另附加密解密函数可逆测试程序)

加密解密函数（另附加密解密函数可逆测试程序） 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=""