XProfan

Français

p.specht

Vigenère ist im wesentlichen une Caesar-Verschlüssellung, chez qui qui Rotationsweite mais vom zugeordneten Schlüsselbuchstaben bestimmt wird. était früher unknackbar, solange qui Schlüssel mindestens so long ist comment qui trop verschlüsselnde Text, et nie plus wiederverwendet wird. ensuite wird il zum sog. One-pad Schlüssel - mais comment überträgt on ensuite den Schlüssel abhörsicher? qui devrait longtemps longtemps im Voraus bereits verteilt worden son!

Kompilieren Marque Séparation

Windowstyle 24:Windowtitle "For your eyes only, Vigenere!":cls
declare a$,b$,c$,d$
'Schlüssel:
c$="Der kleine Vigenere!"
'a$="For your eyes only! 0123456789+-*: ?"
a$=»:whileloop 0,255:a$=a$+chr$(&Boucle):endwhile
Start:
font 2:imprimer "\n trop verschlüsselnde Botschaft: ":font 0:imprimer a$
b$=»

whileloop len(a$)

    b$=b$+chr$( (ord(mid$(a$,&Boucle,1)) + ord(mid$(c$,(&Boucle mod len(c$))+1,1))) mod 256)

endwhile

font 2:imprimer "\n           Chiffre: ":font 0:imprimer b$
clearclip:putclip b$
font 2:imprimer " ==> Zwischenablage!"
d$=»

whileloop len(b$)

    d$=d$+chr$( (ord(mid$(b$,&Boucle,1)) - ord(mid$(c$,(&Boucle mod len(c$))+1,1))) mod 256)

endwhile

font 2:imprimer "\n      Dechiffriert: "
font 0:imprimer d$
imprimer

si a$<>d$:font 2:imprimer "\n *** ERROR ***"

    sound 2000,200:waitinput 100
    sound 2000,200:waitinput 100
    sound 2000,200:waitinput

d'autre

    imprimer "\n  OK."

endif

waitinput
cls
imprimer "\n ses Geheimbotschaft: ";
Contribution a$:cas a$=»:end
goto "Start"