Molecular Dynamic Simulation of Water Vapor and Determination of Diffusion Characteristics in the Pore