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 >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
111 lines
2 rem *****************
3 rem * vigenere-code *
4 rem *****************
5 :
6 print"[147]"
7 dimc$(37,37):dims$(21):dimd$(100)
10 print"vigenere-code (16. jh.)
11 [153]"frefrefrefrefrefrefrefrefrefrefrefrefre"
15 [153]:[153]"der vigenere-code arbeitet mit einem"
20 [153]:[153]"schluesselwort,das bis zu 20 buch-"
22 [153]:[153]"staben lang sein darf."
24 [153]:[153]"der text (buchstaben und ziffern)"
25 [153]:[153]"wird ohne return-taste eingegeben."
26 [153]:[153]"leertaste mit - eingeben."
28 [153]:[153]"buchstaben loeschen mit / (nur vor"
30 [153]:[153]"zeilenende moeglich)."
32 [153]:[153]"ende des textes mit * eingeben!"
34 [153]:[153][163]17)"c 1990 dieter marung"
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,-
105 [131]1,2,3,4,5,6,7,8,9,0
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,-
115 [131]1,2,3,4,5,6,7,8,9,0
200 [129]s[178]1[164]37
220 [129]z[178]1[164]37
240 [135]c$(s,z)
300 [130]z
305 [140]
310 [129]a[178]1[164]s:[135]a$:[130]
320 [130]s
430 i[178]1:[153]"schluesselwort:";
450 [161]s$(i):[139]s$(i)[178]""[167]450
455 l[178]l[170]1
460 [153]s$(i);:[139]s$(i)[179][177][199](13)[167]i[178]i[170]1:[137]450
470 l[178]l[171]1
480 [153]"load"
2000 [153]:[153]:[153]:[153]"verschluesseln 1"
2010 [153]:[153]"entschluesseln 2"
2030 [153]:[153]:[153]:[133]"";au
2040 [145]au[137]3000,5000
3000 [153]"load"
3050 [129]g[178]1061[164]2021[169]40:[151]g,117:[130]g
3100 [153]:[153]"gib den klartext ein:":[153]
3104 i[178]0
3105 i[178]i[170]1:[139]i[178]l[170]1[167]i[178]1
3110 [161]k$:[139]k$[178]""[167]3110
3112 [139]k$[178]"*"[167]6000
3114 [139]k$[178]"/"[167]3117
3115 [137]3123
3117 d$(z1)[178][200](d$(z1),[195](d$(z1))[171]1):i[178]i[171]1
3118 [139]i[178]0[167]i[178]l
3119 zw[178]zw[171]1
3120 [153]"cmd cmd oncmd";:[139]zw[178]0[167]zw[178]1:[137]3104
3121 [137]3110
3123 [153]k$;
3125 [129]z[178]1[164]37
3127 fl[178]0
3130 [139]k$[178]c$(1,z)[167]fl[178]1:[137]3150
3140 [130]z
3150 [139]fl[178]0[167]3120
3210 [129]s[178]1[164]37
3220 [139]s$(i)[178]c$(s,1)[167]3500
3230 [130]s
3500 [153]"cmd";c$(s,z);"on";
3510 d$(z1)[178]d$(z1)[170]c$(s,z)
3520 [139][195](d$(z1))[178]76[167]z1[178]z1[170]1
3602 zw[178]zw[170]1:[139]zw[173]38[178][181](zw[173]38)[167][153]:[153]:[153]
3610 [137]3105
5000 [153]"load"
5010 [153]
5050 [129]g[178]1061[164]2021[169]40:[151]g,117:[130]g
5100 [153]:[153]"gib den verschluesselten text ein:":[153]
5190 i[178]0
5195 i[178]i[170]1:[139]i[178]l[170]1[167]i[178]1
5200 [161]v$:[139]v$[178]""[167]5200
5205 [139]v$[178]"*"[167]6000
5207 [139]v$[178]"/"[167]5210
5209 [137]5230
5210 d$(z1)[178][200](d$(z1),[195](d$(z1))[171]1):i[178]i[171]1
5212 [139]i[178]0[167]i[178]l
5214 zw[178]zw[171]1
5216 [153]"cmd cmd oncmd";:[139]zw[178]0[167]zw[178]1:[137]5190
5219 [137]5200
5230 [153]v$;
5235 [129]z[178]1[164]37
5240 [139]s$(i)[178]c$(1,z)[167]5300
5250 [130]z
5300 [129]s[178]1[164]37
5305 fl[178]0
5310 [139]v$[178]c$(s,z)[167]fl[178]1:[137]5330
5320 [130]s
5330 [139]fl[178]0[167]5216
5400 [153]"cmd";c$(s,1);"on";
5410 d$(z1)[178]d$(z1)[170]c$(s,1)
5420 [139][195](d$(z1))[178]76[167]z1[178]z1[170]1
5502 zw[178]zw[170]1:[139]zw[173]38[178][181](zw[173]38)[167][153]:[153]:[153]
5600 [137]5195
6000 [153]"load"
6010 [153]:[153]
6020 [133]" soll gedruckt werden j/n";a$
6030 [139]a$[178]"n"[167][128]
6040 [139]a$[179][177]"j"[167][153]"onon":[137]6020
6100 [159]1,4:[157]1
6200 [129]i[178]0[164]z1
6210 [153]d$(i)
6220 [130]i
6300 [152]1:[160]1
6310 [133]" noch einmal drucken j/n";a$
6315 [139]a$[178]"n"[167][128]
6320 [139]a$[178]"j"[167]6100
6330 [139]a$[179][177]"j"[167][153]"onon":[137]6310