Beiträge von Schnuffel

ansonsten bleibt vielleicht die gute alte Verlinkung zu einem Bild Im Inet.

Hat man dazumal verworfen als Bandbreiten und dauerhaftes Internet noch nicht Gang und Gebe waren.

Aber heute hat doch jeder überall flatrate.

Sollte also wieder in Betracht gezogen werden

da bin ich überfragt ...

die codieren die Bilder in base64 als String in den Code...

... kein Netz?

was willst du denn erreichen?

möchtest du ständig Veränderungen deiner IP-Adresse feststellen?

Oder möchtest du informiert werden, wenn du kein Netz mehr hast.

Das sind 2 völlig unterschiedliche Dinge

eine Netzwerkverbindung verliert seine IP erst nach der Lease-Time. Dann wird, wenn keine Antwort kommt vom DHCP auf APIPA umgeschaltet.

All das setzt aber eine DHCP Konfiguration voraus. Ansonsten steht die IP-Adresse auch ohne Kabel bis zum St. Nimmerleins-Tag

Also...

AdlibRegister kann nicht mit Parameter eine Funktion ansteuern. Daher ist das mit dem $sHost so nicht möglich.

Da musst du mit einer Variable außerhalb der aufzurufenden Funktion arbeiten.

Zitat

Function AdlibRegister

Every 250 ms (or time ms) the specified "function" is called--typically to check for unforeseen errors. For example, you could use adlib in a script which causes an error window to pop up unpredictably.

The adlib function should be kept simple as it is executed often and during this time the main script is paused. Also, the time parameter should be used carefully to avoid CPU load.

You can not register a function using parameters.

Several Adlib functions can be registered. Re-registering an already existing Adlib function will update it with a new time.

Eine Funktion innerhalb der selben Funktion aufzurufen ist auch eine ganz schlechte Idee, da diese Funktion ja sowieso schon jede Sekunde über AdlibRegister angesteuert wird.

Ich hab mal eine quick & dirty Lösung für dein Problem angehängt

Local $sHost= "localhost"
Local $IP, $Gateway, $nMsg
AdlibRegister('_ActiveIP', 1000)
AdlibRegister('_PrintIP', 1000)
HotKeySet("{ESC}", "_Terminate")


While Sleep(10)

WEnd

Func _ActiveIP()
    Local $objAdapter
    Local $objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $sHost & "\root\cimv2")
    If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
    Local $colAdapter = $objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", "WQL", 0x30)
    If Not IsObj($colAdapter) Then Return SetError(1, 0, 0)
    For $objAdapter In $colAdapter
        If ($objAdapter.IPAddress(0)) Then
            If $objAdapter.DefaultIPGateway(0) Then
                $IP = $objAdapter.IPAddress(0)
                $Gateway = $objAdapter.DefaultIPGateway(0)
                Return
            EndIf
        EndIf
    Next
EndFunc   ;==>_ActiveIP

Func _PrintIP()
    ConsoleWrite("IP: " & $IP & @CRLF)
    ConsoleWrite("Gateway: " & $Gateway & @CRLF)
EndFunc

Func _Terminate()
    Exit
EndFunc   ;==>_Terminate

in der Regel ist der UPX-Packer das Problem.

Für Anwendungen, die ausschließlich im "eigenen Hause" betrieben werden, kann man ja eine Ausnahme in der AV-Soft setzen.

Ansonsten gibt es auch die Möglichkeit kommerzielle Programme bei den AV Herstellern bekannt zu machen, dann setzen die das Ding auf die Whitelist

ich denke du möchtest dich einfach der Verschlüsselung als solches einfach durch experimentieren annähern.

Aber ich denke, warum das Ei neu erfinden...

Es gibt als Ansatz eine sehr kleine Funktion von Andy, der mit einer XOR Verschlüsselung deine Ansprüche sicher leicht erfüllt.

Es muss ja nicht immer alles immer wieder neu erfunden werden.

ich häng sein Script mal an, vielleicht inspiriert es dich

; Script Start - Add your code below here

$data = "Hallo, dieser Text wird verschlüsselt und entschlüsselt per XOR!"

;4 Beispiele für Schlüssel
$schluessel_1 = "" ;zufälligen schlüssel erstellen, je länger, desto besser, man kann auch beliebige Binär-Dateien, z.B. Bilder oder zip-files als Schlüssel nehmen
For $i = 1 To stringlen($data) ;oder jede andere beliebige länge
    $schluessel_1 &= Chr(Random(1, 255, 1)) ;zufällige bytes von 1-255
Next
$schluessel_2 = "Omas bester Pflaumenkuchen ist soooooooooo lecker, das glaubt man nicht!"
$schluessel_3 = "11111222333333"
$schluessel_4 = StringMid(FileRead(@AutoItExe), 1337, 100) ;schlüssel irgendwo aus einer exe nehmen...bei texten sollte man viele nullbytes im schlüssel vermeiden ^^


