1 REM Ins{nd av Jinge Fl~cht <4716> 1985-06-14 00.45.44 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;58 INFORMATIONSTEXT TILL PROGRAMMET 'KRYPTO.BAS' ============================================= Programmet 'KRYPTO.BAS' {r egentligen tv} sammanslagna prog- ram. Del 1, inmatningsdelen, och del 2, utmatningsdelen. Om Du anv{nder programmet {r det f|rmodligen b{st att sepa- rera bitarna igen till tv} OLIKA program. Programmets upphovsman {r K-D H|glund p} tidskriften MIKRO- DATORN d{r programmen varit inf|rda och beskrivna i nummer 3/83. Om Du har t{nkt Dig att prova programmet, med tex. ngn annan 800-anv{ndare, s} beh|ver Du bara s{nda |ver den f|rsta delen av programmet. D{r st}r in-nyckeln (som SKALL vara ett PRIMTAL, och b|r vara fyrsiffrigt). Utnyckeln beh|ver Du inte ge till den som skapar den krypte- rade texten. Det inneb{r att Du {r den ende som med s{kerhet kan tyda texten. Utnyckeln SKALL vara ett PRIM-tal, och b|r vara femsiffrigt. (Det fungerar ej heller med st|rre primtal, ERROR 132...) M.a.o. b|r Du {ndra primtalen som finns i programmet. De som nu finns d{r {r de som f|rekom i orginalartikeln i MIKRODA- TORN. Formel: Innyckel = P1 * P2 Utnyckel = (2*(P1-1)*(P2-1)+1)/3 R{knar ut talen s} h{r ungef{r: 10 INPUT 'Primtal 1 'P1 20 INPUT 'Primtal 2 'P2 30 Innyckel=P1*P2 40 PRINT 'Innyckel = 'Innyckel 50 Utnyckel=(2*(P1-1)*(P2-1)+1)/3 60 PRINT 'Utnyckel = 'Utnyckel Det finns texter i textsystemet, m|te 'fritt' fr}n ca 775, som ber|r programmet. Ins{nt av Jinge <4716> 1985-06-13