home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64misc / hack2 (.txt) < prev    next >
Commodore BASIC  |  1989-06-02  |  10KB  |  351 lines
  1. 5 REM ********* HACKER ***************
  2. 10 REM WRITTEN BY DEV HORN
  3. 11 REM ***** COMPUCOM 1986 ************
  4. 12 REM ALL RIGHTS RESERVED * COPYRIGHT
  5. 13 REM       LAWS APPLY...
  6. 14 REM ********************************
  7. 15 REM
  8. 16 LET FLAG=0
  9. 20 PRINT"[147]":PRINT"[158]":POKE53280,0:POKE53281,0
  10. 25 PRINT""
  11. 30 PRINT"    **********************************"
  12. 32 PRINT"    *                                *"
  13. 34 PRINT"    *     [166]  [166]  [159] THE   [158]              *"
  14. 36 PRINT"    *     [166]  [166]  [156]MASTER  [158]             *"
  15. 38 PRINT"    *     [166][166][166][166] A C K E R  [158]           *"
  16. 40 PRINT"    *     [166]  [166][158][184][184][184][184][184][184][184][184][184][184][184]            *"
  17. 42 PRINT"    *     [166]  [166]  [158] BY   [213][201]   [213][201]        *"
  18. 44 PRINT"    *                 [221]OMPU[221]OM       *"
  19. 46 PRINT"    *                 [202][203]   [202][203]        *"
  20. 47 PRINT"    *                      (1986)    *"
  21. 48 PRINT"    **********************************"
  22. 49 FORI=1TO1000:NEXTI
  23. 50 PRINT:PRINT:PRINT"           [159]WRITTEN BY DEV HORN"
  24. 52 FORI=1TO1500:NEXTI:PRINT"[147]"
  25. 54 PRINT:PRINT:PRINT"   THE NEXT SCREEN WILL DISPLAY SEVERAL"
  26. 55 PRINT
  27. 56 PRINT"'MYSTERY' NUMBERS THAT YOU MAY DIAL."
  28. 57 PRINT
  29. 58 PRINT"AFTER A NUMBER IS DIALED, THE CONNECTION"
  30. 59 PRINT"WILL BE ESTABLISHED.  YOU WILL BE ONLINE"
  31. 60 PRINT"WITH ANOTHER COMPUTER SOMEWHERE.  YOU"
  32. 61 PRINT
  33. 62 PRINT"MAY OR MAY NOT BE PROMPTED FOR INFORMA-"
  34. 63 PRINT
  35. 64 PRINT"TION.  IT IS UP TO YOU TO DECIDE HOW TO"
  36. 65 PRINT
  37. 66 PRINT"GET INTO THE SYSTEM.  GOOD LUCK TRYING"
  38. 67 PRINT
  39. 68 PRINT"TO BREAK THE CODES AND GUESS PASSWORDS."
  40. 70 PRINT:PRINT
  41. 72 PRINT"       [158]-PRESS ANY KEY TO CONTINUE-"
  42. 74 PRINT""
  43. 76 GETA$:IFA$=""THEN76
  44. 78 PRINT"[147]"
  45. 80 PRINT""
  46. 82 PRINT"           -MYSTERY NUMBERS-"
  47. 84 PRINT"[158]":PRINT
  48. 86 PRINT"         ENTER         TO DIAL"
  49. 88 PRINT"         [183][183][183][183][183]         [183][183][183][183][183][183][183]"
  50. 89 PRINT"[159]"
  51. 90 PRINT"           1           798-1024"
  52. 91 PRINT"           2           653-2230"
  53. 92 PRINT"           3           861-9309"
  54. 94 PRINT"           4           255-9835"
  55. 96 PRINT"           5           540-8135"
  56. 97 PRINT""
  57. 98 PRINT:INPUT"  ENTER CHOICE OR '0' TO EXIT-->";NUM
  58. 100 IF NUM=0THEN 9999
  59. 105 IF NUM>5THENPRINT" CHOICE OUT OF RANGE...RETRY":GOTO98
  60. 108 PRINT"[158] ---NOW DIALING NUMBER...PLEASE WAIT---"
  61. 109 FORI=1TO1500:NEXTI
  62. 110 IF NUM=1 THEN GOSUB 200
  63. 120 IF NUM=2 THEN GOSUB 400
  64. 125 IF NUM=3 THEN GOSUB 500
  65. 130 IF NUM=4 THEN GOSUB 800
  66. 140 IF NUM=5 THEN GOSUB 1000
  67. 150 GOTO 78
  68. 200 PRINT"[147]":PRINT"":LETCODE=0
  69. 202 PRINT"     ******************************"
  70. 204 PRINT"     *    CENTRAL INTELLIGENCE    *"
  71. 206 PRINT"     *          AGENCY            *"
  72. 208 PRINT"     ******************************"
  73. 209 LET CTR=0
  74. 210 IF CTR=4 THEN GOTO 225
  75. 211 PRINT:PRINT:PRINT"[158]ENTER YOUR FIVE DIGIT ACCESS CODE-"
  76. 212 INPUT"----->";CODE
  77. 213 IF CODE=0 THEN 227
  78. 214 IF CTR=4 THEN GOTO 225
  79. 215 IF CODE<20000 OR CODE>50000 THEN PRINT"--UNAUTHORIZED CODE...TRY AGAIN-"
  80. 216 IF CODE<20000 OR CODE>50000 THEN LET CTR=CTR+1
  81. 217 IF CODE<20000 OR CODE>50000 THEN GOTO210
  82. 220 GOTO 230
  83. 225 PRINT:PRINT:PRINT
  84. 227 PRINT"[159]      ** CONNECTION TERMINATED ** "
  85. 228 FORI=1TO400:NEXTI
  86. 229 RETURN
  87. 230 PRINT"[147]":PRINT:PRINT:PRINT
  88. 232 PRINT"CONNECTION ESTABLISHED..."
  89. 233 LET CTR=0
  90. 234 PRINT:PRINT:PRINT
  91. 235 IF CTR=5 THEN GOTO 248
  92. 236 INPUT"ENTER QUERY CODE--->";QCD
  93. 238 IF QCD <0 OR QCD>3 THEN PRINT"--INVALID CODE--"
  94. 240 IF QCD <0 OR QCD>3 THEN LET CTR=CTR+1
  95. 242 IF QCD <0 OR QCD>3 THEN GOTO 235
  96. 244 GOTO 254
  97. 248 PRINT"[159]       -- CONNECTION TERMINATED --"
  98. 250 FOR I=1TO 1000:NEXTI
  99. 252 RETURN
  100. 254 PRINT"[147]"
  101. 256 IF QCD=1 THEN GOSUB 265
  102. 258 IF QCD=2 THEN GOSUB 300
  103. 260 IF QCD=3 THEN GOSUB 350
  104. 263 FORI=1TO 1000:NEXTI
  105. 264 RETURN:REM-RETURNS TO NUMBER MENU
  106. 265 PRINT:PRINT:PRINT
  107. 266 LET FLAG=1
  108. 267 PRINT"[158]      -- NUCLEAR MISSLE LAUNCH --"
  109. 269 PRINT:PRINT
  110. 270 FORI=1TO1000:NEXTI
  111. 272 INPUT"ENTER DESTINATION-->";DEST$
  112. 274 INPUT"ENTER # OF WARHEADS-->";WH
  113. 276 FORI=1TO 1000:NEXTI
  114. 278 PRINTWH;" WARHEADS HAVE BEEN DEPLOYED."
  115. 280 FORI=1TO1000:NEXTI
  116. 282 PRINT"DESTINATION IS ";DEST$;"."
  117. 284 FORI=1TO1000:NEXTI
  118. 286 PRINT"    EST. TIME OF ARRIVAL- 20.03 SECS."
  119. 288 FORI=1TO3000:NEXTI
  120. 290 PRINTDEST$;" HAS BEEN DESTROYED...."
  121. 292 FORI=1TO 2000:NEXTI
  122. 295 RETURN
  123. 300 PRINT:PRINT:PRINT
  124. 301 LET FLAG=2
  125. 302 PRINT"[158]         --   ASSINATION   --"
  126. 304 FORI=1TO 1000:NEXTI
  127. 305 PRINT
  128. 306 INPUT"ENTER NAME OF VICTIM-->";VCTM$
  129. 308 INPUT"ENTER LOCATION OF VICTIM-->";LOCA$
  130. 310 FORI=1TO1000:NEXTI
  131. 314 PRINT "SUBJECT-  ";VCTM$
  132. 316 PRINT "LOCATION- ";LOCA$
  133. 317 FORI=1TO1000:NEXTI
  134. 318 PRINT "  YOUR CODE HAS BEEN HAS BEEN CONFIRMED."
  135. 319 FORI=1TO1000:NEXTI
  136. 320 PRINT "  THE ACTIVITY HAS BEEN SCHEDULED..."
  137. 321 FORI=1TO1000:NEXTI
  138. 322 PRINT "  TIME TO ACTIVITY-------  04.56 HOURS"
  139. 324 FORI=1TO2000:NEXTI
  140. 330 RETURN
  141. 350 PRINT:PRINT:PRINT
  142. 353 PRINT"[158]      -- TODAY'S SECRET MESSAGE --"
  143. 354 LET CTR=0
  144. 355 FORI=1TO1000:NEXTI
  145. 357 PRINT"ENTER YOUR FIVE DIGIT CODE AGAIN."
  146. 360 INPUT"--->";CD2
  147. 361 IF CD2 =0  THEN GOTO 370
  148. 362 IF CD2 = CODE THEN GOTO 375
  149. 363 IF CTR=5 THEN GOTO 370
  150. 364 PRINT"    -THAT'S NOT YOUR CODE-TRY AGAIN-"
  151. 365 IF CTR=5 THEN GOTO 370
  152. 366 GOTO 360
  153. 368 GOTO 375
  154. 370 PRINT"[159]          -CONNECTION TERMINATED-"
  155. 371 FOR I=1TO2000:NEXTI
  156. 372 RETURN
  157. 375 PRINT"[158]PLEASE WAIT-"
  158. 377 PRINT"SEARCHING UPDATE DIRECTORY..."
  159. 379 PRINT
  160. 380 FORI=1TO2000:NEXTI
  161. 382 IF FLAG=0 THEN GOTO 395
  162. 383 IF FLAG=2 THEN (null) TO 389
  163. 384 PRINTDEST$;" HAS BEEN DESTROYED IN"
  164. 385 PRINT"A ";WH;" WARHEAD ATTACK..."
  165. 386 FOR I=1TO2000:NEXTI
  166. 388 (null) TO 399
  167. 389 PRINTVCTM$;" IS SCHEDULED FOR "
  168. 390 PRINT"ASSINATION TODAY..."
  169. 391 FOR I=1TO2000:NEXTI
  170. 392 GOTO 399
  171. 395 PRINT"    THERE IS NO MESSAGE AT THIS TIME."
  172. 397 FORI=1TO2000:NEXTI
  173. 399 RETURN
  174. 400 PRINT"[147]":PRINT:PRINT:PRINT:LETCTR=0:LETECD$="":LETX=0:LETCTR=0
  175. 401 IF CTR=5THEN425
  176. 402 INPUT"-->";X:LETCTR=CTR+1
  177. 404 IFX=0THEN401
  178. 405 IFX<500THEN401
  179. 406 PRINT"        --------------------------"
  180. 407 PRINT"        [180]     SECRET SERVICE     [170]"
  181. 408 PRINT"        --------------------------"
  182. 410 FOR I=1TO1000:NEXTI
  183. 412 INPUT"ENTER 2 LETTER ENTRY CODE-";ECD$
  184. 415 IF ECD$="SS"THEN 430
  185. 417 IF CTR=5 THEN GOTO 425
  186. 418 PRINT"[158]--INVALID CODE--TRY AGAIN..."
  187. 419 FORI=1TO1000:NEXTI
  188. 420 LETCTR=CTR+1
  189. 422 GOTO 412
  190. 425 PRINT"[159]       -- CONNECTION TERMINATED --"
  191. 427 FORI=1TO1500:NEXTI
  192. 428 RETURN
  193. 430 PRINT"[147]":PRINT:PRINT
  194. 432 PRINT"[159]      S E C R E T    S E R V I C E"
  195. 434 PRINT"              H O T L I N E"
  196. 436 PRINT:PRINT
  197. 438 LET CTR=0
  198. 442 PRINT:PRINT:PRINT"[158]ENTER YOUR FIVE DIGIT AGENT CODE-"
  199. 444 INPUT"----->";ACD
  200. 446 IF ACD=0 THEN GOTO 458
  201. 450 IF ACD<90000 OR ACD>95000 THEN LET CTR=CTR+1
  202. 452 IF CTR=5 THEN GOTO 458
  203. 453 IF ACD<90000 OR ACD>95000 THEN PRINT"--UNAUTHORIZED CODE...TRY AGAIN-"
  204. 454 IF ACD<90000 OR ACD>95000 THEN GOTO442
  205. 456 GOTO 466
  206. 458 PRINT:PRINT:PRINT
  207. 460 PRINT"[159]      ** CONNECTION TERMINATED ** "
  208. 462 FORI=1TO1000:NEXTI
  209. 464 RETURN
  210. 466 PRINT"[147]":PRINT:PRINT:PRINT
  211. 468 PRINT"         HIGH SECURITY ACCESS  "
  212. 470 FOR I=1TO1000:NEXTI
  213. 472 PRINT:PRINT"[158]  TODAY'S MESSAGE- ALL AGENTS ARE TO"
  214. 474 PRINT"MEET TOM0RROW AT 12:00 AT THE WHITE"
  215. 476 PRINT"HOUSE UNDERGROUND FACILITY.  THE PRES-"
  216. 478 PRINT"IDENT'S LIFE HAS BEEN THREATENED BY"
  217. 480 PRINT"AN UNIDENTIFIED P.L.O. FACTION..."
  218. 482 PRINT:PRINT"  YOUR SECRET PASSWORD WILL BE..."
  219. 484 FORI=1TO1500:NEXTI
  220. 485 PRINT
  221. 486 PRINT"             STRAWBERRY"
  222. 488 FORI=1TO1500:NEXTI
  223. 490 PRINT""
  224. 495 PRINT"[159]      - PRESS ANY KEY TO LOGOFF -"
  225. 497 GETA$:IFA$=""THEN497
  226. 499 RETURN
  227. 500 PRINT"[147]":PRINT:PRINT:PRINT
  228. 505 GETN$:IFN$=""THEN505
  229. 510 IF N$="H"THEN 560
  230. 515 PRINT"   INCORRECT ENTRY LETTER-CONSULT YOUR"
  231. 520 PRINT"A.T.& T. COMPUTER NETWORK INSTRUCTION"
  232. 525 PRINT"GUIDE.   YOUR CALL IS AUTOMATICALLY "
  233. 530 PRINT"CANCELLED IF THE FIRST KEYSTROKE IS "
  234. 535 PRINT"NOT THE CORRECT ENTRY KEY..."
  235. 540 PRINT:PRINT:PRINT:FORI=1TO4000:NEXTI
  236. 545 PRINT"[159]        >>>>> AUTOLOGOFF <<<<< "
  237. 550 FORI=1TO1700:NEXTI
  238. 555 RETURN
  239. 560 PRINT"[147]":PRINT
  240. 563 PRINT"--------------------------------------[158]"
  241. 565 PRINT"          A    TTTTT   TTTTT"
  242. 570 PRINT"         A A     T       T"
  243. 575 PRINT"        A   A    T   &   T"
  244. 580 PRINT"        AAAAA    T       T"
  245. 590 PRINT"        A   A [166]  T [166]     T [166]"
  246. 595 PRINT"--------------------------------------"
  247. 600 PRINT"       [158]SATELLITE COMMUNICATIONS"
  248. 605 PRINT"--------------------------------------"
  249. 614 LET CTR=0
  250. 615 IF CTR=4 THEN GOTO 645
  251. 616 PRINT:PRINT"[159]     ENTER YOUR SEVEN DIGIT AUTH-"
  252. 617 INPUT"     ORIZATION CODE--->";AUTH
  253. 618 IF AUTH=0 THEN 645
  254. 620 IF CTR=4 THEN GOTO 645
  255. 625 IF AUTH<1000000 OR AUTH>1300000 THENPRINT"--UNAUTHORIZED CODE...TRY AGAIN-"
  256. 630 IF AUTH<1000000 OR AUTH>1300000 THEN LET CTR=CTR+1
  257. 635 IF AUTH<1000000 OR AUTH>1300000 THEN GOTO615
  258. 640 GOTO665
  259. 645 PRINT:PRINT:PRINT
  260. 650 PRINT"[159]      ** CONNECTION TERMINATED ** "
  261. 655 FORI=1TO400:NEXTI
  262. 660 RETURN
  263. 665 PRINT:PRINT
  264. 670 PRINT"[158]        REMOTE SITE SATELLITE"
  265. 673 PRINT"              ADJUSTMENT"
  266. 676 PRINT"--------------------------------------"
  267. 679 LET CTR=0
  268. 680 IF CTR=4 THEN GOTO 695
  269. 683 INPUT"6 DIGIT SATELLITE CODE-->";SATL
  270. 684 IF SATL=0 THEN 695
  271. 686 IF CTR=4 THEN GOTO 695
  272. 687 IF SATL<500000 OR SATL>650000 THEN PRINT"--UNAUTHORIZED CODE...TRY AGAIN-"
  273. 688 IF SATL<500000 OR SATL>650000 THEN LET CTR=CTR+1
  274. 689 IF SATL<500000 OR SATL>650000 THEN GOTO680
  275. 691 GOTO 705
  276. 695 PRINT:PRINT:PRINT
  277. 700 PRINT"[159]      ** CONNECTION TERMINATED ** "
  278. 701 FORI=1TO1200:NEXTI
  279. 703 RETURN
  280. 705 INPUT"ENTER NEW 'X' SETTING->";XS
  281. 710 INPUT"ENTER NEW 'Y' SETTING->";YS
  282. 715 INPUT"ENTER NEW 'Z' SETTING->";ZS
  283. 720 FOR I=1TO3000:NEXTI
  284. 723 PRINT
  285. 725 PRINT"     ****SATELLITE ADJUSTED****"
  286. 798 FORI=1TO1800:NEXTI
  287. 799 RETURN
  288. 800 PRINT"[147]":PRINT:PRINT
  289. 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]"
  290. 804 PRINT"[215]   M   M                            [215]"
  291. 806 PRINT"[215]   M[205] [206]M A S T E R C A R D          [215]"
  292. 808 PRINT"[215]   M V M       BILLING NETWORK [158]     [215]"
  293. 810 PRINT"[215]   M   M    (AUTHORIZED PERSONNEL   [215]"
  294. 812 PRINT"[215]                    ONLY)           [215]"
  295. 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]"
  296. 816 LET CTR=0
  297. 818 PRINT:PRINT:PRINT"[158]ENTER YOUR 5 DIGIT AUTHORIZATION CODE-"
  298. 820 INPUT"----->";ACD
  299. 822 IF ACD=0 THEN GOTO 834
  300. 824 IF ACD<73000 OR ACD>89000 THEN LET CTR=CTR+1
  301. 826 IF CTR=5 THEN GOTO 834
  302. 828 IF ACD<73000 OR ACD>89000 THEN PRINT"--UNAUTHORIZED CODE...TRY AGAIN-"
  303. 830 IF ACD<73000 OR ACD>89000 THEN GOTO818
  304. 832 GOTO 842
  305. 834 PRINT:PRINT:PRINT
  306. 836 PRINT"[159]      ** CONNECTION TERMINATED ** "
  307. 838 FORI=1TO1000:NEXTI
  308. 840 RETURN
  309. 842 PRINT"[147]":PRINT:PRINT:PRINT
  310. 844 PRINT"          M A S T E R C A R D[158]"
  311. 846 PRINT"--------------------------------------"
  312. 847 PRINT"          DEBIT/CREDIT/CANCEL[158]"
  313. 848 PRINT"--------------------------------------"
  314. 850 PRINT
  315. 852 LET CTR=0
  316. 854 IF CTR=4 THEN GOTO 872
  317. 856 PRINT:PRINT"[159]     ENTER CREDIT CARD ACCOUNT"
  318. 858 INPUT"     NUMBER--->";ACCT
  319. 859 IF ACCT=0 THEN 872
  320. 860 LET A$=STR$(ACCT)
  321. 861 IF LEN(A$)<8 OR LEN(A$)>8 THENPRINT"     -ACCOUNT NUMBER IS 7 DIGITS- "
  322. 862 IF LEN(A$)<8 OR LEN(A$)>8 THEN GOTO 854
  323. 863 IF CTR=4 THEN GOTO 872
  324. 864 IF ACCT<4935000 OR ACCT>6123450 THENPRINT"  -UNAUTHORIZED CODE...TRY AGAIN-"
  325. 866 IF ACCT<4935000 OR ACCT>6123450 THEN LET CTR=CTR+1
  326. 868 IF ACCT<4935000 OR ACCT>6123450 THEN GOTO854
  327. 870 GOTO879
  328. 872 PRINT:PRINT:PRINT
  329. 874 PRINT"[159]      ** CONNECTION TERMINATED ** "
  330. 876 FORI=1TO600:NEXTI
  331. 878 RETURN
  332. 879 PRINT"[147]":PRINT:PRINT
  333. 880 PRINT"[158]ACCOUNT NUMBER-->";ACCT:PRINT
  334. 881 PRINT"--------------------------------------"
  335. 882 PRINT"[158]ENTER  -D- [159] FOR DEBIT"
  336. 884 PRINT"       -C- [159] FOR CREDIT"
  337. 886 PRINT"       -X- [159] TO CANCEL THE ACCOUNT"
  338. 888 PRINT:INPUT"-->";MC$
  339. 890 IF MC$="D"ORMC$="C"ORMC$="X"THEN 894
  340. 892 GOTO882
  341. 894 IFMC$="X"THEN 898
  342. 895 PRINT:INPUT"  AMOUNT-->";AMT
  343. 896 FORI=1TO1000:NEXTI:PRINT
  344. 897 PRINT"         [156]-TRANSACTION COMPLETE-":FORI=1TO1700:NEXTI:RETURN
  345. 898 FORI=1TO1000:NEXTI:PRINT:PRINT"        [156]-ACCOUNT DISCONTINUED-"
  346. 900 FORI=1TO1700:NEXTI:RETURN
  347. 1000 PRINT"[147]":PRINT" NUMBER OUT OF SERVICE..."
  348. 1005 FORI=1TO600:NEXTI
  349. 1010 RETURN
  350. 9999 END
  351.