| |
| |
|
p.specht
 | the acquaintance ruddy-13 Algorithmus (rotate characters circa 13 to put) - or. ruddy-n, where n in the principle spare wählbar would, were not characters How \n , quotation marks etc. one ought to the means intense try, if something other as simple Texts, Digits or übliche Schreibzeichen transfer wants!
the follow up Progi checks on equality the Dechiffrier-Ergebnisses with the Originaltext - but Perhaps watts Yes already this from the Stringverwaltung "verballhornt". means Please too with regard to content Verify!
windowstyle 24:Windowtitle "For your eyes only, ruddy13"
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 secret message: ":font 0:print a$
b$=""
whileloop len(a$)
b$=b$+chr $( (ord(mid$(a$,&Loop,1))+13) 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))-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 your 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'... | 05/25/21 ▲ |
|
| |
|
(893)
Deutsch
English
Français
Español
Italia