Problem mit Xor und Asc

Übersicht

BlitzBasic

Allgemein

	Toschy Betreff: Problem mit Xor und Asc	Di, Jan 17, 2006 9:14 Antworten mit Zitat
Moin Jungs ich hab nen Problem, bei dem ich hoffe, dass mir jemand helfen kann. Ich habe folgendes Programm geschrieben, verstehe aber den Fehler nicht: Code: [AUSKLAPPEN] [EINKLAPPEN] Cls A=0 Eingabe$=Input("Text: ") Passwort§=Input("Passwort:") PaLa=Len(Passwort$) For I=1 To Len(Eingabe$) A=A+1 Code$=Code$+Chr$(Asc(Mid$(EIngabe$,I,1)) Xor Asc(Mid$(Passwort$,A,1) If A>=PaLa Then A=0 Next Print Code$ Waitkey End Wenn ich nun sowohl für das Passwort als auch den Text normale Buchstaben eingebe bekomme ich immer nur Balken als Ausgabe! Habe ich irgendwo einen Denkfehler? Es ist schon merkwürdig, denn gebe ich nur für einen String Buchstaben ein und für den Anderen Ziffern funktioniert es... Ich verstehe es nicht. Weiß jemand wo der Fehler liegt???
Jedem das Seine, mir Alles!

Toschy

Betreff: Problem mit Xor und Asc

Di, Jan 17, 2006 9:14
Antworten mit Zitat

Moin Jungs ich hab nen Problem, bei dem ich hoffe, dass mir jemand helfen kann.
Ich habe folgendes Programm geschrieben, verstehe aber den Fehler nicht:

Code: [AUSKLAPPEN]

Cls
A=0
Eingabe$=Input("Text: ")
Passwort§=Input("Passwort:")
PaLa=Len(Passwort$)

For I=1 To Len(Eingabe$)
A=A+1
Code$=Code$+Chr$(Asc(Mid$(EIngabe$,I,1)) Xor Asc(Mid$(Passwort$,A,1)
If A>=PaLa Then A=0
Next
Print Code$
Waitkey
End

Wenn ich nun sowohl für das Passwort als auch den Text normale Buchstaben eingebe bekomme ich immer nur Balken als Ausgabe! Habe ich irgendwo einen Denkfehler? Es ist schon merkwürdig, denn gebe ich nur für einen String Buchstaben ein und für den Anderen Ziffern funktioniert es...
Ich verstehe es nicht. Weiß jemand wo der Fehler liegt???

Jedem das Seine, mir Alles!

	Jan_ Ehemaliger Admin	Di, Jan 17, 2006 11:53 Antworten mit Zitat
gibt keinen, du lässt nur das verschlüßelte anzeigen, -> Asciizeichen die meistensw ausserhalb des Buchstabenbereichsliegen Code: [AUSKLAPPEN] [EINKLAPPEN] Cls A=0 Eingabe$=Input("Text: ") Passwort$=Input("Passwort:") PaLa=Len(Passwort$) ;verschlüßeln For I=1 To Len(Eingabe$) A=A+1 Code$=Code$+Chr$(Asc(Mid$(EIngabe$,I,1)) Xor Asc(Mid$(Passwort$,A,1))) If A>=PaLa Then A=0 Next ;und wieder entschlüßeln a=0 For I=1 To Len(code) A=A+1 ausgabe$=ausgabe$+Chr$(Asc(Mid$(code,I,1)) Xor Asc(Mid$(Passwort$,A,1))) If A>=PaLa Then A=0 Next Print ausgabe$ WaitKey End
between angels and insects

Jan_

Ehemaliger Admin

Di, Jan 17, 2006 11:53
Antworten mit Zitat

gibt keinen, du lässt nur das verschlüßelte anzeigen, -> Asciizeichen die meistensw ausserhalb des Buchstabenbereichsliegen

Code: [AUSKLAPPEN]

Cls
A=0
Eingabe$=Input("Text: ")
Passwort$=Input("Passwort:")
PaLa=Len(Passwort$)

;verschlüßeln
For I=1 To Len(Eingabe$)
A=A+1
Code$=Code$+Chr$(Asc(Mid$(EIngabe$,I,1)) Xor Asc(Mid$(Passwort$,A,1)))
If A>=PaLa Then A=0
Next

;und wieder entschlüßeln
a=0
For I=1 To Len(code)
A=A+1
ausgabe$=ausgabe$+Chr$(Asc(Mid$(code,I,1)) Xor Asc(Mid$(Passwort$,A,1)))
If A>=PaLa Then A=0
Next
Print ausgabe$
WaitKey
End

between angels and insects

	BlitzChecker Betreff: Re: Problem mit Xor und Asc	Di, Jan 17, 2006 14:21 Antworten mit Zitat
Toschy hat Folgendes geschrieben: ... Eingabe$=Input("Text: ") Passwort§=Input("Passwort:") PaLa=Len(Passwort$) ... Das ist auch ein Fehler. Es müsste Passwort$ heissen.
www.xairro.com

BlitzChecker

Betreff: Re: Problem mit Xor und Asc

Di, Jan 17, 2006 14:21
Antworten mit Zitat

Toschy hat Folgendes geschrieben:

...
Eingabe$=Input("Text: ")
Passwort§=Input("Passwort:")
PaLa=Len(Passwort$)
...

Das ist auch ein Fehler. Es müsste Passwort$ heissen. Wink

www.xairro.com

	Toschy	Fr, Jan 20, 2006 13:21 Antworten mit Zitat
Ja sorry der Fehler ist aber nur hier in meinem Programm nicht. Trotzdem Danke. Am besten lasse ich beim über oder unterschreiten des Ascii Bereiches einfach ans andere Ende setzen, jenachdem wie weit unter oder überschritten wurde. Ich hoffe ich kann mein Programm jetzt vervollständigen
Jedem das Seine, mir Alles!

Toschy

Fr, Jan 20, 2006 13:21
Antworten mit Zitat

Ja sorry der Fehler ist aber nur hier in meinem Programm nicht. Trotzdem Danke. Am besten lasse ich beim über oder unterschreiten des Ascii Bereiches einfach ans andere Ende setzen, jenachdem wie weit unter oder überschritten wurde.
Ich hoffe ich kann mein Programm jetzt vervollständigen Wink

Jedem das Seine, mir Alles!

	Toschy Betreff: Alles klar	Mo, Jan 23, 2006 12:55 Antworten mit Zitat
So mein Programm läuft jetzt einwandfrei 8) Damit wäre das Thema gegessen. Ich danke euch, ihr habt mir weiteres Kopfzerbrechen erspart.
Jedem das Seine, mir Alles!