Ne sie ändert sich 
Beiträge von Freaky
-
-
Das wird nicht gehen
Der Link sieht so aus:Code<a href="javascript:;" id="A0tLRr53mjPDlzELyi6Px44hO0HI1HYe9BG8HwhniXw"> -
Hallo,
ich möchte mit den IE Befehlen auf einen Link klicken der keine Forum und keinen Namen hat.
Ich kann auch nicht den Link eingeben weil der Link ein Javascript Fenster öffnet.
Wie kann ich jetzt draufklicken ? -
Ok, schade
-
Hallo,
ich möchte einen Chat vom Spiel überwachen bzw. mitlesen auch wenn es Minimiert ist.
Das abfangen der Packete mit der WinPcap UDF klapt ja.
Jetzt habe ich versucht was zurück zu senden also zu Antworten, aber das läst mein mein PC abstürtzen (blue Screen xD)Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Winpcap.au3>
$filter = "tcp port 4002"$winpcap = _PcapSetup() ; initialize winpcap
[/autoit] [autoit][/autoit] [autoit]
If ($winpcap = -1) Then
MsgBox(16, "Pcap error !", "WinPcap not found !")
Exit
EndIf$pcap_devices = _PcapGetDeviceList() ; get devices list
[/autoit] [autoit][/autoit] [autoit]
If ($pcap_devices = -1) Then
MsgBox(16, "Pcap error !", _PcapGetLastError())
Exit
EndIf$int = $pcap_devices[5][0]
[/autoit] [autoit][/autoit] [autoit]$pcap = _PcapStartCapture($int, $filter, 0);start capture
[/autoit] [autoit][/autoit] [autoit]
If ($pcap = -1) Then
MsgBox(16, "Pcap error !", _PcapGetLastError())
EndIf
Local $counterabc = 1
While 1
If IsPtr($pcap) Then
$time0 = TimerInit()
While (TimerDiff($time0) < 500) ; Retrieve packets from queue for maximum 500ms before returning to main loop, not to "hang" the window for user
$packet = _PcapGetPacket($pcap)
If IsInt($packet) Then ExitLoop
$sniff = sniff($packet[3])
If $counterabc <> 5 Then
If $sniff <> False Then
ConsoleWrite($sniff & @CRLF)
$counterabc += 1
ToolTip ($counterabc,0,0)
EndIf
Else
$in = InputBox("", "")
_PcapSendPacket($pcap, $in)
EndIf
WEnd
EndIf
WEnd_PcapFree() ; close winpcap
[/autoit] [autoit][/autoit] [autoit]Func sniff($data)
[/autoit] [autoit][/autoit] [autoit]
Local $ipheaderlen = BitAND(_PcapBinaryGetVal($data, 15, 1), 0xF) * 4
Local $tcpoffset = $ipheaderlen + 14
Local $tcplen = _PcapBinaryGetVal($data, 17, 2) - $ipheaderlen ; ip total len - ip header len
Local $tcpheaderlen = BitShift(_PcapBinaryGetVal($data, $tcpoffset + 13, 1), 4) * 4
Local $tcpsrcport = _PcapBinaryGetVal($data, $tcpoffset + 1, 2)
Local $tcpdstport = _PcapBinaryGetVal($data, $tcpoffset + 3, 2)
Local $tcpsequence = _PcapBinaryGetVal($data, $tcpoffset + 5, 4)
Local $tcpflags = _PcapBinaryGetVal($data, $tcpoffset + 14, 1)
Local $httpoffset = $tcpoffset + $tcpheaderlen + 1
Local $httplen = $tcplen - $tcpheaderlen
$sniff_packet = BinaryMid($data, $httpoffset)If $httplen = 0 Then Return False ; empty tcp packet
[/autoit] [autoit][/autoit] [autoit]If $tcpsrcport = 4002 Then
[/autoit] [autoit][/autoit] [autoit]
;Return ">IN:" & $sniff_packet ; server ==> client
EndIfIf $tcpdstport = 4002 Then
[/autoit]
Return "-OUT:" & $sniff_packet ; client ==> server
EndIf
EndFunc ;==>sniffWas mache ich falsch ?
-
Danke, nein Captcha will ich nicht knacken
Edit:
Ich habe jetzt das Beispiel mal gestartet, aber die MSG zeigt halt das ICO an aber nicht den Text -
Hallo,
ich möchte ein Text aus einem Bild filtern, aber ich weiß nicht wie.
Ich würde das gerne in AutoIt machen weil, ich viele Tools ausprobiert habe und die sind einfach nur Mist.
Wie kann ich das den nun machen ? -
Ja schon aber das ist immer noch nicht mein ganzes script
-
Es soll ein Text verschlüsseln, danach entschlüsseln und ausführen.
Und wieso ich das speichern lasse und wieder lösche ?
Ganz klar, es soll ja gestartet werden und danach sofort gelöscht. -
habe ich schon
Mein Script funktioniert super. Aber wenn ich das damit mache geht es nicht.
[autoit]$r = Random(100000, 9999999999, 1)
[/autoit]
FileDelete(@TempDir & "\" & $r & ".ini")
MsgBox(0, "", $text2)
FileWrite(@TempDir & "\" & $r & ".ini", $text2)
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & "\" & $r & '.ini"')
FileDelete(@TempDir & "\" & $r & ".ini") -
Spoiler anzeigen
habe da jetzt so ein problem.
[autoit]
das macht nicht das was es soll
$file = Binary ("a")
[/autoit] [autoit][/autoit] [autoit]#Region verschlüsseln
[/autoit] [autoit][/autoit] [autoit]
$string = StringSplit ($file,"")
Local $text
For $a = 1 To $string[0]
$text &= Asc ($string[$a])
Next
MsgBox (0,"",$text)
#EndRegion#Region entschlüsseln
[/autoit]
$string = StringSplit ($text," ")
Local $text
For $a = 1 To $string[0]
$text &= Chr ($string[$a])
Next
MsgBox (0,"",BinaryToString ($text))
#EndRegiones kommt bei beiden msg der gleiche text raus
ok das geht doch
Edit
[autoit]
Ich habe jetzt was gemacht. Nur das entschlüsseln klapt nicht richtig#include <string.au3>
[/autoit] [autoit][/autoit] [autoit]$file = FileOpenDialog("Obfuscator", @ScriptDir & "", "Script (*.au3)", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$string = StringSplit(Binary($file), "")
Local $text
$r = Random(2, 8, 1)
For $a = 1 To $string[0]
$text &= _StringEncrypt(1, Binary(Hex(Asc($string[$a]), $r)), "test") & " "
Next
FileWrite(@ScriptDir & "\test.dll", $text)
MsgBox(0, "", "fertig")$text = FileRead(@ScriptDir & "\test.dll")
[/autoit]
$string = StringSplit($text, " ")
Local $text2
For $a = 1 To $string[0]
$text2 &= Chr(Dec(BinaryToString(_StringEncrypt(0, ($string[$a]), "test"))))
Next
$r = Random(100000, 9999999999, 1)
FileDelete(@TempDir & "\" & $r & ".ini")
MsgBox(0, "", $text2)
FileWrite(@TempDir & "\" & $r & ".ini", $text2)
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & "\" & $r & '.ini"')
FileDelete(@TempDir & "\" & $r & ".ini") -
würde aber gerne eine eigene verschlüsselung schreiben
-
Hallo,
ich will mein Script verschlüsseln und wieder entschlüsseln.
Aber bei entschlüsseln komt was vollkommen falsches raus.Spoiler anzeigen
[autoit]$open = FileOpen ("test.au3",16)
[/autoit]
$file = FileRead ($open)
$file = StringReplace ($file,"0x","")
$string = StringSplit ($file,"")
Local $test
For $a = 1 To $string[0]
$test &= Hex ($string[$a],2) & " "
Next
MsgBox (0,"",$test)
$string = StringSplit ($test," ")
Local $test2
For $a = 1 To $string[0]
$test2 &= Dec($string[$a])
Next
MsgBox (0,"",BinaryToString ($test2) & @CRLF & $file)test.au3
[autoit]MsgBox (0,"","test")
[/autoit]Was mache ich falsch ?
-
Hallo,
ich will mir etwas arbeit erleichtern nur copy & past funktioniert da nicht
Deswegen wollte ich es mit AutoIt machen. Also in Binary lesen umwandeln, verarbeiten, zurückwandeln und wieder abspeichern.
Nur das Problem ist, das AutoIt genau das gleiche abspeichert was ich auch kopieren kann.
Das wichtigste ist nicht dabeiScreen (kanns ja nicht kopieren ^^)
[Blockierte Grafik: http://s2.imgimg.de/uploads/autoitscreen858b66d9PNG.png]
-
Ist mir bewusst
Aber sagen wir mal ich weiß nicht welches Tool meine kleine Schwester benutzt. Ich will nicht das sie sich noch ein 24 Jährigen vor die Haustür holt -
Danke,
aber ich meinte z.b. Queltext der offenen Seite vom FF oder IE. -
Hallo,
ist es möglich mit AutoIt den Inhalt z.b. aus einem Offenen IE, FF, Editor oder sonstwas auszulesen ?
Wenn ja wie ? -
Es geht aber trotzdem
pls close
-
wie den FileRead bei Internetseiten ?
Egal mit _inetgetsource geht das auch -
ne ich benutze _inetgetsource