API tools faq
paste
Advertisement
plirof2

BASIC pssst story tape cypher v02ok - (use for Pacman)

plirof2
Mar 14th, 2023 (edited)
340
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.41 KB | None | 0 0
raw download clone embed print report
  1. https://www.dcode.fr/caesar-cipher
  2. https://pastebin.com/KtFE7JLW
  3. NOTE! *** WHen copying DELETE the empty lines between numbered lines with code***
  4. ** Redecrypt the script not text is encrypted
  5.  
  6. Orig text to cypher for Robbie Pssst Personal Encrypted Diary Tape
  7. Entries:
  8. 1 - 10000DC There was a prehistoric cook that discovered a message on the walls deep inside their food storage cave.
  9. 2 - 1800AD - Thousand of years later, while I was taking care of a ancient Mayan garden, I discovered a cave entrance in the middle of the garden. Inside I found a human skeleton holding a stone spatula and a message in the cave wal written with some kind of caveman font!
  10. 3 - 1805AD - Archaeologist -after investigating the cave I discovered- informed me that they given a name to the prehistoric cook. They named him Charlie! They also told me that they couldn't understand what the message on the cave was was saying.
  11. 4 - ????? 1810 - Having forgotten the cave message I continued my work with various gardens all over the world. In another Mayan garden I discovered a scroll that contained half a map! The map had symbols that looked like the letters on the cave message! It was that time that I decided I must search all over the world to locate the other half of the map and unlock this strange secret!
  12. 5 - 1820-1830 AD I searched many gardens but nothing was found.
  13.  
  14. 6 - 1840 AD - Investigating the garden of the Castle Of Dracula. In the far end of this garden I discovered the second half of the map. The map is a diagram of a mansion. There are small drawings that seem like ghosts! This must mean that the mansion is haunted!
  15. 7 - 1842 AD I decide to buy the whole Dracula property and live in the Castle. Here I will continue my research for this secret!
  16. 8 - 1845AD I believe I have located where that haunted mansion is. The mansion seems to contain an important scroll that will help with some greater goal. There seems to be a connection between all my findings!
  17. 9 -1846AD - I decide to encrypt my diary and store it to something more reliable than paper! I met King Arthur's chief scientist today. His name is Sir Live CS Inclair. He has designed something he calls a 'SP Zxectrum'. He claims that storing important information in magnetic audio tapes for long storage is more reliable than writting in a scroll!
  18. 10 - 1847AD I decided to follow the advice of King Arthur's security administrator and anti-spy director. I will write the password of my encrypted diary on a paper and keep it in the same chest as the diary tape. This way it is more easy to protect the data! I also followed his advice to use a small and easy to remember password!
  19.  
  20. NOTE to the hosts of future CSS Crap Games Competition : You should always try to "Kill worm with blue can"!
  21. -----
  22.  
  23.  
  24.  
  25.  
  26.  
  27. Program :
  28.  
  29.  
  30. 1 REM Dr Robbie Diary ver 3.-3 Ok working - password #### digit string
  31. 2 REM dcode.fr/caesar-cipher settings : 3 , Use the ASCII Table (0-127) as Alphabet
  32. 10 DIM A$(10,400)
  33. 20 GOSUB 9000 :GOSUB 6000
  34. 1000 FOR i=1 to 10
  35. 1010 LET t$=A$(i)
  36. 1020 REM PRINT A$(i)
  37. 1030 REM LET n=-3 : REM CORRECT cipher key
  38. 1035 GOSUB 5000
  39. 1040 PRINT "RULE #";i;") : ";t$
  40. 1045 NEXT i
  41. 1050 REM LET n=-1: gosub 5000
  42. 1060 REM PRINT a$
  43. 1100 STOP
  44. 5020 FOR m = 1 TO LEN(t$)
  45. 5025 REM LET b$=CHR$(CODE(t$(m)) + n)
  46. 5027 REM IF b$<"a" THEN CONTINUE
  47. 5030 LET t$(m) = CHR$(CODE(t$(m)) + n)
  48. 5035 IF t$(m)<" " THEN LET t$(m)="."
  49. 5040 NEXT m
  50. 5100 RETURN
  51. 6000 REM get 4 digit string and create n (or t for tests)
  52. 6005 LET n=0
  53. 6010 INPUT "Please Enter Secret Passcode : ";p$
  54. 6020 FOR m= 1 TO 4
  55. 6030 IF (m=1 OR m=3)THEN LET n=n+VAL(p$(m))
  56. 6040 IF (m=2 OR m=4)THEN LET n=n-VAL(p$(m))
  57. 6200 NEXT m
  58. 6210 PRINT n
  59. 6500 RETURN
  60. 9800 FOR z=1 to 9
  61. 9810 READ A$(z)
  62. 9845 NEXT z
  63. 9900 DATA "#=#43333GF#Wkhuh#zdv#d#suhklvwrulf#frrn#wkdw#glvfryhuhg#d#phvvdjh#rq#wkh#zdoov#ghhs#lqvlgh#wkhlu#irrg#vwrudjh#fdyh1#","#=#4;33DG#0#Wkrxvdqg#ri#|hduv#odwhu/#zkloh#L#zdv#wdnlqj#fduh#ri#d#dqflhqw#Pd|dq#jdughq/#L#glvfryhuhg#d#fdyh#hqwudqfh#lq#wkh#plggoh#ri#wkh#jdughq1#Lqvlgh#L#irxqg#d#kxpdq#vnhohwrq#kroglqj#d#vwrqh#vsdwxod#dqg#d#phvvdjh#lq#wkh#fdyh#zdo#zulwwhq#zlwk#vrph#nlqg#ri#fdyhpdq#irqw$","#=#4;38DG#0#Dufkdhrorjlvw#0diwhu#lqyhvwljdwlqj#wkh#fdyh#L#glvfryhuhg0#lqiruphg#ph#wkdw#wkh|#jlyhq#d#qdph#wr#wkh#suhklvwrulf#frrn1#Wkh|#qdphg#klp#Fkduolh$#Wkh|#dovr#wrog#ph#wkdw#wkh|#frxogq*w#xqghuvwdqg#zkdw#wkh#phvvdjh#rq#wkh#fdyh#zdv#zdv#vd|lqj1","#=##4;43#0#Kdylqj#irujrwwhq#wkh#fdyh#phvvdjh#L#frqwlqxhg#p|#zrun#zlwk#ydulrxv#jdughqv#doo#ryhu#wkh#zruog1#Lq#dqrwkhu#Pd|dq#jdughq#L#glvfryhuhg#d#vfuroo#wkdw#frqwdlqhg#kdoi#d#pds$#Wkh#pds#kdg#v|perov#wkdw#orrnhg#olnh#wkh#ohwwhuv#rq#wkh#fdyh#phvvdjh$#Lw#zdv#wkdw#wlph#wkdw#L#ghflghg#L#pxvw#vhdufk#doo#ryhu#wkh#zruog#wr#orfdwh#wkh#rwkhu#kdoi#ri#wkh#pds#dqg#xqorfn#wklv#vwudqjh#vhfuhw$","#=#4;5304;63#DG#L#vhdufkhg#pdq|#jdughqv#exw#qrwklqj#zdv#irxqg1","#=#4;73#DG#0#Lqyhvwljdwlqj#wkh#jdughq#ri#wkh#Fdvwoh#Ri#Gudfxod1#Lq#wkh#idu#hqg#ri#wklv#jdughq#L#glvfryhuhg#wkh#vhfrqg#kdoi#ri#wkh#pds1#Wkh#pds#lv#d#gldjudp#ri#d#pdqvlrq1#Wkhuh#duh#vpdoo#gudzlqjv#wkdw#vhhp#olnh#jkrvwv$#Wklv#pxvw#phdq#wkdw#wkh#pdqvlrq#lv#kdxqwhg$##","#=#4;75#DG#L#ghflgh#wr#ex|#wkh#zkroh#Gudfxod#surshuw|#dqg#olyh#lq#wkh#Fdvwoh1#Khuh#L#zloo#frqwlqxh#p|#uhvhdufk#iru#wklv#vhfuhw$","#=#4;78DG#L#eholhyh#L#kdyh#orfdwhg#zkhuh#wkdw#kdxqwhg#pdqvlrq#lv1#Wkh#pdqvlrq#vhhpv#wr#frqwdlq#dq#lpsruwdqw#vfuroo#wkdw#zloo#khos#zlwk#vrph#juhdwhu#jrdo1#Wkhuh#vhhpv#wr#eh#d#frqqhfwlrq#ehwzhhq#doo#p|#ilqglqjv$","#=#4;79DG#0##L#ghflgh#wr#hqfu|sw#p|#gldu|#dqg#vwruh#lw#wr#vrphwklqj#pruh#uholdeoh#wkdq#sdshu$#L#phw#Nlqj#Duwkxu*v#fklhi#vflhqwlvw#wrgd|1#Klv#qdph#lv#Vlu#Olyh#FV#Lqfodlu1#Kh#kdv#ghvljqhg#vrphwklqj#kh#fdoov#d#*VS#]{hfwuxp*1#Kh#fodlpv#wkdw#vwrulqj#lpsruwdqw#lqirupdwlrq#lq#pdjqhwlf#dxglr#wdshv#iru#orqj#vwrudjh#lv#pruh#uholdeoh#wkdq#zulwwlqj#lq#d#vfuroo$#","#=#4;7:DG#L#ghflghg#wr#iroorz#wkh#dgylfh#ri#Nlqj#Duwkxu*v#vhfxulw|#dgplqlvwudwru#dqg#dqwl0vs|#gluhfwru1#L#zloo#zulwh#wkh#sdvvzrug#ri#p|#hqfu|swhg#gldu|#rq#d#sdshu#dqg#nhhs#lw#lq#wkh#vdph#fkhvw#dv#wkh#gldu|#wdsh1#Wklv#zd|#lw#lv#pruh#hdv|#wr#surwhfw#wkh#gdwd$#L#dovr#iroorzhg#klv#dgylfh#wr#xvh#d#vpdoo#dqg#hdv|#wr#uhphpehu#sdvvzrug$","QRWH#wr#wkh#krvwv#ri#ixwxuh#FVV#Fuds#Jdphv#Frpshwlwlrq#=#\rx#vkrxog#dozd|v#wu|#wr#%Nloo#zrup#zlwk#eoxh#fdq%$"
  64. 9990 RETURN
  65.  
  66.  
  67. ----------RC version
  68.  
  69. 1 REM Dr Robbie Diary ver 4.-3 Ok working - password #### digit string
  70. 2 REM dcode.fr/caesar-cipher settings : 3 , Use the ASCII Table (0-127) as Alphabet
  71. 10 DIM A$(10,400)
  72. 20 GO SUB 9000: GO SUB 6000
  73. 1000 FOR i=1 TO 10
  74. 1010 LET t$=A$(i)
  75. 1020 REM PRINT A$(i)
  76. 1030 REM LET n=-3 : REM CORRECT cipher key
  77. 1035 GO SUB 5000
  78. 1040 PRINT "RULE #";i;") : ";t$
  79. 1045 NEXT i
  80. 1050 REM LET n=-1: gosub 5000
  81. 1060 REM PRINT a$
  82. 1100 STOP
  83.  
  84. 5020 FOR m=1 TO LEN (t$)
  85. 5025 REM LET b$=CHR$(CODE(t$(m)) + n)
  86. 5027 REM IF b$<"a" THEN CONTINUE
  87. 5030 LET t$(m)=CHR$ ( CODE (t$(m))+n)
  88. 5035 IF t$(m)<" " THEN LET t$(m)="."
  89. 5040 NEXT m
  90. 5100 RETURN
  91. 6000 REM get 4 digit string and create n (or t for tests)
  92. 6005 LET n=0
  93. 6010 INPUT "Please Enter Secret Passcode : ";p$
  94. 6020 FOR m=1 TO 4
  95. 6030 IF (m=1 OR m=3) THEN LET n=n+VAL (p$(m))
  96. 6040 IF (m=2 OR m=4) THEN LET n=n-VAL (p$(m))
  97. 6200 NEXT m
  98. 6210 PRINT n
  99. 6500 RETURN
  100. 9800 FOR z=1 TO 10
  101. 9810 READ A$(z)
  102. 9845 NEXT z
  103. 9900 DATA "#=#43333GF#Wkhuh#zdv#d#suhklvwrulf#frrn#wkdw#glvfryhuhg#d#phvvdjh#rq#wkh#zdoov#ghhs#lqvlgh#wkhlu#irrg#vwrudjh#fdyh1#","4;33DG#0#Wkrxvdqg#ri#|hduv#odwhu/#zkloh#L#zdv#wdnlqj#fduh#ri#d#dqflhqw#Pd|dq#jdughq/#L#glvfryhuhg#d#fdyh#hqwudqfh#lq#wkh#plggoh#ri#wkh#jdughq1#Lqvlgh#L#irxqg#d#kxpdq#vnhohwrq#kroglqj#d#vwrqh#vsdwxod#dqg#d#phvvdjh#lq#wkh#fdyh#zdo#zulwwhq#zlwk#vrph#nlqg#ri#fdyhpdq#irqw$","#=#4;38DG#0#Dufkdhrorjlvw#0diwhu#lqyhvwljdwlqj#wkh#fdyh#L#glvfryhuhg0#lqiruphg#ph#wkdw#wkh|#jlyhq#d#qdph#wr#wkh#suhklvwrulf#frrn1#Wkh|#qdphg#klp#Fkduolh$#Wkh|#dovr#wrog#ph#wkdw#wkh|#frxogq*w#xqghuvwdqg#zkdw#wkh#phvvdjh#rq#wkh#fdyh#zdv#zdv#vd|lqj1","#=##4;43#0#Kdylqj#irujrwwhq#wkh#fdyh#phvvdjh#L#frqwlqxhg#p|#zrun#zlwk#ydulrxv#jdughqv#doo#ryhu#wkh#zruog1#Lq#dqrwkhu#Pd|dq#jdughq#L#glvfryhuhg#d#vfuroo#wkdw#frqwdlqhg#kdoi#d#pds$#Wkh#pds#kdg#v|perov#wkdw#orrnhg#olnh#wkh#ohwwhuv#rq#wkh#fdyh#phvvdjh$#Lw#zdv#wkdw#wlph#wkdw#L#ghflghg#L#pxvw#vhdufk#doo#ryhu#wkh#zruog#wr#orfdwh#wkh#rwkhu#kdoi#ri#wkh#pds#dqg#xqorfn#wklv#vwudqjh#vhfuhw$","#=#4;5304;63#DG#L#vhdufkhg#pdq|#jdughqv#exw#qrwklqj#zdv#irxqg1","#=#4;73#DG#0#Lqyhvwljdwlqj#wkh#jdughq#ri#wkh#Fdvwoh#Ri#Gudfxod1#Lq#wkh#idu#hqg#ri#wklv#jdughq#L#glvfryhuhg#wkh#vhfrqg#kdoi#ri#wkh#pds1#Wkh#pds#lv#d#gldjudp#ri#d#pdqvlrq1#Wkhuh#duh#vpdoo#gudzlqjv#wkdw#vhhp#olnh#jkrvwv$#Wklv#pxvw#phdq#wkdw#wkh#pdqvlrq#lv#kdxqwhg$##","#=#4;75#DG#L#ghflgh#wr#ex|#wkh#zkroh#Gudfxod#surshuw|#dqg#olyh#lq#wkh#Fdvwoh1#Khuh#L#zloo#frqwlqxh#p|#uhvhdufk#iru#wklv#vhfuhw$","#=#4;78DG#L#eholhyh#L#kdyh#orfdwhg#zkhuh#wkdw#kdxqwhg#pdqvlrq#lv1#Wkh#pdqvlrq#vhhpv#wr#frqwdlq#dq#lpsruwdqw#vfuroo#wkdw#zloo#khos#zlwk#vrph#juhdwhu#jrdo1#Wkhuh#vhhpv#wr#eh#d#frqqhfwlrq#ehwzhhq#doo#p|#ilqglqjv$","#=#4;79DG#0##L#ghflgh#wr#hqfu|sw#p|#gldu|#dqg#vwruh#lw#wr#vrphwklqj#pruh#uholdeoh#wkdq#sdshu$#L#phw#Nlqj#Duwkxu*v#fklhi#vflhqwlvw#wrgd|1#Klv#qdph#lv#Vlu#Olyh#FV#Lqfodlu1#Kh#kdv#ghvljqhg#vrphwklqj#kh#fdoov#d#*VS#]{hfwuxp*1#Kh#fodlpv#wkdw#vwrulqj#lpsruwdqw#lqirupdwlrq#lq#pdjqhwlf#dxglr#wdshv#iru#orqj#vwrudjh#lv#pruh#uholdeoh#wkdq#zulwwlqj#lq#d#vfuroo$#","#=#4;7:DG#L#ghflghg#wr#iroorz#wkh#dgylfh#ri#Nlqj#Duwkxu*v#vhfxulw|#dgplqlvwudwru#dqg#dqwl0vs|#gluhfwru1#L#zloo#zulwh#wkh#sdvvzrug#ri#p|#hqfu|swhg#gldu|#rq#d#sdshu#dqg#nhhs#lw#lq#wkh#vdph#fkhvw#dv#wkh#gldu|#wdsh1#Wklv#zd|#lw#lv#pruh#hdv|#wr#surwhfw#wkh#gdwd$#L#dovr#iroorzhg#klv#dgylfh#wr#xvh#d#vpdoo#dqg#hdv|#wr#uhphpehu#sdvvzrug$","QRWH#wr#wkh#krvwv#ri#ixwxuh#FVV#Fuds#Jdphv#Frpshwlwlrq#=#\rx#vkrxog#dozd|v#wu|#wr#%Nloo#zrup#zlwk#eoxh#fdq%$","#=#4;7:DG#L#ghflghg#wr#iroorz#wkh#dgylfh#ri#Nlqj#Duwkxu*v#vhfxulw|#dgplqlvwudwru#dqg#dqwl0vs|#gluhfwru1#L#zloo#zulwh#wkh#sdvvzrug#ri#p|#hqfu|swhg#gldu|#rq#d#sdshu#dqg#nhhs#lw#lq#wkh#vdph#fkhvw#dv#wkh#gldu|#wdsh1#Wklv#zd|#lw#lv#pruh#hdv|#wr#surwhfw#wkh#gdwd$#L#dovr#iroorzhg#klv#dgylfh#wr#xvh#d#vpdoo#dqg#hdv|#wr#uhphpehu#sdvvzrug$"
  104. 9990 RETURN
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114. _______________
  115. Encrypted -3
  116.  
  117. 9900 DATA "#=#43333GF#Wkhuh#zdv#d#suhklvwrulf#frrn#wkdw#glvfryhuhg#d#phvvdjh#rq#wkh#zdoov#ghhs#lqvlgh#wkhlu#irrg#vwrudjh#fdyh1#","#=#4;33DG#0#Wkrxvdqg#ri#|hduv#odwhu/#zkloh#L#zdv#wdnlqj#fduh#ri#d#dqflhqw#Pd|dq#jdughq/#L#glvfryhuhg#d#fdyh#hqwudqfh#lq#wkh#plggoh#ri#wkh#jdughq1#Lqvlgh#L#irxqg#d#kxpdq#vnhohwrq#kroglqj#d#vwrqh#vsdwxod#dqg#d#phvvdjh#lq#wkh#fdyh#zdo#zulwwhq#zlwk#vrph#nlqg#ri#fdyhpdq#irqw$","#=#4;38DG#0#Dufkdhrorjlvw#0diwhu#lqyhvwljdwlqj#wkh#fdyh#L#glvfryhuhg0#lqiruphg#ph#wkdw#wkh|#jlyhq#d#qdph#wr#wkh#suhklvwrulf#frrn1#Wkh|#qdphg#klp#Fkduolh$#Wkh|#dovr#wrog#ph#wkdw#wkh|#frxogq*w#xqghuvwdqg#zkdw#wkh#phvvdjh#rq#wkh#fdyh#zdv#zdv#vd|lqj1","#=##4;43#0#Kdylqj#irujrwwhq#wkh#fdyh#phvvdjh#L#frqwlqxhg#p|#zrun#zlwk#ydulrxv#jdughqv#doo#ryhu#wkh#zruog1#Lq#dqrwkhu#Pd|dq#jdughq#L#glvfryhuhg#d#vfuroo#wkdw#frqwdlqhg#kdoi#d#pds$#Wkh#pds#kdg#v|perov#wkdw#orrnhg#olnh#wkh#ohwwhuv#rq#wkh#fdyh#phvvdjh$#Lw#zdv#wkdw#wlph#wkdw#L#ghflghg#L#pxvw#vhdufk#doo#ryhu#wkh#zruog#wr#orfdwh#wkh#rwkhu#kdoi#ri#wkh#pds#dqg#xqorfn#wklv#vwudqjh#vhfuhw$","#=#4;5304;63#DG#L#vhdufkhg#pdq|#jdughqv#exw#qrwklqj#zdv#irxqg1","#=#4;73#DG#0#Lqyhvwljdwlqj#wkh#jdughq#ri#wkh#Fdvwoh#Ri#Gudfxod1#Lq#wkh#idu#hqg#ri#wklv#jdughq#L#glvfryhuhg#wkh#vhfrqg#kdoi#ri#wkh#pds1#Wkh#pds#lv#d#gldjudp#ri#d#pdqvlrq1#Wkhuh#duh#vpdoo#gudzlqjv#wkdw#vhhp#olnh#jkrvwv$#Wklv#pxvw#phdq#wkdw#wkh#pdqvlrq#lv#kdxqwhg$##","#=#4;75#DG#L#ghflgh#wr#ex|#wkh#zkroh#Gudfxod#surshuw|#dqg#olyh#lq#wkh#Fdvwoh1#Khuh#L#zloo#frqwlqxh#p|#uhvhdufk#iru#wklv#vhfuhw$","#=#4;78DG#L#eholhyh#L#kdyh#orfdwhg#zkhuh#wkdw#kdxqwhg#pdqvlrq#lv1#Wkh#pdqvlrq#vhhpv#wr#frqwdlq#dq#lpsruwdqw#vfuroo#wkdw#zloo#khos#zlwk#vrph#juhdwhu#jrdo1#Wkhuh#vhhpv#wr#eh#d#frqqhfwlrq#ehwzhhq#doo#p|#ilqglqjv$","#=#4;79DG#0##L#ghflgh#wr#hqfu|sw#p|#gldu|#dqg#vwruh#lw#wr#vrphwklqj#pruh#uholdeoh#wkdq#sdshu$#L#phw#Nlqj#Duwkxu*v#fklhi#vflhqwlvw#wrgd|1#Klv#qdph#lv#Vlu#Olyh#FV#Lqfodlu1#Kh#kdv#ghvljqhg#vrphwklqj#kh#fdoov#d#*VS#]{hfwuxp*1#Kh#fodlpv#wkdw#vwrulqj#lpsruwdqw#lqirupdwlrq#lq#pdjqhwlf#dxglr#wdshv#iru#orqj#vwrudjh#lv#pruh#uholdeoh#wkdq#zulwwlqj#lq#d#vfuroo$#","#=#4;7:DG#L#ghflghg#wr#iroorz#wkh#dgylfh#ri#Nlqj#Duwkxu*v#vhfxulw|#dgplqlvwudwru#dqg#dqwl0vs|#gluhfwru1#L#zloo#zulwh#wkh#sdvvzrug#ri#p|#hqfu|swhg#gldu|#rq#d#sdshu#dqg#nhhs#lw#lq#wkh#vdph#fkhvw#dv#wkh#gldu|#wdsh1#Wklv#zd|#lw#lv#pruh#hdv|#wr#surwhfw#wkh#gdwd$#L#dovr#iroorzhg#klv#dgylfh#wr#xvh#d#vpdoo#dqg#hdv|#wr#uhphpehu#sdvvzrug$","QRWH#wr#wkh#krvwv#ri#ixwxuh#FVV#Fuds#Jdphv#Frpshwlwlrq#=#\rx#vkrxog#dozd|v#wu|#wr#%Nloo#zrup#zlwk#eoxh#fdq%$"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!