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
Hier mal das Fertige ^^
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 -.-
€dit: so, probleme gelöst ^^ thx
hier die alten probleme im 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:
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 :D)
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:
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?
Schaut es euch einfach mal an und sagt was ihr davon haltet und wo eventuell ein Fehler sein kann:
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 :D)
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:
Quote:
#include <Array.au3>
#Include <string.au3>
$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, "")
Global $lol
Global $i = $lol
Global $pass1
Global $hexa
Dim $neu
$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)&" "))
EndFunc
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?
neues problem: 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 ^^
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 ^^
Hier mal das Fertige ^^
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 -.-
