[PAYING] VB.NET Function to AutoIt

[ucwpotkan]

Hello i need VB.NET code converted into AutoIt code. Im paying 5$ for this easy work. PM me if you can do this.

Public Shared Function Protect(ByVal hProcess As IntPtr)
        Dim dacl = GetProcessSecurityDescriptor(hProcess)
        dacl.DiscretionaryAcl.InsertAce(0, New CommonAce(AceFlags.None, AceQualifier.AccessDenied, CInt(ProcessAccessRights.PROCESS_ALL_ACCESS), New SecurityIdentifier(WellKnownSidType.WorldSid, Nothing), False, Nothing))
        SetProcessSecurityDescriptor(hProcess, dacl)
    End Function

    <DllImport("advapi32.dll", SetLastError:=True)> _
    Private Shared Function GetKernelObjectSecurity(ByVal Handle As IntPtr, ByVal securityInformation As Integer, <Out()> ByVal pSecurityDescriptor As Byte(), ByVal nLength As UInteger, ByRef lpnLengthNeeded As UInteger) As Boolean
    End Function

    <DllImport("advapi32.dll", SetLastError:=True)> _
    Private Shared Function SetKernelObjectSecurity(ByVal Handle As IntPtr, ByVal securityInformation As Integer, <[In]()> ByVal pSecurityDescriptor As Byte()) As Boolean
    End Function

    Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function

    Public Shared Sub SetProcessSecurityDescriptor(ByVal processHandle As IntPtr, ByVal dacl As RawSecurityDescriptor)
        Const DACL_SECURITY_INFORMATION As Integer = &H4
        Dim rawsd As Byte() = New Byte(dacl.BinaryLength - 1) {}
        dacl.GetBinaryForm(rawsd, 0)
        If Not SetKernelObjectSecurity(processHandle, DACL_SECURITY_INFORMATION, rawsd) Then
            Throw New Win32Exception()
        End If
    End Sub

    Public Shared Function GetProcessSecurityDescriptor(ByVal processHandle As IntPtr) As RawSecurityDescriptor
        Const DACL_SECURITY_INFORMATION As Integer = &H4
        Dim psd As Byte() = New Byte(-1) {}
        Dim bufSizeNeeded As UInteger
        GetKernelObjectSecurity(processHandle, DACL_SECURITY_INFORMATION, psd, 0, bufSizeNeeded)
        If bufSizeNeeded < 0 OrElse bufSizeNeeded > Short.MaxValue Then
            Throw New Win32Exception()
        End If
        If Not GetKernelObjectSecurity(processHandle, DACL_SECURITY_INFORMATION, InlineAssignHelper(psd, New Byte(bufSizeNeeded - 1) {}), bufSizeNeeded, bufSizeNeeded) Then
            Throw New Win32Exception()
        End If
        Return New RawSecurityDescriptor(psd, 0)
    End Function
    
    
    <Flags()> _
    Public Enum ProcessAccessRights
        SYNCHRONIZE = &H100000
        STANDARD_RIGHTS_REQUIRED = &HF0000
        PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
    End Enum

 

[Melba23]

ucwpotkan,

If you cannot be bothered to make even a token effort to learn AutoIt for yourself then go and find a "for hire" programming site. I do not want to see a third "[PAYING]" thread from you or it will be your last.

M23

[ucwpotkan]

Sorry, but i suck at converting codes from diferrent languages. Im still learning AutoIt.

[Jos]

Well... it is your 3rd thread you created where you prepared to pay this $5 amount.
Not sure what kind of hourly rate you are thinking of but it is somewhat of a joke in case you are looking for serious people.
Anyways: this site is not looking for payed coding work so you need to take that somewhere else.

Since you already stated it is "easy work" i would indeed suggest you give it a go.

Jos

Edited May 15, 2017 by Jos

[JLogan3o13]

Agreed, this amazing display of laziness is getting annoying. Thread locked, if anyone wants to contact you to accept your offer they can PM you.