Public Function RandomEx(ByVal Min As Long, ByVal Max As Long, Optional ByVal Count As ULong = 1) As Long()
 
        RandomEx = New Long() {}
 
        Dim Seed As Long = Date.Now.Ticks
 
        Do While RandomEx.Length <> Count
            Array.Resize(RandomEx, RandomEx.Length + 1)
            RandomEx.SetValue((Seed Mod (Max + 1)) + Min, RandomEx.Length - 1)
            Seed -= Math.Floor(Seed / (Count + 1))
        Loop
 
    End Function

(Seed Mod (Max + 1)) + Min

Seed -= Math.Floor(Seed / (Count + 1))

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Hola")
    End Sub

 
 
    Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MessageBox.Show("Hola")
    End Sub
 
        Dim MethodName As String = "Button1_Click"
        Dim HandlerType As Type = GetType(EventHandler)
        Dim MethodI As MethodInfo = Me.GetType.GetMethod(MethodName)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MethodName As String = "Button1_Click"
        Dim HandlerType As Type = GetType(EventHandler)
        Dim MethodI As MethodInfo = Me.GetType.GetMethod(MethodName)
        Dim DelegateEvent As [Delegate] = _
        [Delegate].CreateDelegate( _
        HandlerType, _
        MethodI, _
        True)
 
        AddHandler Button1.Click, DelegateEvent
 
