求教：谁帮我将下列2个函数的每一行功能解释一下，在线等，谢谢了！！

求教：谁帮我将下列2个函数的每一行功能解释一下，在线等，谢谢了！！
我学VB的，最近要做一个解密加密程序，想参照下面的这个程序的方式进行，但这段程序我看不懂，所以来此请高手帮我。在线等 我学VB的，最近要做