Wenn es dich stört dann mußt du leider in anderen Foren solche Sache posten.
Erst lesen, dann posten...
Es ging hier garnicht um mich, oder mein Posting - sondern um die Tatsache, dass einige "illegale" Dinge geduldet/gefördert werden - und bei anderen Dingen, schon der Name eines Tools gelöscht wird.
Thread bitte closen!
DANKE
Die Frage ist was SOLLTE/MUSS und nach welchen Regeln?
Da jeder nach eigenem Ermessen handelt hat sich die Frage auch erübrigt.
Ist ähnlich wie die Auslegung mit dem Bots - für die eine Sache ist es genehm, für die andere "verboten".
Was dem einen billig ist ...
Danke!
Probleme gibt es nicht...
Alle Menschen sind gleich - einige sind gleicher.
Noch einmal es ging um einen Namen von einem Tool - mehr nicht -
Unsere Rechtsprechung zu diesem Thema ist mehr als "lückenhaft" sonst hätten sich einige Leute nicht selber anzeigen müssen.
Je mehr ich hier schreibe, desto mehr mache ich mich hier zu Buhmann. Obwohl ich eigentlich nur eine Antwort wollte. Das bringt niemandem etwas.
gibt auch PCMCIA Karten mit 2 Schnittstellen:
Silicom Dual 10/100 Ethernet PCMCIA Adapter PC Card 201
ab 7€ bei Ebay...
ich weiß nicht ob du verstehst WORUM es mir geht...
welcher § im BGB verbietet mir den Namen TRILLIAN hier zu posten
ICQ verbietet solche Programme genau wie AutoIT das reverse Dekodieren
Trotzdem werden einige Programme hier angepriesen und andere schon beim Namen gelöscht. Und wir reden hier NICHT vom Anbieten dieser Programme oder gar den Links:
aus dem Impressum:
Haftungsausschluss:
Trotz sorgfältiger Kontrolle, können wir weder für den Inhalt der Beiträge der einzelnen User, noch für die hier veröffentlichten Links und deren Inhalt eine Form der Haftung übernehmen. Auch für den inhalt der verlinkten Seiten ist außschließlich deren Betreiber verantwortlich. Wir können keinen Einfluss auf die Gestaltung und deren Inhalt nehmen.
Wir unterrichten unsere Moderatoren regelmäßig über aktuelle Urteile, zum Forenrecht und diese versuchen, jede Form von unerlaubten Äusserungen zu unterbinden. Das dies nicht immer und zu jeder Zeit sicher gesellt werden kann, ist dabei klar.
Sollten Sie sich durch hier veröffentlichte Beiträge angegriffen oder ihre Rechte verletzt sehen, so bitten wir sie, mit dem Administratorenteam Kontakt über oben angegebene eMail Adresse, oder telefonisch, aufzunehmen.
Wir werden dann SOFORT die entsprechenden Beiträge entfernen und den Benutzer auf sein Fehlverhalten hinweisen.
ich moderiere selber Foren - und kann an meiner Frage keine "Frechheit" feststellen, eher deine Beschuldigungen mir gegenüber mich mit Themen nicht beschäftigt zu haben - also immer schön persönlich werden und beleidigen *thump up*
*edit*
Genau das ist der Senf, den ich NICHT haben wollte, nach einer Antwort vom Admin - kann das Thema auch gerne closed werden, bevor hier noch Wäsche gewaschen wird.
DANKE
Ging wohl um ein Tool um .EXE in .AU3 zu wandeln. Aber darum geht es mir jetzt eigentlich nicht, sondern eher wer definiert, was legal ist und was nicht...
Und diese "Tools" hat wohl "jeder" der Mods/Admins auf der Platte...
Hier werden Scripte angeboten um Videos zu rippen, Dinge auszulesen und verändern - alles kein leichtes Thema, das ist mir schon klar.
Hallo zusammen,
ich will nicht lange um den Brei reden.
Aber wenn hier schon Zensur betrieben wird, möchte ich gerne ein Statement von den "Administratoren" dazu hören.
Den "üblichen Senf" können wir hier gerne weglassen.
Seit wann wird denn hier ZENSUR betrieben 
?
Wenn ich jetzt Trillian schreibe, wird es auch gelöscht?
Verschlüsseln:
#include <Array.au3>
$Alphabet = stringsplit("ABCDEFGHIJKLMNOPQRSTUVWXYZ","")
_ArrayDelete($Alphabet, 0)
Global $VigCypher[26][26]
For $i = 0 to 25
Global $icopy = $i
VigFill($i)
Next
Func VigFill($offset)
Dim $res[26]
For $a = 0 to 25
$VigCypher[$icopy][$a] = $Alphabet[Mod($a+$offset,26)]
Next
EndFunc
$KeyWord = StringUpper(InputBox("keyword","keyword please"))
$File = FileOpenDialog("select file to encrypt...","C;\","txt (*.txt)")
$Text = FileRead($file)
MsgBox(0,"text",$Text)
$Text = StringRegExpReplace(StringUpper(StringStripCR($Text)),"[^:ABCDEFGHIJKLMNOPQRSTUVWXYZ:]","")
$a = 1
MsgBox(0,"text",$Text)
$EncryptText=""
While $a<StringLen($Text)
For $i = 1 to StringLen($KeyWord)
$KeyPlace = _ArraySearch($Alphabet,StringMid($KeyWord,$i,1))
$TextPlace = _ArraySearch($Alphabet,StringMid($Text,$a,1))
$EncryptText = $EncryptText&$VigCypher[$Keyplace][$TextPlace]
$a+=1
Next
WEnd
MsgBox(0,"",$EncryptText)
ClipPut($EncryptText)
MsgBox(0,"","Encrypted Text added to clipboard")
Entschlüsseln:
#include <Array.au3>
$Alphabet = stringsplit("ABCDEFGHIJKLMNOPQRSTUVWXYZ","")
_ArrayDelete($Alphabet, 0)
Global $VigCypher[26][26]
For $i = 0 to 25
Global $icopy = $i
VigFill($i)
Next
Func VigFill($offset)
Dim $res[26]
For $a = 0 to 25
$VigCypher[$icopy][$a] = $Alphabet[Mod(26+$a-$offset,26)]
Next
EndFunc
$KeyWord = StringUpper(InputBox("keyword","keyword please"))
$File = FileOpenDialog("select file to decrypt...","C;\","txt (*.txt)")
$Text = FileRead($file)
MsgBox(0,"text",$Text)
$Text = StringRegExpReplace(StringUpper(StringStripCR($Text)),"[^:ABCDEFGHIJKLMNOPQRSTUVWXYZ:]","")
$a = 1
MsgBox(0,"text",$Text)
$DecryptText=""
While $a<StringLen($Text)
For $i = 1 to StringLen($KeyWord)
$KeyPlace = _ArraySearch($Alphabet,StringMid($KeyWord,$i,1))
$TextPlace = _ArraySearch($Alphabet,StringMid($Text,$a,1))
$DecryptText = $DecryptText&$VigCypher[$Keyplace][$TextPlace]
$a+=1
Next
WEnd
MsgBox(0,"",$DecryptText)
ClipPut($DecryptText)
MsgBox(0,"","Decrypted Text added to clipboard")
Knacken via Brute Force
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
$timer = TimerInit()
$Alphabet = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZ", "")
_ArrayDelete($Alphabet, 0)
Global $Text
Global $possib
Global $name
$name = 0
$possib = 0
$Possibles = FileOpenDialog("select file to save possibles to...", "C:\", "txt (*.txt)")
$File = FileOpenDialog("select file to decrypt...", "C;\", "txt (*.txt)")
$Text = FileRead($File)
$Text = StringRegExpReplace(StringUpper(StringStripCR($Text)), "[^:ABCDEFGHIJKLMNOPQRSTUVWXYZ:]", "")
Global $VigCypher[26][26]
For $i = 0 To 25
Global $icopy = $i
VigFill($i)
Next
$look4word = True
$word = InputBox("Word to look for?", "If there is a specific word you know is in the text, please give it.")
If @error = 1 Then
$look4word = False
EndIf
$maxkey = InputBox("Maximum Key length?", "Please specify, what you think is the maximum length of the key." & @CRLF & "Warning, for every single length added it takes almost 30 times as long!")
EasyWay($maxkey)
Func EasyWay($easyw)
For $easy = 1 To $easyw
$allComb = StringSplit(_AllCOmbinations($easy), @CRLF, 1)
For $c = 26 ^ ($easy - 1) To $allComb[0]
$time = Round(TimerDiff($timer) / 60000, 2)
ToolTip("Keyword: " & $allComb[$c] & @CRLF & "Possibles found: " & $possib & @CRLF & "Names found: " & $name & @CRLF & "Minutes ran: " & $time & @CRLF & "Tries: " & $c, 0, 0)
DecryptCheck($allComb[$c])
Next
Next
EndFunc ;==>EasyWay
Func DecryptCheck($KeyWord)
$a = 1
$EncryptText = ""
While $a < StringLen($Text)
For $i = 1 To StringLen($KeyWord)
$KeyPlace = _ArraySearch($Alphabet, StringMid($KeyWord, $i, 1))
$TextPlace = _ArraySearch($Alphabet, StringMid($Text, $a, 1))
$EncryptText = $EncryptText & $VigCypher[$KeyPlace][$TextPlace]
$a += 1
If $a = StringLen($Text) Then
ExitLoop
EndIf
Next
WEnd
$length = StringLen($EncryptText)
Dim $freq[26]
For $i = 1 To 26
$TestText = $EncryptText
StringRegExpReplace($TestText, $Alphabet[$i - 1], "@")
$freq[$i - 1] = Round(@extended / $length * 100, 3)
Next
If StringInStr($EncryptText, $word) Then
FileWriteLine($Possibles, "----------------------WORD FOUND!!!!-------------" & @CRLF & "Keyword: " & $KeyWord & @CRLF & $EncryptText)
$name += 1
Else
$Pos = 0
Select
Case $freq[-1 + 5] > 5;c
$Pos += 1
Case $freq[-1 + 5] > 5;z
$Pos += 1
Case $freq[-1 + 6] > 5;b
$Pos += 1
Case $freq[-1 + 10] > 5;j
$Pos += 1
Case $freq[-1 + 14] > 5;n
$Pos += 1
Case $freq[-1 + 17] > 5;q
$Pos += 1
Case $freq[-1 + 24] > 5;x
$Pos += 1
Case $freq[-1 + 25] > 5;y
$Pos += 1
Case $freq[-1 + 24] > 5;p
$Pos += 1
Case $freq[-1 + 25] > 5;w
$Pos += 1
EndSelect
If $look4word = True And $Pos < 3 And $freq[-1 + 5] > 10 And $freq[-1 + 14] > 5 And StringInStr($EncryptText, "EN") Then
FileWriteLine($Possibles, "Keyword: " & $KeyWord & @CRLF & "---" & @CRLF & $EncryptText & @CRLF & "---" & @CRLF)
$possib += 1
EndIf
EndIf
EndFunc ;==>DecryptCheck
Func VigFill($offset)
Dim $res[26]
For $a = 0 To 25
$VigCypher[$icopy][$a] = $Alphabet[Mod(26 + $a - $offset, 26)]
Next
EndFunc ;==>VigFill
Func _AllCOmbinations($MaxLen = 
Global $RetString
For $i = Asc("A") To Asc("Z")
$Char = Chr($i)
$RetString &= $Char & @CRLF
$RetString &= _AllCOmbinationsRec($Char, $MaxLen - 1)
Next
Return StringTrimRight($RetString, 2)
EndFunc ;==>_AllCOmbinations
Func _AllCOmbinationsRec($string, $MaxLen)
If $MaxLen = 0 Then Return ""
Local $RetString, $chars
For $i = Asc("A") To Asc("Z")
$chars = $string & Chr($i)
$RetString &= $chars & @CRLF
$RetString &= _AllCOmbinationsRec($chars, $MaxLen - 1)
Next
Return $RetString
EndFunc ;==>_AllCOmbinationsRec
MsgBox(0, "FINISHED!", "Finished!")
[/autoit]Credits:
das ist bei Videos, die du dir schon angeguckt hast
die werden dann aus dem Cache in das Zielverzeichnis kopiert
cheers
Respekt und Hut ab ...
ich bin zwar erst einige Monate dabei, aber ich denke ca 50% der Postings (aus dem Fenster lehn) sind "überflüssig" bzw hätten sich mit der richtigen Nutzung der SuFu "vermeiden" lassen.
An dieser Stelle ein großes Lob an alle, die hier immer schnell und qualitativ gut antworten (auch wenn die Frage das x-mal gestellt wurde)
Super Community hier!
Da sich das "mal wieder" nach einem Bot anhört ...
Wird dir hier niemand Hilfe zu dem Thema geben.
Ein Blick in die Hilfe - oder gar ins alte Bot Forum gibt dir die Antwort relativ schnell. Einfach mal die SuFu nutzen!
wozu gibt es Messenger?
wozu soll es Piepen? dann kanns auch Tuten - lass einmal auf seinem Handy / Telefon klingeln / SMS whatever
und wenn er schon ICQ nicht startet, warum soll er deinen Peeper starten?
ich denke mal Lösungen gibt es viele, wie schon geschrieben - egal ob über FTP, TCP Chat etc - ich denke mal, dass nichts davon praktikabel nutzbar ist
das Rad nicht neu erfinden, darum geht's - und fertige Lösungen gibt es wie Sand am Meer
Die TCP-Beispiele der Hilfe sind absolut ausreichend und die dynamischen IP-Adresse kann man mit DYNdns etc lösen - falls es denn unbedingt was Eigenes sein soll
Zeit zum Chatten habt Ihr alle 
Gratz
Ich freu mich auf Windows 7!
Neue Fehler - Neue Crash-Spiele xD
läuft bei mir, bis auf auf den WoW-updater 1a
und das mit "alter Hardware" 
Nein ist es nicht!
Mit TCPRecv ($socket, 2048) könntest Du z.B. gucken was gesendet wird. Kannst ja mal versuchen dich z.B. über Port 21 an einem FTP Server anzumelden. Bzw. gucken was der Server die so zur Begrüßung sendet.
---
Nur da du keine Ahnung hast, WAS die Box von dir hören will ...
Nutze also das Webinterface
Ohne die Box wohl kaum - und ich denke nach wie vor nicht, dass dir die Box ohne Authentifizierung irgendetwas sagen wird.
Es sei denn sie hat einen speziellen Management Port (Serieller Anschluss / Com Port ...)
Und in deinem Beispiel wird nichts gesendet oder empfangen.
ein Blick in die Hilfe offenbart folgendes:
TCPStartup
TCPConnect
TCPSend / TCPRecv
TCPShutdown
schau dir am Besten das Client/Server Beispiel an, damit hast du eigentlich alles was du brauchst
Die Frage ist WIE und WAS willst du da abhören?
Ich denke, dass es da bestimmt eine Statusseite in Form einer Webseite gibt. Die Box wird wohl kaum per Broadcast ihre Anruferdaten ins Netzwerk posaunen 
Also Webinterface nutzen, Einloggen - Daten abfragen, du kansnt ja AutoIt dann benutzen, um dir die Daten aus der Website zu ziehen. Das wäre wohl das Einfachste denke ich
