XProfan

English

p.specht

Vigenère is in the integral a Caesar-Verschlüssellung, with the The Rotationsweite but of zugeordneten Schlüsselbuchstaben certainly becomes. was former unknackbar, as long as the Key At least as long is How the To verschlüsselnde Text, and never More wiederverwendet becomes. Then it to that undertow. One-pad Key - but How transfers one then whom Key abhörsicher? The should long long in the ahead already distributed been his!

Compile Mark Separation

Windowstyle 24:Windowtitle "For your eyes only, Vigenere!":cls
declare a$,b$,c$,d$
'Key:
c$="Der small Vigenere!"
'a$="For your eyes only! 0123456789+-*: ?"
a$="":whileloop 0,255:a$=a$+chr $(&Loop):endwhile
Start:
font 2:print "\n To verschlüsselnde message: ":font 0:print 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:print "\n           boxnumber: ":font 0:print b$
clearclip:putclip b$
font 2:print " ==> Clipboard!"
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:print "\n      Dechiffriert: "
font 0:print d$
print

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

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

else

    print "\n  OK."

endif

waitinput
cls
print "\n your Geheimbotschaft: ";
Input a$:case a$="":end
goto "Start"