Allgemeines Problem (mit GUI)

ZaZiZu · 10/18/2010, 19:13

Aaalso hab mal aus langeweile ein Etwas geschrieben, womit man mithilfe einer XOR verschlüsselung zwei Zeichenreihen miteinander verschlüsselt.
€dit: so, probleme gelöst ^^ thx
hier die alten probleme im spoiler

Spoiler

Die Grundidee hatte ich schon mal richtig gemacht, blos mit einer Benutzeroberfläche scheint es irgendwie nicht gehen zu wollen -.-

Schaut es euch einfach mal an und sagt was ihr davon haltet und wo eventuell ein Fehler sein kann:

Spoiler

Quote:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Include <string.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Testbot", 601, 276, 190, 124)
$text= GUICtrlCreateEdit("", 0, 0, 600, 120)
GUICtrlSetData(-1, "Rate_mal_was_hier_rein_kommt_________________ ")
$pass0 = GUICtrlCreateInput("Passwort/Schlüssel", 0, 120, 600, 21)
$Button1 = GUICtrlCreateButton("Click me for getting COOKIES", 0, 135, 600, 40)
$Edit1 = GUICtrlCreateEdit("", 0, 176, 600, 97)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $text
Global $pass0
Global $lol
Global $i = $lol
Global $pass1
Global $hexa
Dim $neu

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1

;$text=InputBox("Test1", "Gib den Text ein, der Zerlegt werden soll", " ")
;$pass0=InputBox("Test2", "Gib das Paaahswort ein", " ")

;Run("Notepad.exe", "", @SW_MINIMIZE)

$anzahl1=Int((StringLen($text))/(StringLen($pass0))+1)
$pass1=StringLeft (_StringRepeat( $pass0, $anzahl1), (StringLen($text)))

$avArray=StringSplit($text, "")
$avArray1=StringSplit($pass1, "")

$lol= 0
$lolmax=$avArray[0]
While True
Select
Case $lolmax <> $lol
$lol = $lol + 1
_bla2()
_bla3()
Case $lolmax = $lol
ExitLoop
EndSelect
WEnd

Func _bla2()
$hexa = BitXOR(Asc($avArray[$lol]), Asc($avArray1[$lol]), 8)
EndFunc

Func _bla3()
sleep(200)
ControlSend("Unbenannt - Editor", "", "Edit1", (Hex($hexa,2)&" "))

;ControlSend("Testbot", $Edit1, $Edit1, (Hex($hexa,2)&" "))
EndFunc

Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

btw. ich weiß, das ein oder andere hätt man da vieleicht auslassen können oder anders/leichter formulieren können, aber kenne mich mit AutoIt nicht sooo besonders aus ^^ vorallem diese GUIs bringen mich voll um (ist auch das 1te mal, dass ich eine benutze

)
kurz und knapp: sagt nicht gleich ich wär zu dumm dafür

€dit: hier mal das Original und kurz was in der Gui anders sein sollte:

Spoiler

Hier habe ich 2 Abfragen: Das, was zu verschlüsseln ist, und das Passwort
Und noch um das Ergebniss irgendwo festzuhalten (da man es glaub ich nicht alles auf einmal rauskriegt, es sei denn man macht die schleife weg und donnert alle XX-Arrays da rein) hab ich auch ein Editor erstellen lassen.

Problem bei der Gui:
1. ich weiß nicht, wie ich das ergebnis in das Editor-kästchen unter dem button reinschreiben lassen kann.
2. auch ohne diesem kommt als ergebnis nur ein 0F raus, was so oder so falsch ist. ich glaub die schleife will nicht

€dit2: wenn man hier schon draufguckt stell ich mal eine noobfrage:
gibt es eine andere möglichkeit variablen aus einer Function zu globalisieren, also auch für andere functionen/sonstiges zugänglich machen zu lassen?

Spoiler

Hier mal das Fertige ^^

Spoiler

Quote:

