| |
| |
|
p.specht
 | qui bekannte rouge-13 Algorithmus (Rotiere marque um 13 se mettre) - bzw. rouge-N, wobei N im Prinzip libre wählbar wäre, gäbe es pas marque comment \n , Anführungszeichen etc. on sollte cela alors intensif ausprobieren, si on autre chose comme simple Textes, Les chiffres ou bien übliche Schreibzeichen übertragen veux!
cela nachfolgende Progi prüft aussi sur Gleichheit des Dechiffrier-Ergebnisses avec dem Originaltext - mais peut-être wurde oui bereits cette de qui Stringverwaltung "verballhornt". alors s'il te plaît aussi inhaltlich vérifier!
style de fenêtre 24:Windowtitle "For your eyes only, rouge13"
cls
declare a$,b$, d$
a$="For your eyes only! 0123456789+-*:?"
'a$="":whileloop 0,255:a$=a$+chr$(& Loop):endwhile
Start:
font 2:imprimer "\n Geheime Botschaft: ":font 0:imprimer a$
b$=»
whileloop len(a$)
b$=b$+chr$( (ord(mid$(a$,&Boucle,1))+13) 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))-13) 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$=»:FIN
goto "Start"
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 25.05.2021 ▲ |
|
| |
|
(913)
Deutsch
English
Français
Español
Italia