Das deutsche QBasic- und FreeBASIC-Forum

[kennyrcc]

hi

ich habe ein kleines prob: und zwar möchte ich nen text verschlüsseln (buchstabe für buchstabe) jetzt weis ich leider nur nicht wie ich statt der kompletten user eingabe nur die einzelnen buchstaben abrufen kann

kann mir da einer n tipp geben?
_________________
10
Machen Sie es möglich, Programme in Deutsch zu schreiben, und Sie werden entdecken, daß die Programmierer kein Deutsch können.
____________________________
ach ja
20 GOTO 10

[Devilkevin]

Hai, schau mal im QB Kochbuch, oder im Tutorial SelfQB von Thomas Antoni da gibts viele Beispiele für sowas (unter Textverarbeitung).
_________________
www.piratenpartei.de

[Progger_X]

Mit Inkey$:

[Tomtitom]

Progger_X, du hast wohl was falsch verstanden (oder ich?).

Ich denke kenny wollte eher sowas wie den Befehl MID$(eingabe$, i, 1)
wenn du jetzt mit einer FOR-Schleife das i hochzählst (bis LEN(eingabe$)), kriegst du mit dem MID$ jeden einzelnen Buchstaben. Genaueres erfährst du aus der QB-Hilfe zu MID$.

[jb]

Eine einfache Verschlüsselung erhältst du zum Beispiel, wenn du die
ASCII-Codes eines jeden Zeichens mit XOR 1 verknüpfst.

jb

[Tobber]

Hallo Kennyrcc.

Es gibt da sicher mehrere Möglichkeiten. Hier wäre eine davon:
Wenn Du die einzelnen Buchstaben der "User Eingabe" abrufen willst, so geschieht das über den Befehl: MID$(text$,StelleImText,Länge).
Nehmen wir also an, Du gibst ein Wort über: [ Input "Wort :",text$ ] ein, so ist das eingegebene Wort nun in [ text$ ] gespeichert.
Nehmen wir weiter an, das Wort wäre "Computer", hat also eine Länge von 8 Zeichen. Wenn Du nun also einen einzelnen Buchstaben aus der "User Eingabe" "Computer" (die in text$ gespeichert ist) auslesen möchtest, benützt du [ MID$ ]. Beispiel:
Du möchtest das 5. Zeichen aus Deiner Eingabe "Computer" auslesen:

INPUT "TEXT :",text$
PRINT "5. Zeichen: ";
PRINT MID$(text$,5,1)
------------------------------------------------------------------

Um alle Buchstaben auszulesen bietet es sich an die einzelnen Buchstaben in einem Feld zu speichern:

Buchstaben = 20
DIM wort$(Buchstaben)
CLS
INPUT "TEXT :",text$
FOR x% = 1 to LEN(text$)
wort$(x%)=MID$(text$,x%,1)
NEXT

Jetzt wären alle Zeichen des eingegebenen Wortes in wort$() gespeichert. Wenn Du "Computer" als Text eingegeben hättest, dass wäre wort$(4) zum Beispiel das Zeichen "p".

Nun kannst Du nach Belieben verschlüsseln. Mit dem folgenden Programm wäre zum Beispiel jeder Buchstabe des Textes "Computer" um eine Stelle im Alphabet nach "oben" verschoben, also "Computer" = "Dpnqvufs".

Buchstaben = 20
DIM wort$(Buchstaben)
DIM neueswort$(Buchstaben)
DIM code$,x%,plus%
CLS
INPUT "TEXT :",text$
FOR x% = 1 to LEN(text$)
wort$(x%)=MID$(text$,x%,1)
plus%=asc(wort$(x%))
plus%=plus%+1
neueswort$(x%)=chr$(plus%)
code$=code$+neueswort$(x%)
NEXT

PRINT "Kodiert: ", code$

-----------------------------------------------------

Viel Spaß beim experimentieren !!!


_________________
"Es wurde schon alles gesagt, nur noch nicht von jedem !"

[Skilltronic]

Hallo

Wenn der Text als .txt-Datei vorliegt, dann vielleicht irgendwie so: