Imports System

Imports System.Runtime.InteropServices

​

Class ApiExample

    <DllImport("advapi32", EntryPoint:="SystemFunction040")>

    Shared Function RtlEncryptMemory(Memory As IntPtr, MemoryLength As Integer, OptionFlags As Integer) As Integer

    End Function

    Const RTL_ENCRYPT_MEMORY_SIZE As Integer = 8

    Public Shared Sub Main(args As String())

        Dim pLong As IntPtr = Marshal.AllocHGlobal(8)

        ' pLong 의 주소값에 0x12345678ABCD 값을 쓴다.

        Marshal.WriteInt64(pLong, &H1234567890ABCDEF)

        ' 주소에 저장된 값을 읽어오고 표시한다.

        Console.WriteLine("SystemFunction040(RtlEncryptMemory) 메서드 호출 전")

        Console.WriteLine("\tpLong: 0x{0:X16}", Marshal.ReadInt64(pLong))

        ' 이제 값을 암호화한다.

        RtlEncryptMemory(pLong, 8, 0)

        ' 암호화한 후에 값을 읽어오고 표시한다.

        Console.WriteLine("SystemFunction040(RtlEncryptMemory) 메서드 호출 후")

        Console.WriteLine("\tpLong: 0x{0:X16}", Marshal.ReadInt64(pLong))

        ' 사용이 끝난 포인터를 메모리에서 해제한다.

        Marshal.FreeHGlobal(pLong)

        Console.ReadKey(True)

    End Sub

End Class