5 REM ********* HACKER *************** 10 REM WRITTEN BY DEV HORN 11 REM ***** COMPUCOM 1986 ************ 12 REM ALL RIGHTS RESERVED * COPYRIGHT 13 REM LAWS APPLY... 14 REM ******************************** 15 REM 16 LET FLAG=0 20 PRINT"[147]":PRINT"[158]":POKE53280,0:POKE53281,0 25 PRINT"" 30 PRINT" **********************************" 32 PRINT" * *" 34 PRINT" * [166] [166] [159] THE [158] *" 36 PRINT" * [166] [166] [156]MASTER [158] *" 38 PRINT" * [166][166][166][166] A C K E R [158] *" 40 PRINT" * [166] [166][158][184][184][184][184][184][184][184][184][184][184][184] *" 42 PRINT" * [166] [166] [158] BY [213][201] [213][201] *" 44 PRINT" * [221]OMPU[221]OM *" 46 PRINT" * [202][203] [202][203] *" 47 PRINT" * (1986) *" 48 PRINT" **********************************" 49 FORI=1TO1000:NEXTI 50 PRINT:PRINT:PRINT" [159]WRITTEN BY DEV HORN" 52 FORI=1TO1500:NEXTI:PRINT"[147]" 54 PRINT:PRINT:PRINT" THE NEXT SCREEN WILL DISPLAY SEVERAL" 55 PRINT 56 PRINT"'MYSTERY' NUMBERS THAT YOU MAY DIAL." 57 PRINT 58 PRINT"AFTER A NUMBER IS DIALED, THE CONNECTION" 59 PRINT"WILL BE ESTABLISHED. YOU WILL BE ONLINE" 60 PRINT"WITH ANOTHER COMPUTER SOMEWHERE. YOU" 61 PRINT 62 PRINT"MAY OR MAY NOT BE PROMPTED FOR INFORMA-" 63 PRINT 64 PRINT"TION. IT IS UP TO YOU TO DECIDE HOW TO" 65 PRINT 66 PRINT"GET INTO THE SYSTEM. GOOD LUCK TRYING" 67 PRINT 68 PRINT"TO BREAK THE CODES AND GUESS PASSWORDS." 70 PRINT:PRINT 72 PRINT" [158]-PRESS ANY KEY TO CONTINUE-" 74 PRINT"" 76 GETA$:IFA$=""THEN76 78 PRINT"[147]" 80 PRINT"" 82 PRINT" -MYSTERY NUMBERS-" 84 PRINT"[158]":PRINT 86 PRINT" ENTER TO DIAL" 88 PRINT" [183][183][183][183][183] [183][183][183][183][183][183][183]" 89 PRINT"[159]" 90 PRINT" 1 798-1024" 91 PRINT" 2 653-2230" 92 PRINT" 3 861-9309" 94 PRINT" 4 255-9835" 96 PRINT" 5 540-8135" 97 PRINT"" 98 PRINT:INPUT" ENTER CHOICE OR '0' TO EXIT-->";NUM 100 IF NUM=0THEN 9999 105 IF NUM>5THENPRINT" CHOICE OUT OF RANGE...RETRY":GOTO98 108 PRINT"[158] ---NOW DIALING NUMBER...PLEASE WAIT---" 109 FORI=1TO1500:NEXTI 110 IF NUM=1 THEN GOSUB 200 120 IF NUM=2 THEN GOSUB 400 125 IF NUM=3 THEN GOSUB 500 130 IF NUM=4 THEN GOSUB 800 140 IF NUM=5 THEN GOSUB 1000 150 GOTO 78 200 PRINT"[147]":PRINT"":LETCODE=0 202 PRINT" ******************************" 204 PRINT" * CENTRAL INTELLIGENCE *" 206 PRINT" * AGENCY *" 208 PRINT" ******************************" 209 LET CTR=0 210 IF CTR=4 THEN GOTO 225 211 PRINT:PRINT:PRINT"[158]ENTER YOUR FIVE DIGIT ACCESS CODE-" 212 INPUT"----->";CODE 213 IF CODE=0 THEN 227 214 IF CTR=4 THEN GOTO 225 215 IF CODE<20000 OR CODE>50000 THEN PRINT"--UNAUTHORIZED CODE...TRY AGAIN-" 216 IF CODE<20000 OR CODE>50000 THEN LET CTR=CTR+1 217 IF CODE<20000 OR CODE>50000 THEN GOTO210 220 GOTO 230 225 PRINT:PRINT:PRINT 227 PRINT"[159] ** CONNECTION TERMINATED ** " 228 FORI=1TO400:NEXTI 229 RETURN 230 PRINT"[147]":PRINT:PRINT:PRINT 232 PRINT"CONNECTION ESTABLISHED..." 233 LET CTR=0 234 PRINT:PRINT:PRINT 235 IF CTR=5 THEN GOTO 248 236 INPUT"ENTER QUERY CODE--->";QCD 238 IF QCD <0 OR QCD>3 THEN PRINT"--INVALID CODE--" 240 IF QCD <0 OR QCD>3 THEN LET CTR=CTR+1 242 IF QCD <0 OR QCD>3 THEN GOTO 235 244 GOTO 254 248 PRINT"[159] -- CONNECTION TERMINATED --" 250 FOR I=1TO 1000:NEXTI 252 RETURN 254 PRINT"[147]" 256 IF QCD=1 THEN GOSUB 265 258 IF QCD=2 THEN GOSUB 300 260 IF QCD=3 THEN GOSUB 350 263 FORI=1TO 1000:NEXTI 264 RETURN:REM-RETURNS TO NUMBER MENU 265 PRINT:PRINT:PRINT 266 LET FLAG=1 267 PRINT"[158] -- NUCLEAR MISSLE LAUNCH --" 269 PRINT:PRINT 270 FORI=1TO1000:NEXTI 272 INPUT"ENTER DESTINATION-->";DEST$ 274 INPUT"ENTER # OF WARHEADS-->";WH 276 FORI=1TO 1000:NEXTI 278 PRINTWH;" WARHEADS HAVE BEEN DEPLOYED." 280 FORI=1TO1000:NEXTI 282 PRINT"DESTINATION IS ";DEST$;"." 284 FORI=1TO1000:NEXTI 286 PRINT" EST. TIME OF ARRIVAL- 20.03 SECS." 288 FORI=1TO3000:NEXTI 290 PRINTDEST$;" HAS BEEN DESTROYED...." 292 FORI=1TO 2000:NEXTI 295 RETURN 300 PRINT:PRINT:PRINT 301 LET FLAG=2 302 PRINT"[158] -- ASSINATION --" 304 FORI=1TO 1000:NEXTI 305 PRINT 306 INPUT"ENTER NAME OF VICTIM-->";VCTM$ 308 INPUT"ENTER LOCATION OF VICTIM-->";LOCA$ 310 FORI=1TO1000:NEXTI 314 PRINT "SUBJECT- ";VCTM$ 316 PRINT "LOCATION- ";LOCA$ 317 FORI=1TO1000:NEXTI 318 PRINT " YOUR CODE HAS BEEN HAS BEEN CONFIRMED." 319 FORI=1TO1000:NEXTI 320 PRINT " THE ACTIVITY HAS BEEN SCHEDULED..." 321 FORI=1TO1000:NEXTI 322 PRINT " TIME TO ACTIVITY------- 04.56 HOURS" 324 FORI=1TO2000:NEXTI 330 RETURN 350 PRINT:PRINT:PRINT 353 PRINT"[158] -- TODAY'S SECRET MESSAGE --" 354 LET CTR=0 355 FORI=1TO1000:NEXTI 357 PRINT"ENTER YOUR FIVE DIGIT CODE AGAIN." 360 INPUT"--->";CD2 361 IF CD2 =0 THEN GOTO 370 362 IF CD2 = CODE THEN GOTO 375 363 IF CTR=5 THEN GOTO 370 364 PRINT" -THAT'S NOT YOUR CODE-TRY AGAIN-" 365 IF CTR=5 THEN GOTO 370 366 GOTO 360 368 GOTO 375 370 PRINT"[159] -CONNECTION TERMINATED-" 371 FOR I=1TO2000:NEXTI 372 RETURN 375 PRINT"[158]PLEASE WAIT-" 377 PRINT"SEARCHING UPDATE DIRECTORY..." 379 PRINT 380 FORI=1TO2000:NEXTI 382 IF FLAG=0 THEN GOTO 395 383 IF FLAG=2 THEN (null) TO 389 384 PRINTDEST$;" HAS BEEN DESTROYED IN" 385 PRINT"A ";WH;" WARHEAD ATTACK..." 386 FOR I=1TO2000:NEXTI 388 (null) TO 399 389 PRINTVCTM$;" IS SCHEDULED FOR " 390 PRINT"ASSINATION TODAY..." 391 FOR I=1TO2000:NEXTI 392 GOTO 399 395 PRINT" THERE IS NO MESSAGE AT THIS TIME." 397 FORI=1TO2000:NEXTI 399 RETURN 400 PRINT"[147]":PRINT:PRINT:PRINT:LETCTR=0:LETECD$="":LETX=0:LETCTR=0 401 IF CTR=5THEN425 402 INPUT"-->";X:LETCTR=CTR+1 404 IFX=0THEN401 405 IFX<500THEN401 406 PRINT" --------------------------" 407 PRINT" [180] SECRET SERVICE [170]" 408 PRINT" --------------------------" 410 FOR I=1TO1000:NEXTI 412 INPUT"ENTER 2 LETTER ENTRY CODE-";ECD$ 415 IF ECD$="SS"THEN 430 417 IF CTR=5 THEN GOTO 425 418 PRINT"[158]--INVALID CODE--TRY AGAIN..." 419 FORI=1TO1000:NEXTI 420 LETCTR=CTR+1 422 GOTO 412 425 PRINT"[159] -- CONNECTION TERMINATED --" 427 FORI=1TO1500:NEXTI 428 RETURN 430 PRINT"[147]":PRINT:PRINT 432 PRINT"[159] S E C R E T S E R V I C E" 434 PRINT" H O T L I N E" 436 PRINT:PRINT 438 LET CTR=0 442 PRINT:PRINT:PRINT"[158]ENTER YOUR FIVE DIGIT AGENT CODE-" 444 INPUT"----->";ACD 446 IF ACD=0 THEN GOTO 458 450 IF ACD<90000 OR ACD>95000 THEN LET CTR=CTR+1 452 IF CTR=5 THEN GOTO 458 453 IF ACD<90000 OR ACD>95000 THEN PRINT"--UNAUTHORIZED CODE...TRY AGAIN-" 454 IF ACD<90000 OR ACD>95000 THEN GOTO442 456 GOTO 466 458 PRINT:PRINT:PRINT 460 PRINT"[159] ** CONNECTION TERMINATED ** " 462 FORI=1TO1000:NEXTI 464 RETURN 466 PRINT"[147]":PRINT:PRINT:PRINT 468 PRINT" HIGH SECURITY ACCESS " 470 FOR I=1TO1000:NEXTI 472 PRINT:PRINT"[158] TODAY'S MESSAGE- ALL AGENTS ARE TO" 474 PRINT"MEET TOM0RROW AT 12:00 AT THE WHITE" 476 PRINT"HOUSE UNDERGROUND FACILITY. THE PRES-" 478 PRINT"IDENT'S LIFE HAS BEEN THREATENED BY" 480 PRINT"AN UNIDENTIFIED P.L.O. FACTION..." 482 PRINT:PRINT" YOUR SECRET PASSWORD WILL BE..." 484 FORI=1TO1500:NEXTI 485 PRINT 486 PRINT" STRAWBERRY" 488 FORI=1TO1500:NEXTI 490 PRINT"" 495 PRINT"[159] - PRESS ANY KEY TO LOGOFF -" 497 GETA$:IFA$=""THEN497 499 RETURN 500 PRINT"[147]":PRINT:PRINT:PRINT 505 GETN$:IFN$=""THEN505 510 IF N$="H"THEN 560 515 PRINT" INCORRECT ENTRY LETTER-CONSULT YOUR" 520 PRINT"A.T.& T. COMPUTER NETWORK INSTRUCTION" 525 PRINT"GUIDE. YOUR CALL IS AUTOMATICALLY " 530 PRINT"CANCELLED IF THE FIRST KEYSTROKE IS " 535 PRINT"NOT THE CORRECT ENTRY KEY..." 540 PRINT:PRINT:PRINT:FORI=1TO4000:NEXTI 545 PRINT"[159] >>>>> AUTOLOGOFF <<<<< " 550 FORI=1TO1700:NEXTI 555 RETURN 560 PRINT"[147]":PRINT 563 PRINT"--------------------------------------[158]" 565 PRINT" A TTTTT TTTTT" 570 PRINT" A A T T" 575 PRINT" A A T & T" 580 PRINT" AAAAA T T" 590 PRINT" A A [166] T [166] T [166]" 595 PRINT"--------------------------------------" 600 PRINT" [158]SATELLITE COMMUNICATIONS" 605 PRINT"--------------------------------------" 614 LET CTR=0 615 IF CTR=4 THEN GOTO 645 616 PRINT:PRINT"[159] ENTER YOUR SEVEN DIGIT AUTH-" 617 INPUT" ORIZATION CODE--->";AUTH 618 IF AUTH=0 THEN 645 620 IF CTR=4 THEN GOTO 645 625 IF AUTH<1000000 OR AUTH>1300000 THENPRINT"--UNAUTHORIZED CODE...TRY AGAIN-" 630 IF AUTH<1000000 OR AUTH>1300000 THEN LET CTR=CTR+1 635 IF AUTH<1000000 OR AUTH>1300000 THEN GOTO615 640 GOTO665 645 PRINT:PRINT:PRINT 650 PRINT"[159] ** CONNECTION TERMINATED ** " 655 FORI=1TO400:NEXTI 660 RETURN 665 PRINT:PRINT 670 PRINT"[158] REMOTE SITE SATELLITE" 673 PRINT" ADJUSTMENT" 676 PRINT"--------------------------------------" 679 LET CTR=0 680 IF CTR=4 THEN GOTO 695 683 INPUT"6 DIGIT SATELLITE CODE-->";SATL 684 IF SATL=0 THEN 695 686 IF CTR=4 THEN GOTO 695 687 IF SATL<500000 OR SATL>650000 THEN PRINT"--UNAUTHORIZED CODE...TRY AGAIN-" 688 IF SATL<500000 OR SATL>650000 THEN LET CTR=CTR+1 689 IF SATL<500000 OR SATL>650000 THEN GOTO680 691 GOTO 705 695 PRINT:PRINT:PRINT 700 PRINT"[159] ** CONNECTION TERMINATED ** " 701 FORI=1TO1200:NEXTI 703 RETURN 705 INPUT"ENTER NEW 'X' SETTING->";XS 710 INPUT"ENTER NEW 'Y' SETTING->";YS 715 INPUT"ENTER NEW 'Z' SETTING->";ZS 720 FOR I=1TO3000:NEXTI 723 PRINT 725 PRINT" ****SATELLITE ADJUSTED****" 798 FORI=1TO1800:NEXTI 799 RETURN 800 PRINT"[147]":PRINT:PRINT 802 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]" 804 PRINT"[215] M M [215]" 806 PRINT"[215] M[205] [206]M A S T E R C A R D [215]" 808 PRINT"[215] M V M BILLING NETWORK [158] [215]" 810 PRINT"[215] M M (AUTHORIZED PERSONNEL [215]" 812 PRINT"[215] ONLY) [215]" 814 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]" 816 LET CTR=0 818 PRINT:PRINT:PRINT"[158]ENTER YOUR 5 DIGIT AUTHORIZATION CODE-" 820 INPUT"----->";ACD 822 IF ACD=0 THEN GOTO 834 824 IF ACD<73000 OR ACD>89000 THEN LET CTR=CTR+1 826 IF CTR=5 THEN GOTO 834 828 IF ACD<73000 OR ACD>89000 THEN PRINT"--UNAUTHORIZED CODE...TRY AGAIN-" 830 IF ACD<73000 OR ACD>89000 THEN GOTO818 832 GOTO 842 834 PRINT:PRINT:PRINT 836 PRINT"[159] ** CONNECTION TERMINATED ** " 838 FORI=1TO1000:NEXTI 840 RETURN 842 PRINT"[147]":PRINT:PRINT:PRINT 844 PRINT" M A S T E R C A R D[158]" 846 PRINT"--------------------------------------" 847 PRINT" DEBIT/CREDIT/CANCEL[158]" 848 PRINT"--------------------------------------" 850 PRINT 852 LET CTR=0 854 IF CTR=4 THEN GOTO 872 856 PRINT:PRINT"[159] ENTER CREDIT CARD ACCOUNT" 858 INPUT" NUMBER--->";ACCT 859 IF ACCT=0 THEN 872 860 LET A$=STR$(ACCT) 861 IF LEN(A$)<8 OR LEN(A$)>8 THENPRINT" -ACCOUNT NUMBER IS 7 DIGITS- " 862 IF LEN(A$)<8 OR LEN(A$)>8 THEN GOTO 854 863 IF CTR=4 THEN GOTO 872 864 IF ACCT<4935000 OR ACCT>6123450 THENPRINT" -UNAUTHORIZED CODE...TRY AGAIN-" 866 IF ACCT<4935000 OR ACCT>6123450 THEN LET CTR=CTR+1 868 IF ACCT<4935000 OR ACCT>6123450 THEN GOTO854 870 GOTO879 872 PRINT:PRINT:PRINT 874 PRINT"[159] ** CONNECTION TERMINATED ** " 876 FORI=1TO600:NEXTI 878 RETURN 879 PRINT"[147]":PRINT:PRINT 880 PRINT"[158]ACCOUNT NUMBER-->";ACCT:PRINT 881 PRINT"--------------------------------------" 882 PRINT"[158]ENTER  -D- [159] FOR DEBIT" 884 PRINT" -C- [159] FOR CREDIT" 886 PRINT" -X- [159] TO CANCEL THE ACCOUNT" 888 PRINT:INPUT"-->";MC$ 890 IF MC$="D"ORMC$="C"ORMC$="X"THEN 894 892 GOTO882 894 IFMC$="X"THEN 898 895 PRINT:INPUT" AMOUNT-->";AMT 896 FORI=1TO1000:NEXTI:PRINT 897 PRINT" [156]-TRANSACTION COMPLETE-":FORI=1TO1700:NEXTI:RETURN 898 FORI=1TO1000:NEXTI:PRINT:PRINT" [156]-ACCOUNT DISCONTINUED-" 900 FORI=1TO1700:NEXTI:RETURN 1000 PRINT"[147]":PRINT" NUMBER OUT OF SERVICE..." 1005 FORI=1TO600:NEXTI 1010 RETURN 9999 END