#include <Array.au3>
#Include <string.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Viktor\Desktop\Form1.kxf
$Form1 = GUICreate("Hausaufgabenbot, what else - Diesmal für Binf-Verschlüsselungen", 604, 277, 190, 124)
$text = GUICtrlCreateEdit("", 0, 0, 481, 129)
GUICtrlSetData(-1, "Hier der Text, den du mit dem Schlüssel mithilfe der XOR-Verschlüsselung verschlüsseln willst")
$Button1 = GUICtrlCreateButton("Drück drauf, du willst es doch", 0, 160, 601, 41)
$pass0 = GUICtrlCreateInput("Schlüssel", 0, 136, 481, 21)
$Radio1 = GUICtrlCreateButton("Text zu Text", 480, 0, 121, 50)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateButton("Text zu Hexadezimal", 480, 50, 121, 50)
$Radio3 = GUICtrlCreateButton("Text zu ASCII", 480, 100, 121, 50)
$Edit1 = GUICtrlCreateEdit("", 0, 200, 601, 73)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $text, $pass0, $lol, $pass1, $hexa, $avArray, $avArray1
Dim $neu

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Radio1
_bla1a()
Case $Radio2
_bla1b()
Case $Radio3
_bla1c()
Case $Button1
MsgBox(0, "Uuups...", "FAIL")

Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func _bla1a()
$anzahl1=Int((StringLen(GUICtrlRead($text)))/(StringLen(GUICtrlRead($pass0)))+1)
$pass1=StringLeft (_StringRepeat( GUICtrlRead($pass0), $anzahl1), (StringLen(GUICtrlRead($text))))

$avArray=StringSplit(GUICtrlRead($text), "")
$avArray1=StringSplit($pass1, "")

$lol= 0
$lolmax=$avArray[0]
While True
Select
Case $lolmax <> $lol
$lol = $lol + 1
_bla2()
_bla3()
Case $lolmax = $lol
GUICtrlSetData ( $Edit1, @CRLF, " ")
ExitLoop
EndSelect
WEnd
EndFunc
Func _bla1b()
$anzahl1=Int((StringLen(GUICtrlRead($text)))/(StringLen(GUICtrlRead($pass0)))+1)
$pass1=StringLeft (_StringRepeat( GUICtrlRead($pass0), $anzahl1), (StringLen(GUICtrlRead($text))))

$avArray=StringSplit(GUICtrlRead($text), "")
$avArray1=StringSplit($pass1, "")

$lol= 0
$lolmax=$avArray[0]
While True
Select
Case $lolmax <> $lol
$lol = $lol + 1
_bla2()
_bla4()
Case $lolmax = $lol
GUICtrlSetData ( $Edit1, @CRLF, " ")
ExitLoop
EndSelect
WEnd
EndFunc

Func _bla1c()
$anzahl1=Int((StringLen(GUICtrlRead($text)))/(StringLen(GUICtrlRead($pass0)))+1)
$pass1=StringLeft (_StringRepeat( GUICtrlRead($pass0), $anzahl1), (StringLen(GUICtrlRead($text))))

$avArray=StringSplit(GUICtrlRead($text), "")
$avArray1=StringSplit($pass1, "")

$lol= 0
$lolmax=$avArray[0]
While True
Select
Case $lolmax <> $lol
$lol = $lol + 1
_bla2()
_bla5()
Case $lolmax = $lol
GUICtrlSetData ( $Edit1, @CRLF, " ")
ExitLoop
EndSelect
WEnd
EndFunc

Func _bla2()
$hexa = BitXOR(Asc($avArray[$lol]), Asc($avArray1[$lol]), 8)
EndFunc

Func _bla3()
sleep(100)
GUICtrlSetData ( $Edit1, (Chr($hexa)), " ")
EndFunc

Func _bla4()
sleep(100)
GUICtrlSetData ( $Edit1, (Hex($hexa,2)&" "), " ")
EndFunc

Func _bla5()
sleep(100)
GUICtrlSetData ( $Edit1, $hexa& " ", " ")
EndFunc

Im fertigen sind auch paar Macken. Und zwar wollte ich da nicht nur die normale Funktion machen, sondern, dass das Ergebniss in 3 Varianten zur Verfügung steht: Text, Hexadezimal, Dezimal
Das wollte ich mit diesen Radiodingern lösen, doch ich habe 0 Plan wie man diese benutzt.
Hab mal rumexperimentiert und es kam nur dazu, dass es nach dem Anklicken irgendeine Zahl/Zeichen ausspuckt.
Was ich erreichen wollte war, dass ich durch dieses Anklicken da bestimme, welche Funktion nach dem Button-druck zusätzlich kommt, also wie es da am Ende hingeschrieben wird.

