标题用“覆盖法”加密批处理文件的小程序

　　CLS
　　ON ERROR GOTO printerror
　　CLOSE
　　printerror:
　　CLOSE
　　PRINT "加密用法：filename，a"
　　PRINT "加密用法：filename，e"
　　INPUT "欲加，解密文件名：";source$，op$
　　OPEN source$ FOR INPUT AS 　　 '打开欲加密源文件
　　OPEN "temp.txt" FOR OUTPUT AS #2　 '建立临时文件
　　IF op$="a" THEN
　　cl$=CHR$(10):c2$=CHR$(0)
　　ELSEIF op$="e" THEN
　　cl$=CHR$(0):c2$=CHR$(10)
　　ELSE
　　GOTO printerror
　　END IF
　　DO　 '建立循环
　　A$=INPUT$(1，#1)　 '从源文件读取一个字符
　　IF cl$=A$ THEN　 '判断：若为cl$(加密时为OAH，解密为00H)，则写c2$(加密时为00H，解密时为　　0AH)至临时文件
　　PRINT #2，C2$;
　　ELSE　 '否则
　　PRINT #2，A$；　 '直接写该字符至临时文件
　　END IF　 '结束判断
　　LOOP UNTIL (EOF(1))　 '循环读取字符，若遇到文件结束符则终止循环
　　CLOSE　 '关闭两文件
　　KILL source$　 '删除源文件
　　NAME "temp.txt"AS source$　 '将临时文件改名为源文件
　　SYSTEM　　'退出QBASIC