| |
| |
|
p.specht
 | Der bekannte Rot-13 Algorithmus (Rotiere Signo en 13 Stellen) - o. Rot-N, wobei N en el Principio frei wählbar wäre, gäbe no Signo como \n , Anführungszeichen etc. Man debería el also intensiv ausprobieren, si uno de otra manera como einfache Textos, Ziffern oder übliche Schreibzeichen übertragen voluntad!
Das nachfolgende Progi prüft auch en Gleichheit des Dechiffrier-Ergebnisses con el Originaltext - aber tal vez wurde sí ya dieser de el Stringverwaltung "verballhornt". Also Por favor, auch inhaltlich prüfen!
windowstyle 24:Windowtitle "For your eyes only, Rot13"
cls
declarar a$,b$, d$
a$="For your eyes only! 0123456789+-*:?"
'a$="":whileloop 0,255:a$=a$+chr$(&Loop):endwhile
Start:
font 2:imprimir "\n Geheime Botschaft: ":font 0:imprimir a$
b$=""
whileloop len(a$)
b$=b$+chr$( (ord(mid$(a$,&Loop,1))+13) 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))-13) 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$="":FIN
goto "Start"
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 25.05.2021 ▲ |
|
| |
|
(1.035)
Deutsch
English
Français
Español
Italia