For $i = 1 To 4 ;die 4 Beispiele anzeigen, data wird jeweils mit einem der 4 Schlüssel ver- und entschlüsselt
    $schluessel = Eval("schluessel_" & $i) ;$schluessel_1 schluessel_2 schluessel_3 usw
    MsgBox(0, "Beispiel " & $i & "  Geheimer Schluessel:", $schluessel) ;schlüssel anzeigen
    $test = _XOR_Encrypt_Decrypt($data, $schluessel) ;verschlüsseln
    MsgBox(0, "Verschlüsselt", $test) ;
    $test = _XOR_Encrypt_Decrypt($test, $schluessel) ;entschlüsseln
    MsgBox(0, "Entschlüsselt", $test)
Next

;wenn man nun z.B bei vielen kleinen Texten, z.B. Chats, verschlüsseln möchte, dann
;erstellt man sich einen großen Zufallsschlüssel und übermittelt in den ersten 6 oder 8 Bytes
;die Startposition innerhalb des Schlüssels

;wer meint, XOR wäre einfach zu knacken, der darf mir das beweisen^^ und entschlüsselt das
;folgende Zitat von Goethe....oder wars Schiller.....oder Smudo.....hmmmmmm
;
;0x0A0F36219034DCBDC90EAFA43DFE2937E6D91136A8B211CD9850785B634D5C5AB347C4534D947D9A378160ADF64DDB8F415C33BE8587C529A8



Func _XOR_Encrypt_Decrypt($data, $schluessel) ;simpel verschlüsseln und entschlüsseln per XOR
    If IsString($data) And IsString($schluessel) Then  ;binär, hex, oktal, alles steht offen^^
        $s = 0 ;position im schlüssel
        $xor = ""
        For $i = 1 To StringLen($data) ;jedes byte in data wird ver- oder entschlüsselt...
            $s += 1  ;...mit einem byte aus dem schluessel
            If $s > StringLen($schluessel) Then $s = 1 ;wenn der schlüssel kleiner ist als die daten, wieder von vorne anfangen
            $xor &= Chr(BitXOR(Asc(StringMid($data, $i, 1)), Asc(StringMid($schluessel, $s, 1)))) ; jedes byte in data mit einem Schlüsselbyte XORen
        Next
    EndIf
    Return $xor  ;Verschlüsselung oder Entschlüsselung zurückgeben
EndFunc   ;==>_XOR_Encrypt_Decrypt

wenn es hilft:

die Abfolgen, Bedingungen und sonstiges bei der Anmeldung eines User-Accounts erfolgen alle über die gina.dll oder einen Ersatz/vorgeschobenen Aufruf.

Einfach mal nach gina.dll googeln. Da sollten Möglichkeiten dabei sein.

Die Antwort der Gina (oder eines derivats) müssen aber "gehooked" werden.

Da werden sich die Geister dann scheiden, ob das noch legitim ist (ungeachtet dessen, was der Thread-Ersteller damit erreichen will)

oder schon in den Bereich der Manipulation fällt.

naja, das war bisher auch nicht die Anforderung

Die Datenbank kannst du sicher mit DB-eigenen Mitteld "dumpen". Das sollte auch im laufenden Betrieb gehen, da diese ja "nur" gelesen wird.
Beispiel-Ansätze:

nbackup: https://www.firebirdsql.org/file/documenta…nbackup-backups

gbak: https://firebirdsql.org/file/documenta…ebird-gbak.html

Robocopy /MON läuft als Loop-Schleife in der Konsole.

Wenn User weg, dann auch Konsole weg.

Wenn du den /MON nutzen willst, dann als Aufgabe mit User "System" und ohne Useranmeldung.

_RestartExplorer()

Func _RestartExplorer()
    While ProcessExists("explorer.exe")
        ProcessClose("explorer.exe")
    Wend
    Run(@WindowsDir & "\explorer.exe")
EndFunc   ;==>_RestartExplorer

Das sollte es erledigen

Anfrage wurde bedient.

sollte sich keiner melden versuche ich mich gern an der Aufgabe. klingt nicht sonderlich schwer.
Außer das Programm dass ausgelesen werden soll wurde in .Net geschrieben.

Dass kann autoit nach meinem Erkenntnisstand nicht. (zumindest ich kann es nicht)

einfach eine PN an mich

ich bin kein Profi im einbinden externer Tools, aber vielleicht hilft dir das weiter:

Downloading and Installing WebP  |  Google Developers

developers.google.com

vielleicht auch das hier:

The WebM Project | VPx and WebM Tools

es ist eine Frage von Respekt wenn man eine Frage stellt und diese als Thread abgelehnt wird.

Da gibt es nichts zu diskutieren.

Bots die Sicherheitskonzepte unterwandern sind nunmal nicht erwünscht und werden auch nicht unterstützt.

Egal ob deine Geschichte stimmt (was man von hier ja nicht prüfen kann) oder nicht. Und wir haben schon sooooo viele Geschichten gelesen.

PS: Wenn deine IT-Abteilung kein Problem mit der Automatisierung hat, warum stellen die dir dann nicht eine Übergangslösung zur Verfügung?

vielleicht liegt der Fehler ja im Script.

Um das auszuschließen kann ich dir meine GUI anbieten.
Die arbeitet auch mit der Funktion.

ich denke der Paramterer in Zeile 19 ist falsch. Da muss deine 1und1 email Adresse rein zur Authentifizierung am Server

und mit $ssl in Zeile 24 würde ich "spielen" (0/1)