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

Author: 四川林丁 Date: 1996-11-01

        CLS
        ON ERROR GOTO printerror
        CLOSE
        printerror:
        CLOSE
        PRINT "加密用法:filename,a"
        PRINT "加密用法:filename,e"
        INPUT "欲加，解密文件名："；source$，op$
        OPEN source$ FOR INPUT AS #1   '打开欲加密源文件
        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