| |
| |
|
p.specht
 | Der bekannte Rot-13 Algorithmus (Rotiere Zeichen um 13 Stellen) - bzw. Rot-N, wobei N im Prinzip frei wählbar wäre, gäbe es nicht Zeichen wie \n , Anführungszeichen etc. Man sollte das also intensiv ausprobieren, falls man etwas anderes als einfache Texte, Ziffern oder übliche Schreibzeichen übertragen will!
Das nachfolgende Progi prüft auch auf Gleichheit des Dechiffrier-Ergebnisses mit dem Originaltext - aber vielleicht wurde ja bereits dieser von der Stringverwaltung "verballhornt". Also bitte auch inhaltlich prüfen!
windowstyle 24:Windowtitle "For your eyes only, Rot13"
cls
declare a$,b$, d$
a$="For your eyes only! 0123456789+-*:?"
'a$="":whileloop 0,255:a$=a$+chr$(&Loop):endwhile
Start:
font 2:print "\n Geheime Botschaft: ":font 0:print a$
b$=""
whileloop len(a$)
b$=b$+chr$( (ord(mid$(a$,&Loop,1))+13) mod 256)
endwhile
font 2:print "\n Chiffre: ":font 0:print b$
clearclip:putclip b$
font 2:print " ==> Zwischenablage!"
d$=""
whileloop len(b$)
d$=d$+chr$((ord(mid$(b$,&Loop,1))-13) 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 Ihre Geheimbotschaft: ";
Input a$:case a$="":END
goto "Start"
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 25.05.2021 ▲ |
|
| |
|
(1.046)
Deutsch
English
Français
Español
Italia