home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 December / 64er_Magazin_90-12_1990_Markt__Technik_de_Side_A.d64 / vigenere-code (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  111 lines
  1. 2 rem *****************
  2. 3 rem * vigenere-code *
  3. 4 rem *****************
  4. 5 :
  5. 6 print"[147]"
  6. 7 dimc$(37,37):dims$(21):dimd$(100)
  7. 10 print"vigenere-code         (16. jh.)
  8. 11 [153]"frefrefrefrefrefrefrefrefrefrefrefrefre"
  9. 15 [153]:[153]"der vigenere-code arbeitet mit einem"
  10. 20 [153]:[153]"schluesselwort,das bis zu 20 buch-"
  11. 22 [153]:[153]"staben lang sein darf."
  12. 24 [153]:[153]"der text (buchstaben und ziffern)"
  13. 25 [153]:[153]"wird ohne return-taste eingegeben."
  14. 26 [153]:[153]"leertaste mit - eingeben."
  15. 28 [153]:[153]"buchstaben loeschen mit /  (nur vor"
  16. 30 [153]:[153]"zeilenende moeglich)."
  17. 32 [153]:[153]"ende des textes mit * eingeben!"
  18. 34 [153]:[153][163]17)"c 1990 dieter marung"
  19. 100 [131]a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,-
  20. 105 [131]1,2,3,4,5,6,7,8,9,0
  21. 110 [131]a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,-
  22. 115 [131]1,2,3,4,5,6,7,8,9,0
  23. 200 [129]s[178]1[164]37
  24. 220 [129]z[178]1[164]37
  25. 240 [135]c$(s,z)
  26. 300 [130]z
  27. 305 [140]
  28. 310 [129]a[178]1[164]s:[135]a$:[130]
  29. 320 [130]s
  30. 430 i[178]1:[153]"schluesselwort:";
  31. 450 [161]s$(i):[139]s$(i)[178]""[167]450
  32. 455 l[178]l[170]1
  33. 460 [153]s$(i);:[139]s$(i)[179][177][199](13)[167]i[178]i[170]1:[137]450
  34. 470 l[178]l[171]1
  35. 480 [153]"load"
  36. 2000 [153]:[153]:[153]:[153]"verschluesseln     1"
  37. 2010 [153]:[153]"entschluesseln     2"
  38. 2030 [153]:[153]:[153]:[133]"";au
  39. 2040 [145]au[137]3000,5000
  40. 3000 [153]"load"
  41. 3050 [129]g[178]1061[164]2021[169]40:[151]g,117:[130]g
  42. 3100 [153]:[153]"gib den klartext ein:":[153]
  43. 3104 i[178]0
  44. 3105 i[178]i[170]1:[139]i[178]l[170]1[167]i[178]1
  45. 3110 [161]k$:[139]k$[178]""[167]3110
  46. 3112 [139]k$[178]"*"[167]6000
  47. 3114 [139]k$[178]"/"[167]3117
  48. 3115 [137]3123                        
  49. 3117 d$(z1)[178][200](d$(z1),[195](d$(z1))[171]1):i[178]i[171]1
  50. 3118 [139]i[178]0[167]i[178]l
  51. 3119 zw[178]zw[171]1
  52. 3120 [153]"cmd cmd oncmd";:[139]zw[178]0[167]zw[178]1:[137]3104
  53. 3121 [137]3110
  54. 3123 [153]k$;
  55. 3125 [129]z[178]1[164]37
  56. 3127 fl[178]0
  57. 3130 [139]k$[178]c$(1,z)[167]fl[178]1:[137]3150
  58. 3140 [130]z
  59. 3150 [139]fl[178]0[167]3120
  60. 3210 [129]s[178]1[164]37
  61. 3220 [139]s$(i)[178]c$(s,1)[167]3500
  62. 3230 [130]s
  63. 3500 [153]"cmd";c$(s,z);"on";
  64. 3510 d$(z1)[178]d$(z1)[170]c$(s,z)
  65. 3520 [139][195](d$(z1))[178]76[167]z1[178]z1[170]1
  66. 3602 zw[178]zw[170]1:[139]zw[173]38[178][181](zw[173]38)[167][153]:[153]:[153]
  67. 3610 [137]3105
  68. 5000 [153]"load"
  69. 5010 [153]
  70. 5050 [129]g[178]1061[164]2021[169]40:[151]g,117:[130]g
  71. 5100 [153]:[153]"gib den verschluesselten text ein:":[153]                
  72. 5190 i[178]0
  73. 5195 i[178]i[170]1:[139]i[178]l[170]1[167]i[178]1
  74. 5200 [161]v$:[139]v$[178]""[167]5200
  75. 5205 [139]v$[178]"*"[167]6000
  76. 5207 [139]v$[178]"/"[167]5210
  77. 5209 [137]5230
  78. 5210 d$(z1)[178][200](d$(z1),[195](d$(z1))[171]1):i[178]i[171]1
  79. 5212 [139]i[178]0[167]i[178]l
  80. 5214 zw[178]zw[171]1
  81. 5216 [153]"cmd cmd oncmd";:[139]zw[178]0[167]zw[178]1:[137]5190
  82. 5219 [137]5200
  83. 5230 [153]v$;
  84. 5235 [129]z[178]1[164]37
  85. 5240 [139]s$(i)[178]c$(1,z)[167]5300
  86. 5250 [130]z
  87. 5300 [129]s[178]1[164]37
  88. 5305 fl[178]0
  89. 5310 [139]v$[178]c$(s,z)[167]fl[178]1:[137]5330
  90. 5320 [130]s
  91. 5330 [139]fl[178]0[167]5216
  92. 5400 [153]"cmd";c$(s,1);"on";
  93. 5410 d$(z1)[178]d$(z1)[170]c$(s,1)
  94. 5420 [139][195](d$(z1))[178]76[167]z1[178]z1[170]1
  95. 5502 zw[178]zw[170]1:[139]zw[173]38[178][181](zw[173]38)[167][153]:[153]:[153]
  96. 5600 [137]5195
  97. 6000 [153]"load"
  98. 6010 [153]:[153]
  99. 6020 [133]"  soll gedruckt werden j/n";a$
  100. 6030 [139]a$[178]"n"[167][128]
  101. 6040 [139]a$[179][177]"j"[167][153]"onon":[137]6020
  102. 6100 [159]1,4:[157]1
  103. 6200 [129]i[178]0[164]z1
  104. 6210 [153]d$(i)
  105. 6220 [130]i
  106. 6300 [152]1:[160]1
  107. 6310 [133]"  noch einmal drucken j/n";a$
  108. 6315 [139]a$[178]"n"[167][128]
  109. 6320 [139]a$[178]"j"[167]6100
  110. 6330 [139]a$[179][177]"j"[167][153]"onon":[137]6310
  111.