End Sub

    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MethodName As String = "Button4_Click"
        Dim HandlerType As Type = GetType(EventHandler)
        Dim MethodI As MethodInfo = Me.GetType.GetMethod(MethodName)
        Dim DelegateEvent As [Delegate] = _
        [Delegate].CreateDelegate( _
        HandlerType, _
        Me, _
        MethodName)
 
        AddHandler Button4.Click, DelegateEvent
 
    End Sub

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Try
 
            Dim searcher As New ManagementObjectSearcher( _
                "root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
 
            For Each queryObj As ManagementObject In searcher.Get()
 
                Dim temp As Double = CDbl(queryObj("CurrentTemperature"))
 
                temp = (temp - 2732) / 10.0
 
                MessageBox.Show(temp.ToString)
 
            Next
 
        Catch err As ManagementException
 
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
 
        End Try
 
    End Sub
 
End Class

 
        Dim X As Double = Double.MaxValue
 
        Console.WriteLine(X)
        Console.ReadKey()
 
 

#include <windows.h>
#include <stdio.h>
 
DWORD HookFunction(LPCSTR lpModule, LPCSTR lpFuncName, LPVOID lpFunction, unsigned char *lpBackup);
BOOL UnHookFunction(LPCSTR lpModule, LPCSTR lpFuncName, unsigned char *lpBackup);
int Hooked_MessageBox(HWND hWnd, LPCSTR lpText, LPCSTR lpCaption, UINT uType);
 
BYTE BackUp[6];
 
LPCSTR Function = "MessageBoxExA";
 
void WinMainCRTStartup()
{
 
	MessageBoxA(0, "=( Sin Hook", "", MB_OK); // Mensaje
 
	HookFunction("user32.dll", Function, Hooked_MessageBox, BackUp); // Hookear Función
 
	MessageBoxA(0, "=( Sin Hook", "", MB_OK); // Mensaje
 
}
 
int Hooked_MessageBox(HWND hWnd, LPCSTR lpText, LPCSTR lpCaption, UINT uType) // Función a la que se desvia la función original
{
	UnHookFunction("user32.dll", Function, BackUp); // Se llama a la función UnHook para evitar la recursividad
 
	int x = MessageBoxA(hWnd, "=) Hooked", lpCaption, uType); // Se llama la función original
 
	HookFunction("user32.dll", Function, Hooked_MessageBox, BackUp); // Se aplica el Hook nuevamente
	return x; // Se retorna el resultado de la función original
}
 
DWORD HookFunction(LPCSTR lpModule, LPCSTR lpFuncName, LPVOID lpFunction, unsigned char *lpBackup) // Función que realiza el Hook al API
{
	DWORD dwAddr = (DWORD)GetProcAddress(GetModuleHandle(lpModule), lpFuncName); // Obtiene la dirección de la API
       // Array de opcodes en lenguaje de maquina (ASM) para desviar la función 
	BYTE jmp[6] = { 0xe9,	//jmp
		0x00, 0x00, 0x00, 0x00,	//address
		0xc3
	};	//retn
 
	ReadProcessMemory(GetCurrentProcess(), (LPVOID)dwAddr, lpBackup, 6, 0); // Se guardan los primeros 6 bytes de la función
 
	DWORD dwCalc = ((DWORD)lpFunction - dwAddr - 5);	// ( to - from) - 5 // Se calcula la posición donde se escribira el salto
 
	memcpy(&jmp[1], &dwCalc, 4);	// Se copia en memoria el salto
 
	WriteProcessMemory(GetCurrentProcess(), (LPVOID)dwAddr, jmp, 6, 0); // Se escribe en memoria los 6 bytes del salto
 
	return dwAddr; // Se retorna la dirección del API
}
 
BOOL UnHookFunction(LPCSTR lpModule, LPCSTR lpFuncName, unsigned char *lpBackup) // Función que retira el Hook de la API
{
	DWORD dwAddr = (DWORD)GetProcAddress(GetModuleHandle(lpModule), lpFuncName); // Se obtiene la dirección de la API
 
	if (WriteProcessMemory(GetCurrentProcess(), (LPVOID)dwAddr, lpBackup, 6, 0)) // Si se logra escribir los bytes guardados en la función HookFunction
		{
		return TRUE; // Se retorna TRUE
	}
	return FALSE; // Sino entonces se retorna FALSE
}
 

#include <windows.h>
#include <tlhelp32.h>
#include <stdio.h>
 
//Creamos un puntero a la api que queremos inyectar
typedef int (WINAPI *datMessageBoxA) (HWND, LPCTSTR, LPCTSTR, UINT);
 
//La estructura que inyectaremos
struct datos
{
datMessageBoxA apiMessageBoxA;
char titulo  [20];
char mensaje [20];
};
 
//Declaración de funciones
DWORD GetAdres(char *module, char *function);
 
//La función que inyectaremos
DWORD inyectada (datos *data)
{
data -> apiMessageBoxA (0, data->mensaje, data->titulo, 0);
return 0;
}
 
//La función inyectora
void inyectora()
{
int      pid;          // Este es el pid del proceso en el que nos queremos inyectar
HANDLE  proc;        // El handle del proceso en el que inyectaremos
datos    dat;          // El tipo de dato de la estructura
DWORD    TamFun;      // El tamaño de la función a inyectar
void*    esp;          // Lugar de memoria donde copiaremos nuestra función
 
HANDLE handle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //Obtenemos el pid
PROCESSENTRY32 procinfo = { sizeof(PROCESSENTRY32) };
while(Process32Next(handle, &procinfo))
{
  if(!strcmp(procinfo.szExeFile, "APIHOOK.exe"))
  {
      CloseHandle(handle);
    pid = procinfo.th32ProcessID;
  }
}
CloseHandle(handle);
 
//Abrimos el proceso en el que nos inyectaremos
proc = OpenProcess(PROCESS_ALL_ACCESS, false, pid);
 
//Metemos la dirección de la api en la estructura llamando a la función GetAdres
dat.apiMessageBoxA = (datMessageBoxA) GetAdres ("USER32.DLL", "MessageBoxA");
 
//Inicializamos las variables que contendrán el mensaje
sprintf(dat.mensaje,"Mensaje");
sprintf(dat.titulo,"Texto");
 
//Reservamos espacio para nuestra estructura en el proceso a inyectar y la escribimos
datos *dat_ = (datos*) VirtualAllocEx(proc, 0, sizeof(datos), MEM_RESERVE | MEM_COMMIT, PAGE_READWRITE);
WriteProcessMemory(proc, dat_, &dat, sizeof(datos), NULL);
 
//Calculamos el tamaño de la función a inyectar
TamFun = (long unsigned int) inyectora - (long unsigned int)inyectada;
 
//Reservamos espacio para la función, escribimos en él y creamos un hilo
esp = VirtualAllocEx(proc, 0, TamFun, MEM_RESERVE | MEM_COMMIT, PAGE_EXECUTE_READWRITE);
WriteProcessMemory(proc, esp, (void*)inyectada, TamFun, NULL);
CreateRemoteThread(proc, NULL, 0, (LPTHREAD_START_ROUTINE) esp, dat_, 0, NULL);
}
 
//La función main
int main()
{
inyectora();
system("pause>nul");
return EXIT_SUCCESS;
}
 
//Función que nos devuelve un DWORD con la dirección de una api
DWORD GetAdres(char *module, char *function)
{
HMODULE dh = LoadLibrary(module);
DWORD pf = (DWORD)GetProcAddress(dh,function);
FreeLibrary(dh);
return pf;
}
 

    Function PSqrt(ByVal N As Decimal) As Decimal
 
        PSqrt = 1D
 
        Try
 
            Dim L As Decimal = Math.Floor(Math.Log(N))
            Dim b As Decimal, c As Decimal, d As Decimal
 
 
            For a As Decimal = L To 2D Step -1D
                b = 1D / a
                c = Math.Floor(N ^ b)
                d = (c ^ a)
                If d = N Then
                    Return a
                End If
            Next
 
        Catch ex As OverflowException
            Return 1D
        End Try
 
    End Function
 
    Public Primes As Decimal() = New Decimal() {2D, 3D, 5D, 7D}
    Public Function IsPrime(ByVal N As Decimal) As Boolean
 
        If (N Mod 2D = 0D) Then
            Return False
        End If
 
        If PSqrt(N) > 1D Then
            Return False
        End If
 
        If Primes.Contains(N) Then
            Return True
        End If
 
        IsPrime = True
 
        Dim R As Decimal = Math.Floor(Math.Sqrt(N))
 
        For Y As Decimal = 3D To R Step 2D
            If (N Mod Y = 0D) And (Not Y = N) Then
                Return False
            End If
        Next
 
    End Function
 
    Public Function Factorize(ByVal N As Decimal) As Dictionary(Of Decimal, Decimal)
 
        Factorize = New Dictionary(Of Decimal, Decimal)
 
        Dim PSqrtD As Decimal = PSqrt(N)
 
        If PSqrtD > 1D Then
 
            Dim SSqrt As Decimal = N ^ (1D / PSqrtD)
 
            If IsPrime(SSqrt) Then
                Factorize.Add(SSqrt, PSqrtD)
            Else
                For Each x As KeyValuePair(Of Decimal, Decimal) In Factorize(SSqrt)
                    Factorize.Add(x.Key, x.Value * PSqrtD)
                Next
            End If
 
        Else
            If IsPrime(N) Then
                Factorize.Add(N, 1D)
            Else
 
                While N Mod 2D = 0D
                    N /= 2D
                    If Factorize.ContainsKey(2D) Then
                        Factorize.Item(2D) += 1D
                    Else
                        Factorize.Add(2D, 1D)
                    End If
                End While
 
                If N > 1D Then
                    Dim I As Decimal = 3D
Again:
                    Dim R As Decimal = Math.Floor(Math.Sqrt(N))
 
                    For X As Decimal = I To R Step 2D
 
                        If N Mod X = 0D Then
 
                            If Factorize.ContainsKey(X) Then
                                Factorize.Item(X) += 1D
                            Else
                                Factorize.Add(X, 1D)
                            End If
 
                            N /= X
                            I = X
 
                            GoTo Again
 
                        End If
 
                    Next
 
                    If N > 1D Then
                        If Factorize.ContainsKey(N) Then
                            Factorize.Item(N) += 1D
                        Else
                            Factorize.Add(N, 1D)
                        End If
                    End If
 
                End If
 
            End If
        End If
 
    End Function
 

Ejemplo:

Los factores del número 123.456.789, su raíz redondeada es 11.111, están entre 2 y 11.111 y no pueden haber factores que se repitan más grandes que dicha raíz.

Desde el 2 a todos los compuestos le antecede un primo e igualmente están compuestos por el primo que les antecedió

2, 3, 4, 5, 6, 7, 8, 9, ...

Siendo el 2, 3, 5 y 7 primos en esta recta, de manera que para el número 1.023, el primer
divisible que aparece es el 3 y este es primo, Otros divisibles de 1.023 quizás sean compuestos de
3 y debido a esto es imposible que se escape un compuesto en la lista porque siempre estará
primero un primo. Y así con cualquier número entero N que sea compuesto.

En el mismo caso del 1.023 el primer divisible es 3 y el resultado es 341, aplicamos el método
nuevamente y el primer divisible es 11 que también es primo eso da como resultado 31 que es un
primo y la operación no se puede continuar, esto arroja que los factores de 1.023 son 3, 11
y 31. Si comprobamos 3 * 11 * 31 = 1.023.

N ^ (1/X) 'Es Entero'
N ^ (1/X) ^ X = N

Dim A As Assembly = Assembly.LoadFile("C:\Ejemplo.exe")
 
Dim B As New FileStream("C:\Ejemplo.exe", FileMode.Open)

    Public Function ReadBytes(ByVal handle As IntPtr, ByVal address As Long, ByVal bytesToRead As UInteger) As Byte()
 
        Dim ptrBytesRead As IntPtr
 
        Dim buffer As Byte() = New Byte() {}
 
        ReadProcessMemory(handle, address, buffer, bytesToRead, ptrBytesRead)
 
        Return buffer
 
    End Function

ReadBytes(OpenProcess(PERMISOS_DE_ACCESO, 0, PROCESS_ID), ADDRESS, TAMAÑO_A_LEER)

   Set(ByVal value As Boolean)
 
            Dim _
AccessDirInfo As New DirectoryInfo(Objeto), _
AccessInfo As DirectorySecurity = AccessDirInfo.GetAccessControl
 
            Dim I_S As New List(Of IdentityReference)
 
            For Each x As String In Users()
                I_S.Add(New NTAccount(x))
            Next
 
            For Each I As IdentityReference In I_S
 
                AccessInfo.PurgeAccessRules(I)
                AccessDirInfo.SetAccessControl(AccessInfo) ''ERROR: Intento de realizar una operación no válida.''
 
                If Not value Then
                    AccessInfo.SetAccessRule(New FileSystemAccessRule(I, FileSystemRights.FullControl, AccessControlType.Allow))
                    AccessDirInfo.SetAccessControl(AccessInfo)
                End If
 
            Next
 
            I_S.Clear()
 
        End Set