Q&— èA´1000:ˆ20:Ž RSA - TEIL 2Ë ò…T$(2),TE$(16),LE(16),LT(16),CO(16,80),ZC(1200)Ö üKT$´""Ü Žô U1$´" Texteingabe " !U2$´" Codierung ")!$U4$´" Anzeige / Ausdruck "G!.U3$´" Speichern (WRITE) "M!8Že!BŽ --- SCHIRMGROESSEk!LŽŽ!VH´HO:SP´HO1:ZE´VE1:ZG´·(H¯9)”!`Ž¤!jŽ --- TITELÊ!tT$(0)´" "ð!~T$(1)´" Die RSA - Codierung - 2 ""ˆT$(2)´" ""’Œ100,"œVE´0 ¦2Q"¦L´È(T$(VE)):HO´·((H6L)¯2):Œ110g"°SR$´T$(VE):Œ150:žo"º‚VEu"ÄŽ„"ÎŽ --- MENUŠ"ØŽ"âHO´2:VE´5:Œ110¿"ìSR$´"E":Œ150:ž"- Texteingabe"Ò"öHO´2:VE´7:Œ110ò"SR$´"C":Œ150:ž"- Codierung"# HO´2:VE´9:Œ110.#SR$´"A":Œ150:ž"- Anzeige / Ausdruck"B#HO´2:VE´11:Œ110j#(SR$´"S":Œ150:ž"- Speichern (WRITE)"~#2HO´2:VE´13:Œ110™#<SR$´"X":Œ150:ž"- Ende"®#FHO´28:VE´13:Œ110·#PŒ210Ð#ZŠIN´69 © Œ1460:ˆ1180é#dŠIN´67 © Œ1900:ˆ1180$nŠIN´65 © Œ3000:ˆ1180$xŠIN´83 © Œ4000:ˆ1180+$‚ŠIN´88 ©950:$ŒŒ250:ˆ1360@$–ŽV$ Ž --- TEXTEINGABE\$ªŽe$´Œ100Œ$¾L´È(U1$):HO´·((H6L)¯2):VE´0:Œ110$ÈSR$´U1$:Œ150£$ÒŽ¶$ÜHO´0:VE´2:Œ110Ç$æSR´H10:Œ300÷$ðž"Die zu codierende Nachricht kann max. 15")%úž"Zeilen (";SR$;" Zeichen/Zeile) umfassen.":žW%ž"Zum Abschluss der Eingabe ist in einer"z%ž"Zeile nur '*' einzugeben.":ž¤%ž"Zur Texteingabe Taste druecken ! ";²%"Œ210:Œ100Ù%,L´È(U1$):HO´·((H3L)¯2):VE´0:Œ110ê%6SR$´U1$:Œ150ó%@CT´2&JHO´9:VE´2:Œ110 &TN´1 ¦(H10):ž"x";:‚N-&^J´1 ¦16A&hHO´0:VE´22:Œ110c&rž" "}&|HO´0:VE´2¬J:V´VE:Œ110•&†CN´0:SR´J:Œ300:Œ310¥&ŠJµ16 ©1720Ç&šHO´0:VE´V:Œ110:ž"Ende ! ? *";í&¤HO´9:VE´V:Œ110:Œ210:ŠINµ³13 ©1690þ&®JE´J1:ˆ1830-'¸ž"Zl.";SR$;": ";:TE$(J)´"":LT(J)´0:„TE$(J)A'ÂLT(J)´È(TE$(J))d'ÌŠTE$(J)´"*" ©JE´J1:J´16:ˆ1830'ÖŠÎ(TE$(J),1)µ³" " ©TE$(J)´TE$(J)¬" "¤'àŠLT(J)³´(H9)©1820¸'êHO´0:VE´22:Œ110â'ôSR$´" Eingabe o.k.? (j/n) ":Œ150:Œ210ó'þŠIN´74 ©1830(ŠIN´78 ©1820(ˆ17708(HO´0:VE´V:Œ110:N´0 ¦H:ž" ";:‚N:ˆ1640?(&‚JZ(0ž:ž"Eingabe beendet !"u(:ž:ž"Klartext im RAM !"(DŒ5050:‡(NŽ›(XŽ --- CODIERUNG¡(bŽ°(lŒ100:Œ5140À(vŠJE´0 ©2570Ï(€Œ100:Œ5140â(ŠHO´0:VE´2:Œ110)”ž"Eingabe: Modul und Codierschluessel":ž6)žž"Tastatur oder File ";?)¨Œ210P)²ŠIN´70 ©2000a)¼ŠIN´84 ©2210k)Æˆ1930~)ÐHO´0:VE´6:Œ110§)Ú„"Name des Schluessel-Files: ";NF$:žÍ)äž"Cassette (BASICODE) oder "ô)îž"Diskette ";ý)øŒ210*ŠIN´68 ©NF´4:ˆ2080+*ŠIN´67 ©NF´0:ˆ20805*ˆ2040>* Œ500V**Œ540:M´Ê(IN$):Œ5090t*4Œ540:PM´Ê(IN$):Œ5090:PM´0Œ*>Œ540:C´Ê(IN$):Œ5090¨*HŒ540:D´Ê(IN$):Œ5090:D´0±*RŒ580Å*\HO´0:VE´11:Œ110ê*fž"Schluesselzahlen geladen; der"+pž"oeffentliche Schluessel lautet:":ž5+zž" Modul (M) =";M:žU+„ž"Codierschluessel (C) =";Ce+ŽŒ5050:ˆ2280k+˜Žz+¢Œ100:Œ5140+¬HO´0:VE´2:Œ110ž+¶ž"Eingabe:";µ+À„" Modul M ";M:žÒ+Ê„"Codierschluessel C ";CÜ+ÔŒ5050â+ÞŽñ+èŒ100:Œ5140,òHO´0:VE´2:Œ110-,üž"Der Text lautet verschluesselt:":žG, FL´0:Z´0:J´0:K´0:NN´1T, J´1 ¦JEh, LE(J)´È(TE$(J))x,$ K´1 ¦LE(J),. N´Ë(Ï(TE$(J),K,1))´,8 Š(N³´193)±(Nµ´218)©N´N128:ˆ2380Ð,B Š(N³´65)±(Nµ´90)©N´N¬32á,L X´N:Y´C:CO´1ö,V ŠY´2®·(Y¯2)©2550-` Y´Y1:CO´CO®X:CO´CO·(CO¯M)®M(-j ŠYµ³0 ©23907-t žCO;:Z´Z¬1J-~ ŠZ´ZG ©ž:ž:Z´0k-ˆ CO(J,K)´CO:ZC(NN)´CO:NN´NN¬1t-’ Œ120“-œ ŠVE³´20 © Œ250:Œ5050:Œ5180-¦ ‚K:‚J£-° Ž¼-º EJ´J:EK´K:EZ´NN:FL´1Â-Ä ŽÝ-Î Œ120:VE´VE¬2:HO´0:Œ110ý-Ø ž"Codierung beendet !":Œ250 .â Œ5050:.ì Ž2.ö Y´Y¯2:X´X®X:X´X·(X¯M)®M:ˆ24108. ŽK. HO´0:VE´2:Œ110t. SR$´" Kein Text gespeichert ! ":Œ150‡. HO´2:VE´4:Œ110¥.( SR$´"E":Œ150:ž"- Eingabe"¸.2 HO´2:VE´6:Œ110Û.< SR$´"L":Œ150:ž"- Laden (READ)"î.F HO´2:VE´8:Œ110/P SR$´"M":Œ150:ž"- Menu ";/Z Œ210+/d ŠIN´69 ©1460 ";:Œ210Ø/´ ŠIN´68 ©NF´4:ˆ2770ï/¾ ŠIN´67 ©NF´0:ˆ2770ù/È ˆ2700 0Ò HO´2:VE´13:Œ110)0Ü „"Textfile - Name ";NF$C0æ ŠÎ(NF$,2)µ³"-c" ©2820e0ð ž:ž" Schon codierter Text !"‹0ú HO´19:VE´13:Œ110:ž" ":ˆ2770œ0KT$´NF$:Œ500¯0Œ540:JE´Ê(IN$)À0ŠIN´1 ©5090Í0"J´1 ¦JEá0,Œ540:TE$(J)´IN$ò06ŠIN´1 ©5090ù0@‚J1JŒ580:ŠIN´1 ©5090#1THO´2:VE´15:Œ110C1^ž"Klartext-File gelesen ! "W1hHO´2:VE´17:Œ110~1rž"Anzeige / Codieren ";:Œ2101|ŠIN´67 ©1910¤1†ŠIN´65 © Œ3000:®1ˆ2920´1šŽÏ1¤Ž --- ANZEIGE/AUSDRUCKÕ1®ŽÞ1¸Œ1002ÂL´È(U4$):HO´·((H6L)¯2):VE´0:Œ1102ÌSR$´U4$:Œ1502ÖŽ/2àHO´0:VE´2:Œ110M2êž"Anzeige auf Bildschirm"z2ôž" oder Drucker ";:Œ210–2þŠ(INµ³66)±(INµ³68)©3040«2W´IN:ŠW´66 ©3120¾2HO´0:VE´5:Œ110ë2ž"Drucker betriebsbereit ? ";:Œ2103&Š(INµ³74)±(INµ³78)©309030PP´0:ŠIN´74 ©PP´1D3:SR$´Ì(W):Œ330:HO´29:VE´3:Œ110:Œ150J3DŽ]3NHO´0:VE´7:Œ110|3XSR$´"K":Œ150:ž"- Klartext"3bHO´0:VE´9:Œ110½3lSR$´"V":Œ150:ž"- Verschluesselter Text ";Æ3vŒ210×3€ŠIN´75 ©3240è3ŠŠIN´86 ©3590ò3”ˆ3170ø3žŽ 4¨ŠJEµ³0 ©33004²HO´0:VE´11:Œ110?4¼ž" Kein Klartext im RAM !":ž[4Æž" Zurueck zum Menu !"l4ÐŒ5050:Œ100:r4ÚŽ‚4äŠPP´1 ©3480Š4îž:ž§4øž"K l a r t e x t: ";KT$Å4 ž"----------------------"Ò4 J´1 ¦JEï4 LE´È(TE$(J)):ŠLE³H ©33805 žTE$(J):ˆ34505* Ž54 M´1 ¦H/5> ŠÏ(TE$(J),M,1)´" " ©S´M=5H ŠS³H ©M´HD5R ‚Mk5\ TL$´Í(TE$(J),S):TR$´Î(TE$(J),LES)t5f žTL$}5p žTR$„5z ‚J•5„ Œ5050:Œ100:›5Ž Ž¤5˜ Œ360Ä5¢ SR$´"K l a r t e x t: "¬KT$Ò5¬ Œ350:Œ360ó5¶ SR$´"----------------------"6À Œ350:Œ3606Ê J´1 ¦JE'6Ô SR$´TE$(J):Œ350:Œ360.6Þ ‚J<6è Œ360:Œ360M6ò Œ5050:Œ100:S6ü Žk6Š(Jµ³0)²(Kµ³0)©36506HO´0:VE´11:Œ110¥6ž" Kein verschluesselter Text":žÊ6$ž" im RAM - Zurueck zum Menu !"Û6.Œ5050:Œ100:á68Žñ6BŠPP´1 ©38107LHO´0:VE´11:Œ110-7Vž"Verschluesselter Text: ";KT$;"-c"S7`ž"------------------------------"[7jZ´0i7tNN´1 ¦EZ}7~ŠZC(NN)´0 ©37807ˆSR´ZC(NN):Œ300¶7’S$´"":S´1 ¦8È(SR$):S$´S$¬" ":‚SÓ7œžS$¬Í(SR$,È(SR$));:Z´Z¬1æ7¦ŠZ´ZG ©ž:ž:Z´0ï7°Œ1208ºŠVE³´20 © Œ250:Œ5050:Œ52608Ä‚NN'8ÎŒ5050:Œ100:-8ØŽ68âŒ360a8ìSR$´"Verschluesselter Text: "¬KT$¬"-c"o8öŒ350:Œ360˜8SR$´"------------------------------"¦8 Œ350:Œ360®8Z´0¼8NN´1 ¦EZÐ8(ŠZC(NN)´0 ©3940ã82SR´ZC(NN):Œ300 9<S$´"":S´1 ¦8È(SR$):S$´S$¬" ":‚S-9FSR$´S$¬Í(SR$,È(SR$)):Z´Z¬1:Œ350F9PŠZ´8 © Œ360:Œ360:Z´0O9ZŒ120W9d‚NNe9nŒ360:Œ360v9xŒ5050:Œ100:|9‚Ž9ŒŽ --- SPEICHERN–9–ŽŸ9 Œ100Æ9ªL´È(U3$):HO´·((H6L)¯2):VE´0:Œ110×9´SR$´U3$:Œ150Ý9¾Žð9ÈHO´0:VE´2:Œ110:Òž"Speichern:":ÜHO´0:VE´4:Œ1104:æSR$´"K":Œ150:ž"- Klartext"G:ðHO´0:VE´6:Œ110s:úSR$´"V":Œ150:ž"- Verschluesselter Text"‡:HO´32:VE´6:Œ110:Œ210¡:ŠIN´75 ©4160²:"ŠIN´86 ©4540¼:,ˆ4100Â:6ŽÓ:@ŠJEµ³0 ©4210æ:JHO´0:VE´8:Œ110;Tž"Kein Klartext im RAM !";^Œ5050:;hŽ);rHO´0:VE´2:Œ110J;|ž"Speichern des Klartextes:"];†HO´2:VE´4:Œ110|;SR$´"D":Œ150:ž"- Diskette";šHO´2:VE´6:Œ110¹;¤SR$´"C":Œ150:ž"- Cassette (BASICODE)"Ì;®HO´2:VE´8:Œ110ç;¸SR$´"N":Œ150:ž"- NEIN"<ÂHO´29:VE´8:Œ110:Œ210<ÌŠIN´68 ©NF´5:ˆ4350.<ÖŠIN´67 ©NF´1:ˆ4350B<àŠIN´78 © Œ100:Q<êŒ250:ˆ4210W<ôŽk<þHO´0:VE´10:Œ110›<NF$´"":„"Name des Files (max. 5 Zch.) ";NF$·<KT$´NF$:ŠÈ(NF$)³5 ©4350Æ<Œ500:Œ5090à<&SR´JE:Œ300:Œ560:Œ5090æ<0Žó<:J´1 ¦JE =DSR$´TE$(J):Œ560:Œ5090=N‚J#=XŒ580:Œ50907=bHO´0:VE´12:Œ110M=lž"Klartext auf ";e=vŠNF´5 ©ž"Diskette "ˆ=€ŠNF´1 ©ž"Cassette (BASICODE) "ž=Šž"gespeichert.":ž¹=”ž"Name:";:SR$´NF$:Œ150¿=žŽË=¨Œ5050:Ñ=²ŽÚ=¼Œ100>ÆL´È(U3$):HO´·((H6L)¯2):VE´0:Œ110>ÐSR$´U3$:Œ150>ÚŽ0>äŠ(Jµ³0)±(Kµ³0)©4640C>îHO´0:VE´2:Œ110b>øž" Kein verschluesselter "x>ž" Text im RAM !"„>Œ5050:Š>Ž> HO´0:VE´2:Œ110Ç>*ž"Speichern des verschluess. Textes:"Ú>4HO´2:VE´4:Œ110ù>>SR$´"D":Œ150:ž"- Diskette"?HHO´2:VE´6:Œ1106?RSR$´"C":Œ150:ž"- Cassette (BASICODE)"I?\HO´2:VE´8:Œ110d?fSR$´"N":Œ150:ž"- NEIN"}?pHO´29:VE´8:Œ110:Œ210”?zŠIN´68 ©NF´5:ˆ4780«?„ŠIN´67 ©NF´1:ˆ4780¿?ŽŠIN´78 © Œ100:Î?˜Œ250:ˆ4720Ô?¢Žõ?¬ŠKT$µ³"" ©NF$´KT$¬"-c":ˆ4830 @¶HO´0:VE´10:Œ1109@ÀNF$´"":„"Name des Files (max. 5 Zch.) ";NF$M@ÊŠÈ(NF$)³5 ©4790^@ÔNF$´NF$¬"-c"m@ÞŒ500:Œ5090‡@èSR´EZ:Œ300:Œ560:Œ5090@òŽ›@üNN´1 ¦EZ¹@SR´ZC(NN):Œ300:Œ560:Œ5090Á@‚NNÇ@ŽÍ@$ŽÜ@.Œ580:Œ5090å@8Œ250ù@BHO´0:VE´12:Œ110ALž"Codierter Text auf ";-AVŠNF´5 ©ž"Diskette "PA`ŠNF´1 ©ž"Cassette (BASICODE) "fAjž"gespeichert.":žAtž"Name:";:SR$´NF$:Œ150‡A~Ž“AˆŒ5050:™A’Ž¯AœŽ --- SUBROUTINENµA¦ŽìA°Ž ------------------------------------------------BºHO´0:VE´24:Œ110!BÄSR$´"Taste druecken =>":Œ1501BÎŒ210:Œ100:hBØŽ ------------------------------------------------}BâŠ(IN´0)²(IN´1)©‘BìHO´0:VE´22:Œ110ºBöSR$´" Schreib- / Lesefehler ! ":Œ150ÅBŒ210:üB Ž ------------------------------------------------#CL´È(U2$):HO´·((H6L)¯2):VE´0:Œ1106CSR$´U2$:Œ150:KC(HO´0:VE´2:Œ110:‚C2Ž ------------------------------------------------‘C<Œ100:Œ5140¤CFHO´0:VE´2:Œ110¼CPž"Fortsetzung:":ž:óCZŽ ------------------------------------------------DdL´È(U4$):HO´·((H6L)¯2):VE´0:Œ110-DnSR$´U4$:Œ150:BDxHO´0:VE´2:Œ110:yD‚Ž ------------------------------------------------ˆDŒŒ100:Œ5220›D–HO´0:VE´2:Œ110³D ž"Fortsetzung:":ž:¹DªŽðD0uŽ ------------------------------------------------'E:uŽ GRUNDLAGE DIESES PROGRAMMS UND DER TEILE 1 UND 3DEDuŽ IST FOLGENDER BEITRAG:JENuŽ`EXuŽ MARCEL SUTTERŒEbuŽ EIN STREIFZUG DURCH DIE KRYPTOLOGIE·EluŽ M+K COMPUTER, LUZERN, 1990, HEFT 4½EvuŽëE}Ž ---------------------------------------F }Ž FRIEDRICH DORMEIERF}Ž BISMARCKSTR. 11A2F}Ž D-1000 BERLIN 39HF(}Ž (030) 803 31 11NF2}ŽcF<}Ž C-128 - 9/1991‘FF}Ž ---------------------------------------³FP}Ž Erstausstrahlung: DS-KulturÈFZ}Ž-spezial 911016}ŽcF<}Ž C-128 - 9/1991‘FF}Ž --------------