Java Problem: URLConnection

Dirk

Ich versuche gerade nen sinnloses kleines programm zu schreiben, das sich auf meinen router einloggt, reconnected und wieder ausloggt, hab dafür auch nen vbs script gefunden, das funktioniert:

Code

On Error Resume Next 
ip = "192.168.2.1" 
pwd = "xxx" 
Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
Call objHTTP.Open("POST", "http://" & ip & "/start.login", False) 
objHTTP.Send("P1=" & pwd) 
Call objHTTP.Open("GET", "http://" & ip & "/pppctl.cmd?action=0", False) 
objHTTP.Send 
WScript.Pause 5
Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
Call objHTTP.Open("POST", "http://" & ip & "/start.login", False) 
objHTTP.Send("P1=" & pwd) 
Call objHTTP.Open("GET", "http://" & ip & "/pppctl.cmd?action=1", False) 
objHTTP.Send
Call objHTTP.Open("GET", "http://" & ip & "/logout.cmd", False) 
objHTTP.Send

Alles anzeigen

aber in java kackt das irgendwie nur ab. scheint auch keine so schön einfache befehle zu geben.

Code

[size=12]
[align=left]URL url = [/size][b][size=12][color=#7f0055][size=12][color=#7f0055]new[/b][/color][/size][/color][/size][size=12] URL([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"http://"[/color][/size][/color][/size][size=12] + ip+ [/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"/start.login"[/color][/size][/color][/size][size=12]);
URLConnection conn = url.openConnection();
conn.setDoOutput([/size][b][size=12][color=#7f0055][size=12][color=#7f0055]true[/b][/color][/size][/color][/size][size=12]);
conn.setRequestProperty([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"connection"[/color][/size][/color][/size][size=12],[/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"Keep-Alive"[/color][/size][/color][/size][size=12]);
OutputStreamWriter wr = [/size][b][size=12][color=#7f0055][size=12][color=#7f0055]new[/b][/color][/size][/color][/size][size=12] OutputStreamWriter(conn.getOutputStream());[/align]
wr.write([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"P1="[/color][/size][/color][/size][size=12]+passwort);
[size=12]wr.flush();
[/size][/size]

damit krieg ich schon mal nen POST zugriff auf den router, der loggt auch eine erfolgreiche anmeldung. aber wie gehts jetzt weiter??

Code

[size=12]
[align=left]url2 = [/size][b][size=12][color=#7f0055][size=12][color=#7f0055]new[/b][/color][/size][/color][/size][size=12] URL([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"http://"[/color][/size][/color][/size][size=12] + ip+ [/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"/pppctl.cmd?action=0"[/color][/size][/color][/size][size=12]);[/align]
conn2 = url2.openConnection();
[/size]

so soll angeblich nen GET befehl funktionieren, es passiert aber nichts. hab schon alles mögliche probiert, total nervig. gandro, weißt du rat?

niwax

Greift deine Variable auf Port 80 zu? Wenn ja liegt es wahrscheinlich an falschen Headern, die sagen, dass nur POST-Variablen übertragen wurden.

Dirk

das heißt? ich glaube ist port 80, kriege nämlich die seite zurück (vermutlich vom login)

niwax

Zitat von Dirk

das heißt?

In dem VB-Script wird ja eine XMLHTTP-Verbindugn benutzt. Das bedeutet, dass zwischen dem Programm und dem Socket der Verbindung noch ein HTTP-Protokoll liegt. In HTTP muss geregelt werden, ob Variablen per POST oder GET übergeben werden, da bei POST ein zusätzlicher Header mitgesendet werden muss. Es kann sein, dass Java beim URL-Objekt nur Post implementiert bzw. sich einstellen lässt, ob der zusätzliche POST-Header mitgesendet wird. Wenn der nicht gesendet wird wird die Abfrage als GET interpretiert.

Dirk

Ich krieg ne macke, ich habs jetzt wirklich mal basic probiert:

Code

[size=12]
[align=left]URL [u]url5[/u] = [/size][b][size=12][color=#7f0055][size=12][color=#7f0055]new[/b][/color][/size][/color][/size][size=12] URL([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"http://192.168.2.1/"[/color][/size][/color][/size][size=12]);
Socket socket = [/size][b][size=12][color=#7f0055][size=12][color=#7f0055]new[/b][/color][/size][/color][/size][size=12] Socket(ip,80);
PrintWriter output = [/size][b][size=12][color=#7f0055][size=12][color=#7f0055]new[/b][/color][/size][/color][/size][size=12] PrintWriter(socket.getOutputStream());
output.println([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"POST /start.login HTTP/1.1"[/color][/size][/color][/size][size=12] );
output.println([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"Host: "[/color][/size][/color][/size][size=12]+ip);
output.println([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"Content-Type: application/x-www-form-urlencoded"[/color][/size][/color][/size][size=12]);
output.println([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"Content-Length: 15"[/color][/size][/color][/size][size=12]);
output.println([/size][size=12][color=#2a00ff][size=12][color=#2a00ff]"P1=xxx"[/color][/size][/color][/size][size=12] );
output.flush();
InputStreamReader input = [/size][b][size=12][color=#7f0055][size=12][color=#7f0055]new[/b][/color][/size][/color][/size][size=12] InputStreamReader(socket.getInputStream());[/align]
System.[/size][i][size=12][color=#0000c0][size=12][color=#0000c0]out[/i][/color][/size][/color][/size][size=12].println(input.toString());[/size]
[size=12][size=12][align=left]socket.close();[/align]
[/size][/size]

Alles anzeigen

ergebnis: Der router reagiert garnicht mehr auf port 80, totale blokade...

niwax

Mögliche Lösungen:
1. Am Ende zwei Leerzeilen einfügen um zu signaliesieren, dass der Header fertig gesendet ist
2. Vor den Variablen (also P1=xxx) zwei Leerzeilen einfügen, um den Variablenblock zu trennen
3. Firewallausnahme hinzufügen

Was für ein Basic ist das? Sieht immernoch mehr nach Java aus.
Ich verbinde das immer so:

Spoiler anzeigen

Code

Imports System.Net
Imports System.Net.Sockets
Imports System.Console


Module Client
    Dim TCP As New TcpClient, N As NetworkStream


    Sub Main()
        Dim IP As String = ReadLine()
        Dim Port As String = ReadLine()
        TCP.Connect(New IPAddress({CByte(IP.Split(".")(0)), CByte(IP.Split(".")(1)), CByte(IP.Split(".")(2)), CByte(IP.Split(".")(3))}), Port)
        N = TCP.GetStream
        ' Das Zeug senden
    Write(WasAuchImmer)
        While TCP.Available = 0
        End While
        ' In S ist jetzt die Antwort vom Server
        Dim S As String = Read()
        TCP.Close()
    End Sub


    ' Daten Senden
    Sub Write(ByVal S As String)
        N.Write(SToB(S), 0, S.Length)
    End Sub


    ' Daten Empfangen
    Function Read() As String
        Dim B(TCP.Available - 1) As Byte
        N.Read(B, 0, C.Available)
        Return BToS(B)
    End Function


    ' Byte-To-String
    Function BToS(ByVal B() As Byte) As String
        Dim S As String = ""
        For Each C As Byte In B
            S &= Chr(C)
        Next
        Return S
    End Function


    ' String-To-Byte
    Function SToB(ByVal S As String) As Byte()
        Dim B(S.Length - 1) As Byte
        For I As Integer = 0 To S.Length - 1
            B(I) = Asc(S(I))
        Next
        Return B
    End Function
End Module

Alles anzeigen

Der Code ist btw ein Teil aus meinem Remotedesktop, der auf Port 739 läuft, aber für 80 sollte es auch gehen

**winfreak**

Zitat von niwax

[...]Was für ein Basic...?[...]

Dürfte sich um VB.NET handeln.

niwax

Zitat von winfreak

Dürfte sich um VB.NET handeln.

Ich rede von diesem Post: https://www.winhistory-forum.net/161847-post5.html
Das ist doch kein VB.Net. Das was ich gepostet hab ist VB.Net

Dirk

Das ist visual basic SCRIPT, kannte ich auch nicht, aber das zeug braucht man nur in ne textdatei fügen, endung vbs, und unter windows doppelklicken. fertig. der interpreter ist wohl mindestens seit 2000 datei, liegt im %windir%/system32/cscript.exe

**winfreak**

Zitat von Dirk

Das ist visual basic SCRIPT, kannte ich auch nicht, aber das zeug braucht man nur in ne textdatei fügen, endung vbs, und unter windows doppelklicken. fertig. der interpreter ist wohl mindestens seit 2000 datei, liegt im %windir%/system32/cscript.exe

Darauf baute doch ILoveYou auf?

niwax

VBScript war meine erste Progrogrammiersprache, deswegen nehm ich heut am liebsten noch VB.
Das war mal im IE die Scriptsprache als Konkurrenz zu JS, was ja von Netscape ist. MS hat bisheut noch nich JS akzeptiert, die nennen ihre Sprache immer noch JScript. Für Offline-Scripting oder Netzwerkadministration ist es aber immer noch gut, weil man quasi die gesamte VB-Classic-Sprache hat ohne dass man Compiler etc braucht.

Dirk

das kann gut sein. trotzdem scheint der immer noch standardmäßig aktiv zu sein. dafür wohl die virenscanner. ich glaube aber die vbs zeigt kein mailprogramm mehr an. da war ja damals iloveyou.txt.vbs

egal. ich hatte nochmal mit httpurlconnection experimentiert, wo ich auch die response codes vom server mir geben konnte. der post hatte stets 200, die gets immer -1, ergo total daneben gegangen, interessantes detail, hat man auf ne webseite geleitet gabs auch 200. konnte auch kein zugriffsproblem gewesen sein. ergo totaler murks, wer da wo streikt findet man nicht raus.

java braucht echt mehr pseudoklassen die basics auch mal als basics darstellen. ist ja schon nen geschenk das man nen string nicht als zeichenkette selber bauen muss.

niwax

nNet.exe (17,41 KB)
Ein kleines selbstgecodetes Tool, mit dem du "rohe" TCP/IP-Verbindungen zu nem Server aufbauen kannst.
1. mit "connect [ip] [port]" verbinden
2. send eintippen und dann den zu sendenen String
3. nochmal send, um den String zu schicken.
4. receive, um die Serverantwort anzuzeigen.

Könnte helfen einen Fehler in deinem Request zu finden.

**winfreak**

Hab mal nen Java-Dev gefragt, das ist sein Ergebnis:
C code - 104 lines - codepad

niwax

Ich würde mal sagen ohne den Logger passt das in eine Funktion.

Dirk

Zitat von winfreak

Hab mal nen Java-Dev gefragt, das ist sein Ergebnis:
C code - 104 lines - codepad

sieht schon mal imposant aus, aber habs nicht getestet, ziel war es wirklcih ne kleine funktion zu schreiben, wollte nicht irgendwelche großen jar imports mitschleppen. habs jetzt auch nicht testen können, weil ich scheinbar nicht die passenden imports gefunden hatte.

aber wie gesagt hab jetzt einfach um das vbs script rumgebaut.

**winfreak**

Zitat von Dirk

sieht schon mal imposant aus, aber habs nicht getestet, ziel war es wirklcih ne kleine funktion zu schreiben, wollte nicht irgendwelche großen jar imports mitschleppen. habs jetzt auch nicht testen können, weil ich scheinbar nicht die passenden imports gefunden hatte.

aber wie gesagt hab jetzt einfach um das vbs script rumgebaut.

Du brauchst die apache commons, aber egal...

Jetzt mitmachen!