Mein Versuch war:
Case (oder If)
$Radio1 = $ENABLED(weiß nicht mehr wie es geschrieben wird, ich mein dass es aktiviert ist)
(Than) $zusatzfunktion = _bla4()

und wenn ich Dies einfach reinballer contert das Programm beim "Aktivieren" des Kreises mit irgendeiner, aus dem Nichts geholter Zahl oder irgendeinem Zeichen -.-

lolkop · 10/18/2010, 20:07

du solltest wissen, das wenn du controls über gui commands erstellst, in der variable das handle vom control speicherst.

den inhalt abfragen kannst dui über GuiCtrlRead($hwnd)...

also wenn du im gui setzt

Code:

$pass0 = GUICtrlCreateInput("Passwort/Schlüssel", 0, 120, 600, 21)

wird in $pass0 das handle vom control gespeichert. natürlich willst du aber nicht das handle verwenden für deine berechnung, sondern den inhalt des inputs.

desweiteren kann man variablen der selben gültigkeitsklasse durch komma getrennt deklarieren...

Code:

Global $text, $pass0, $lol, $i = $lol, $pass1, $hexa

wobei hier $i = $lol sinnlos ist, da $lol ohne '=' in der definition genau wie alle anderen automatisch als "" definiert wird.

ZaZiZu · 10/18/2010, 20:42

Ahh, Thx

jetzt geht es (ein Wunder)
was ich verändert habe:
einmal die Global-liste
die Read-Befehle
den Send-Befehl am ende
mein Wissen ^^

Spoiler

GUIs sind ja doch nicht sooo schwer, wie ich dachte ^^ Die gleiche Form, blos heißen die Befehle halt anders.

ok, jetzt ist nur noch offen: ist das mit "Global = $lscjl6, $sklcjt, $sfhclkt" die einzige möglichkeit Variablen für das ganze script zur verfügung zu stellen (fals die mal in funktion, sowie außerhalb gebraucht werden)?

lolkop · 10/18/2010, 20:48

Quote:

Originally Posted by ZaZiZu

Ahh, Thx jetzt geht es (ein Wunder)
was ich verändert habe:
einmal die Global-liste
die Read-Befehle
den Send-Befehl am ende
mein Wissen ^^

Spoiler

GUIs sind ja doch nicht sooo schwer, wie ich dachte ^^ Die gleiche Form, blos heißen die Befehle halt anders.

ok, jetzt ist nur noch offen: ist das mit "Global = $lscjl6, $sklcjt, $sfhclkt" die einzige möglichkeit Variablen für das ganze script zur verfügung zu stellen (fals die mal in funktion, sowie außerhalb gebraucht werden)?

im normalfall sollte man immer versuchen auf globale definitionen zu verzichten... manche variablen wie zb gui variablen werden automatisch als global definiert, was auch sinn macht, aber ich persöhnlich finde es ja am besten wenn alles sogar als local deklariert wird =)

ZaZiZu · 10/18/2010, 22:36

Sorry, wenn ich wieder störe, aber hab wieder fragen ^^
1. globale difinitionen verzichten? aber bei mir kommen immer fehler, wenn ich da keine globale difinition mache. sagt er nur dass diese variable nicht deklariert wurde oder so

2. wieso drückt der kein enter -.-? " GUICtrlSetData ( $Edit1, "{ENTER}", " ") "
der schreibt in das eingabefenster nur {ENTER}, voll die verarsche ^^

lolkop · 10/18/2010, 22:52

Quote:

Originally Posted by ZaZiZu

Sorry, wenn ich wieder störe, aber hab wieder fragen ^^
1. globale difinitionen verzichten? aber bei mir kommen immer fehler, wenn ich da keine globale difinition mache. sagt er nur dass diese variable nicht deklariert wurde oder so

2. wieso drückt der kein enter -.-? " GUICtrlSetData ( $Edit1, "{ENTER}", " ") "
der schreibt in das eingabefenster nur {ENTER}, voll die verarsche ^^

wenn du variablen nur für funktionen brauchst, reichts wenn du die in der funktion als local deklarierst.
ansonsten im script halt als dim...

hatte bisher ganz selten fälle in autoit, wo es nötig war globals zu setzn =)

und zu guictrlsetdata, der setzt halt nur daten in dem control, das du ansprichst...
willst du zb in einem edit ein enter machen, musst du das wie auch in strings per @CRLF tun.