此文章还需要会程序的朋友帮忙验证下
（用VB讲讲吧。解其意，语句格式不一定正确啊)
其步聚如下：
dim la as long,lb as long,ba as byte
la=MIR2.DAt文件的长度
二进制方式打开MIR2.DAt
二进制方式创建Temp.Txt用于存放解密的文件
for lb=1 to la
  ba=读取一个字节
 if  ba=单数字 then
   ba=ba+1
  else
    ba=ba-1
  endif
  将Ba写入Temp.TXT
next lb
关闭打开的所有文件

用记事本打开Temp.txt看看吧