XProfan

Español

p.specht

Vigenère es en el wesentlichen una Caesar-Verschlüssellung, en el Rotationsweite aber vom zugeordneten Schlüsselbuchstaben determinado se. War früher unknackbar, solange el Schlüssel mindestens así lang es como el a verschlüsselnde Texto, y nie mehr wiederverwendet se. Dann se él para sog. One-pad Schlüssel - aber como überträgt una continuación el Schlüssel abhörsicher? Der debería largo largo en el Voraus ya verteilt worden ser!

Kompilieren Marca Separación

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

whileloop len(a$)

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

endwhile

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

whileloop len(b$)

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

endwhile

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

if a$<>d$:font 2:imprimir "\n *** ERROR ***"

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

más

    imprimir "\n  OK."

endif

waitinput
cls
imprimir "\n Ihre Geheimbotschaft: ";
Entrada a$:caso a$="":end
goto "Start"