Beiträge von Schrubber

Hallo ihr,

Ich habe mich vor langem mal mit meinem Chiffrierungstool befasst.
Leider ist mir meine HD abgeraucht, sodass ich nur meine Alpha Backups hab.

Meine Geschichte, wozu das Tool genutzt wird:
Wir haben bei Die-Stämme (Browsergame) einen Spion im Stamm. Nun mächten wir aber nicht, dass er alles lesen kann. Also ist mir die Idee gekommen: Verschlüssel einfach alle Texte, die geschrieben werden, ein paar mal und das wird dann gepostet. Also soll auch nur der, der das Tool hat, durch die paar Verschlüsselungsalgo´s durchkommen und somit den Ursprungstext lesen können.

Mein bisheriges Tool:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

#Region ### START Koda GUI section ### Form=
$Enigma = GUICreate("Enigma", 442, 413, 344, 193)
$menu1 = GUICtrlCreateMenu("Codierung")
$menu11 = GUICtrlCreateMenuitem("Info", $menu1)
$menu2 = GUICtrlCreateMenu("Other")
$menu21 = GUICtrlCreateMenuitem("About", $menu2)
$head = GUICtrlCreateLabel("DS-Chiffrierungstool", 61, 20, 320, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$title_eingabe = GUICtrlCreateLabel("Eingabe:", 32, 70)
$eingabe = GUICtrlCreateInput("", 32, 88, 385, 89)
GUICtrlSetData(-1, "")
$title_ausgabe = GUICtrlCreateLabel("Ausgabe:", 32, 206)
$ausgabe = GUICtrlCreateInput("", 32, 224, 385, 89)
GUICtrlSetData(-1, "")
$code = GUICtrlCreateButton("Verschlüsseln", 36, 356, 121, 25, $WS_GROUP)
$copyright = GUICtrlCreateLabel("Scripted by UWC | Schrubber @ 2009", 8, 392, 184, 17)
$decode = GUICtrlCreateButton("Entschlüsseln", 165, 356, 121, 25, $WS_GROUP)
$quit = GUICtrlCreateButton("Quit", 295, 356, 121, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $code
GUICtrlSetData($ausgabe, '')
Dim $arstring = StringSplit(GUICtrlRead($eingabe), ''), $str = ''
For $i = 1 To UBound($arstring) -1
$str &= StringUpper(Hex(Asc($arstring[$i]), 2)) & ' '
Next
GUICtrlSetData($ausgabe, $str)

Case $decode
GUICtrlSetData($ausgabe, '')
Dim $chstring = StringSplit(GUICtrlRead($eingabe), ''), $str2 = ''
For $ii = 1 To $chstring[0] Step 3
$hex = $chstring[$ii] & $chstring[$ii+1]
$str2 &= Chr(Dec($hex))
Next
GUICtrlSetData($ausgabe, $str2)

Case $menu21
MSGBox(1, "Chiff-Info", "DS-Chifftool" & @CRLF & "Dieses Tool chiffriert den Text durch viele Verschlüsselungsalgorythmen.")

Case $menu21
MSGBox(1, "About", "DS-Chiffrierungstool" & @CRLF & "Version: Alpha 1.0" & @CRLF & "Scripted by Schrubber")

Case $quit
Exit
EndSwitch

WEnd

Das Tool verschlüsselt mir das nun 1x ins HEX System. Ich mächte aber soviele versch. einbinden und auch so oft es geht, wie nur möglich.

Meine 1. Frage: Welche Verschlüsselungsmöglichkeiten beitet ir Autoit?
Meine 2. Frage: Wie müsste ich den Quellcode dann umschreiben, damit er den neuen Wert von $ausgabe erneut verschlüsselt?

Ich hoffe, Ihr könnt mir helfen.
Und nein, es ist kein Bot

Rubberducky

Ich schätze versch. Server / Realms, die man mit dem Parametern ansteurt? ;o

HotKeySet("{ENTER}", "")
$max = 0 ;Hier die Fenster anzahl anzeigen.
$schleife = 0

while $schleife < $max
$Form1 = GUICreate("Form1", 188, 135, $random1, $random2y,BitOR($WS_CAPTION,$WS_POPUP,$WS_BORDER,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Label1", 80, 24, 36, 17)
$Button1 = GUICtrlCreateButton("Button1", 64, 80, 75, 25, $WS_GROUP)
$schleife = $schleife + 1
WEnd

Hallo Ihr,

Ich wollte mal Fragen, ob folgendes in Autoit funktioniert.

Ich habe einen Prozess offen (von mir aus WoW.exe).
Nun macht einer einen Hack oä an, was diese WoW.exe ja verändert.
Also Werte ändert, Speedhack usw.

Also wird ja auch der Prozess an sich verändert?

Und genau da ist der Punkt:
Kann man prüfen, ob ein Prozess beeinflusst wird (durch einen Hack) und dann diesen auch schließen lassen?

Bin auf die Idee für meinen Server gekommen, weil ein anderer auch etwas wegen dem Nicht-Schließbaren Guard gefragt hatte.

Schrubber

For $i = 0 to 12 Step +1
If $i = 0 then
$i = ""
EndIf

If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options", "OPEN"&$i)
Then

;Deine Anweisung

EndIf
Next

Vielleicht?

//Edit: Zu langsam Mist

Um es nur zu pausieren, würde ich eine Hilfsvariable einbauen

;~ GUISetOnEvent($GUI_EVENT_CLOSE, "help")

Musste ich mal commenten, da des irgendwie nen Fehler is

Warum sollten wir dir eine Mail schreiben, um das Tool zu kriegen?

Entweder lädst du hier ein paar Screenshots + die Datei hoch, oder du wirst keine bis sehr wenig Mails kriegen.

Bin mir zwar nicht sicher, aber ist 127.0.0.1 nicht immer Localhost?
Also versuchst du, Server und Client gleichzeitig zu sein.
Und das sollte eig nicht gehen?

Ouh, das tat weh :o

Nun seh ich erstmal, was ich alles falsch gemacht hab / falsch verstandne habe o.o

Ich kriege nun nur noch den Fehler:

Zitat

D:\AutoIt3\Eigen\Scripts\FastTransfer.au3 (88) : ==> Subscript used with non-Array variable.:
GUICtrlSetData($dateienserver[$i], $dirlist[$i] & "|")
GUICtrlSetData($dateienserver^ ERROR

Ich schätz mal, ich muss $dateienserver erstmal als Array deklarieren.
Aber das sollte ich nun selber schaffen,

Danke euch

Irgendwie gefällt mir meine Art besser
Nicht böse sein, speicher mir deine Lösung zur Vorsicht mal ab, aber nun hab ich eine neue Frage:

Case $connect
if($server = "" or $username = "" or $password = "") Then
MSGBOX(1, "Error", "Server, Username oder Password wurde nicht angegeben.")
FileWriteLine($log, $uhrzeit & "Server, Username oder Password wurde nicht angegeben." & @CRLF)
Else
_FTPConnect($open,$server,$username,$password)
if(@error) Then
FileWriteLine($log, $uhrzeit & "Bei der Verbindung zu " & $server & " trat ein Fehler auf." & @CRLF)
Else
FileWriteLine($log, $uhrzeit & "Verbindung erfolgreich hergestellt zu " & $server & @CRLF)
EndIf
EndIf

Local $dirlist = _FTPFilesListToArray ($connection)
FileWriteLine($log, $uhrzeit & "Testeintrag nach $dirlist" & @CRLF)
For $i = 1 to UBound ($dirlist) -1
FileWriteLine($log, $uhrzeit & "Testeintrag nach For-Schleifenbeginn" & @CRLF)
GUICtrlSetData ($dateienserver[$i], $dirlist[$i]&"|")
FileWriteLine($log, $uhrzeit & "Testeintrag nach Listeneintrag" & @CRLF)
Next

Auszug aus der Logdatei:

Zitat

00:03:27 FastTransfer wurde gestartet.
00:03:31 Verbindung erfolgreich hergestellt zu ZENSIERT
00:03:31 Testeintrag nach $dirlist

Also schafft er das For $i = 1 to UBound nicht. Warum?

Schrubber

Ich habe keine Funktion der Art gefunden. Aber ich lasse mich gerne eines besseren belehren

_FtpFileListto2DArray()

Funktioniert bei mir nicht..... Schau mein Script an....

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ftp.au3>
#Include <Date.au3>

$title = GUICreate("FastTransfer", 658, 443, 192, 124)
$menu1 = GUICtrlCreateMenu("Datei")
$menu11 = GUICtrlCreateMenuitem("New Connection", $menu1)
$menu12 = GUICtrlCreateMenuitem("Close Connection", $menu1)
$menu13 = GUICtrlCreateMenuitem("Servermanager", $menu1)
$menu14 = GUICtrlCreateMenuitem("Exit", $menu1)
$menu2 = GUICtrlCreateMenu("Other")
$menu21 = GUICtrlCreateMenuitem("About", $menu2)
$server_l = GUICtrlCreateLabel("Server:", 8, 8, 38, 19)
$username_l = GUICtrlCreateLabel("Username:", 176, 8, 55, 19)
$password_l = GUICtrlCreateLabel("Password:", 360, 8, 53, 19)
$server_i = GUICtrlCreateInput("", 48, 8, 121, 21)
$username_i = GUICtrlCreateInput("", 232, 8, 121, 21)
$password_i = GUICtrlCreateInput("", 416, 8, 121, 21)
$connect = GUICtrlCreateButton("Connect", 544, 8, 105, 25, $WS_GROUP)
$dateieneigen = GUICtrlCreateList("", 8, 80, 641, 136)
$dateienserver = GUICtrlCreateList("", 8, 230, 641, 136)
$toolname = "FastTransfer"
$open = _FTPOpen($toolname)
$server = " "
$username = " "
$password = " "
$uhrzeit = @Hour & ":" & @Min & ":" & @Sec & " "
$connection = _FTPConnect($open,$server,$username,$password)
DirCreate("Logs")
$log = "Logs\" & _NowDate() & ".txt"
FileOpen($log, 1)
FileWriteLine($log, $uhrzeit & $toolname & " wurde gestartet. "& @CRLF)

GUISetState(@SW_SHOW)

While 1
$uhrzeit = @Hour & ":" & @Min & ":" & @Sec & " "
$server = GUICTRLRead($server_i)
$username = GUICTRLRead($username_i)
$password = GUICTRLRead($password_i)

$nMsg = GUIGetMsg()
Switch $nMsg
Case $menu14
_FTPClose($connection)
FileWriteLine($log, $uhrzeit & $toolname & " wurde beendet. "& @CRLF)
MSGBOX(1, "Exit", "Vielen Dank, dass sie " & $toolname & " genutzt haben.")
Exit

Case $menu12
FileWriteLine($log, $uhrzeit & "Verbindung zu " & $server & " wurde getrennt." & @CRLF)
_FTPClose($connection)
GUICtrlSetData($server_i,"")
GUICtrlSetData($username_i,"")
GUICtrlSetData($password_i,"")

Case $connect
if($server = "" or $username = "" or $password = "") Then
MSGBOX(1, "Error", "Server, Username oder Password wurde nicht angegeben.")
FileWriteLine($log, $uhrzeit & "Server, Username oder Password wurde nicht angegeben." & @CRLF)
Else
_FTPConnect($open,$server,$username,$password)
if(@error) Then
FileWriteLine($log, $uhrzeit & "Bei der Verbindung zu " & $server & " trat ein Fehler auf." & @CRLF)
Else
FileWriteLine($log, $uhrzeit & "Verbindung erfolgreich hergestellt zu " & $server & @CRLF)
EndIf
$filelist = _FtpFilesListtoArray($connection,0)
For $i = 1 to UBound ($filelist) -1
GUICtrlSetData ($dateienserver[$i], $filelist [$i][0]&"|")
ConsoleWrite($filelist[$i] & @CRLF)
Next
EndIf

Case $GUI_EVENT_CLOSE
_FTPClose($connection)
FileWriteLine($log, $uhrzeit & $toolname & " wurde beendet. "& @CRLF)
Exit

EndSwitch
WEnd

Meine Loginfunktion funktioniert. NUr ich krieg die Dateiausgabe von dem FTP Server nicht hin
Wäre echt nett

Schrubber

Er loggt sich ein, gibt mir auch bei fehlerhaftem Login die Meldung von wegen nicht erfolgreich aus, jedoch funktioniert das mit dem Filelisttoarray nicht.
Diesmal bitte keine vollständigen Codes, sondern nur Hilfen und Infos, was daran falsch ist. Möchte ja auch was lernen

Aaaaaaaah......

Habs so mal probiert, Eintrag in der Log:
00:18:59 Verbindung erfolgreich hergestellt zu 13

Die 13 ist noch, weil der leere Wert genommen ist.
Verbindung wird aber erfolgreich hergestellt....

Danke euch

// Werde das Thread offen halten, damit ich meine weiteren Fragen hier posten kann und nicht immer ein neues aufmachen muss
//Edit2:

Nun gibt er mir immer aus, dass die Verbindung hergestellt wurde, obwohl die LogiN Daten falsch sind xD

Das ist die originale, die ich mir hier im Forum gezogen habe
Würde mich wundern, wenn sie fehlerhaft wäre..

Also da ich sehe, dass es mit dem GUICtrlRead usw. ja auch nicht geht, hab ich das Script weitergeführt und bin nun soweit.
Nun gibt er mir auch in der Log Datei an, dass die Verbindung nicht gemacht wird.
Es tritt also eiN Fehler auf. Bitte helft mir. Bin mit meinem Latein am ende.....

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ftp.au3>
#Include <Date.au3>

$title = GUICreate("FastTransfer", 658, 443, 192, 124)
$menu1 = GUICtrlCreateMenu("Datei")
$menu11 = GUICtrlCreateMenuitem("New Connection", $menu1)
$menu12 = GUICtrlCreateMenuitem("Close Connection", $menu1)
$menu13 = GUICtrlCreateMenuitem("Servermanager", $menu1)
$menu14 = GUICtrlCreateMenuitem("Exit", $menu1)
$menu2 = GUICtrlCreateMenu("Other")
$menu21 = GUICtrlCreateMenuitem("About", $menu2)
$server_l = GUICtrlCreateLabel("Server:", 8, 8, 38, 19)
$username_l = GUICtrlCreateLabel("Username:", 176, 8, 55, 19)
$password_l = GUICtrlCreateLabel("Password:", 360, 8, 53, 19)
$server_i = GUICtrlCreateInput("", 48, 8, 121, 21)
$username_i = GUICtrlCreateInput("", 232, 8, 121, 21)
$password_i = GUICtrlCreateInput("", 416, 8, 121, 21)
$connect = GUICtrlCreateButton("Connect", 544, 8, 105, 25, $WS_GROUP)
$dateieneigen = GUICtrlCreateList("", 8, 80, 641, 136)
$dateienserver = GUICtrlCreateList("", 8, 230, 641, 136)
$toolname = "FastTransfer"
$open = _FTPOpen($toolname)
$connection = _FTPConnect($open,$server_i,$username_i,$password_i)
$filelist = _FTPFilesListToArray ($connection)
$uhrzeit = @Hour & ":" & @Min & ":" & @Sec & " "
DirCreate("Logs")
$log = "Logs\" & _NowDate() & ".txt"
FileOpen($log, 1)
FileWriteLine($log, $uhrzeit & $toolname & " wurde gestartet. "& @CRLF)
$server = GUICtrlRead($server_i)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $menu14
_FTPClose($connection)
FileWriteLine($log, $uhrzeit & $toolname & " wurde beendet. "& @CRLF)
MSGBOX(1, "Exit", "Vielen Dank, dass sie FastTransfer genutzt haben.")
Exit

Case $menu12
FileWriteLine($log, $uhrzeit & "Verbindung zu " & $connection & " wurde getrennt." & @CRLF)
_FTPClose($connection)

Case $connect
_FTPOpen($toolname)
_FTPConnect($open, $server_i, $username_i, $password_i)
if(@error = -1) Then
FileWriteLine($log, $uhrzeit & "Bei der Verbindung zu " & $server & " trat ein Fehler auf." & @CRLF)
Else
FileWriteLine($log, $uhrzeit & "Verbindung erfolgreich hergestellt zu " & $server_i & @CRLF)
EndIf

For $i = 1 to UBound ($filelist) -1
GUICtrlSetData ($dateienserver, $filelist [$i][0]&"|")
Next

Case $GUI_EVENT_CLOSE
_FTPClose($connection)
FileWriteLine($log, $uhrzeit & $toolname & " wurde beendet. "& @CRLF)
Exit

EndSwitch
WEnd

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ftp.au3>

$title = GUICreate("FastTransfer", 658, 443, 192, 124)
$server_l = GUICtrlCreateLabel("Server:", 8, 8, 38, 19)
$username_l = GUICtrlCreateLabel("Username:", 176, 8, 55, 19)
$password_l = GUICtrlCreateLabel("Password:", 360, 8, 53, 19)
$server_i = GUICtrlCreateInput("", 48, 8, 121, 21)
$username_i = GUICtrlCreateInput("", 232, 8, 121, 21)
$password_i = GUICtrlCreateInput("", 416, 8, 121, 21)
$connect = GUICtrlCreateButton("Connect", 544, 8, 105, 25, $WS_GROUP)
$dateieneigen = GUICtrlCreateList("", 8, 80, 641, 136)
$dateienserver = GUICtrlCreateList("", 8, 230, 641, 136)
$server = GUICTRLRead($server_i)
$username = GUICTRLRead($username_i)
$password = GUICTRLRead($password_i)
$open = _FTPOpen("FastTransfer")
$connection = _FTPConnect($open,$server,$username,$password)
$filelist = _FTPFilesListTo2DArray ($connection)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg

Case $connect
_FTPOpen("FastTransfer")
_FTPConnect($open, $server, $username, $password)

For $i = 1 to UBound ($filelist) -1
GUICtrlSetData ($dateienserver, $filelist [$i][0]&"|")
Next

Case $GUI_EVENT_CLOSE
_FTPClose($connection)
Exit

EndSwitch
WEnd

Gemacht, ändert sich aber nichts.
Und ja, die Login Daten, die ich nutze, sind richtig

Hallo Leutz,

Ich habe mich heute dran begeben, ein FTP Programm zu schreiben.
Habe bisher folgenden Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ftp.au3>

$title = GUICreate("FastTransfer", 658, 443, 192, 124)
$server_l = GUICtrlCreateLabel("Server:", 8, 8, 38, 19)
$username_l = GUICtrlCreateLabel("Username:", 176, 8, 55, 19)
$password_l = GUICtrlCreateLabel("Password:", 360, 8, 53, 19)
$server_i = GUICtrlCreateInput("", 48, 8, 121, 21)
$username_i = GUICtrlCreateInput("", 232, 8, 121, 21)
$password_i = GUICtrlCreateInput("", 416, 8, 121, 21)
$connect = GUICtrlCreateButton("Connect", 544, 8, 105, 25, $WS_GROUP)
$dateieneigen = GUICtrlCreateList("", 8, 80, 641, 136)
$dateienserver = GUICtrlCreateList("", 8, 230, 641, 136)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg

Case $connect
$open = _FTPOpen("FastTransfer")
$connection = _FTPConnect($open,$server_i,$username_i,$password_i)
$filelist = _FTPFilesListTo2DArray ($connection,0,0x80000000)

Case $GUI_EVENT_CLOSE
_FTPClose($connection)
Exit

EndSwitch
WEnd

Wenn ich alle Daten eingegeben habe und dann auf Connect klicke, passiert jedoch nichts
Warum?

Danke

Login Daten richtig?

Aaaaah stimmt. Man muss ja immer 2 zusammen fassen <.<

Danke