加密代码解密??

现在调试一个考试系统,内有加密代码,其作用是日期控制,超过日期就提示适用期已过,分析链接文件后发现在一文件内有如下加密代码:

1@ LANGUAGE = VBScript.Encode

1#@~^dQAAAA==@#@&frsPt+13`d+M@#@&/Y~/4+m0i/D'Un.\DcZ.+COr8L^YvJr3Xl: 4/t^0jdDr#@#@&Z4nm0jd+MR(m&xkD~EbN~aA[~9lDl8ldn@#@&/CQAAA==^#~@

请教各位高手,请给出明文.感谢万分!

---------------------------------------------------------------

搜索"asp,反編譯,工具"工具太多了
---------------------------------------------------------------

明文是:

1@ LANGUAGE = VBScript.Encode

1   
2Dim CheckUser   
3set CheckUser=Server.CreateObject("iExam.WebCheckUser")   
4CheckUser.I_Init uid,pwd,database