BASIC程序高级加密法

Author: 保定市财税中专微机室 杨建明 Date: 1992-10-16

        下面介绍一种BASIC程序的高级加密法,步骤如下:
        首先进入监控状态,并键入下列机器码:
        0300- A9 7F 20 F0 FD A2 00 E8
        0308- 2C 10 C0 20 DD FB AD 00
        0310- C0 10 F8 C9 8D F0 0D 49
        0318- 7F 9D 70 03 8A 20 F0 FD
        0320- E0 4F D0 E3 86 FF E0 01
        0328- F0 34 A0 00 B1 67 85 F9
        0330- C8 B1 67 85 FA B1 F9 B5
        0338- FC 88 84 FB B1 F9 AB A2
        0340- 00 E8 E4 FF D0 02 A2 01
        0348- C8 D0 02 E6 FC BD 70 03
        0350- 51 FB 91 FB A5 FC C5 B0
        0358- D0 E7 C4 AF D0 E3 20 8E
        0360- FD A9 61 20 F0 FD 60 FF
        0360- FF FF
        返回BASIC状态,键入:
        BSAVE JM.SUB,A$300,L$69
        然后输入或从盘上把要加密的BASIC(浮点)程序送入机内,并在程序前加入一条语句:
        0 PRINT CHR $ (4);"BLOAD JM.SUB":CALL 768
        再键入: CALL 768
        这时,屏幕上出现反相的“?”并不断响铃。可键入1-79个除“”和“CTRL_RESET”以外的任意键字符组成的密钥,并以结束。(若不输密钥而直接按“”将不加/解密)。当出现反相的“!”表示加密结束。
        加密后键入:SAVE XXXX(文件名)
        至此,完成加密,并以XXXX名存盘,注意,一定要记住加密时所用的密钥。
        当运行加密的BASIC程序时,键入:
        RUN XXXX(加密程序名)
        程序会自动地把JM.SUB子程序调入内存,并呼叫它。这时,会出现加密时显示的“?”并响铃,然后键入加密时所用的密钥,如果正确,程序将继续运行,否则拒绝执行下去,此时需按复位键“CTRL+RESET”。
        本方法已在APPLE-ⅡE上通过。