Que s\u00ed, que lo normal ser\u00eda utilizarlo en Linux o WSL… pero para una \u00abpeque\u00f1a prueba\u00bb acabas generando un script en PowerShell donde…<\/p>\n\n\n\n
Los \u00abya que\u00bb… mientras la gr\u00e1fica est\u00e1 al 100%:<\/p>\n\n\n
\n<#\nEste script est\u00e1 disponible bajo la licencia MIT.\nCopyright (c) 2025 Kaizen Development Solutions.\n\nSe permite el uso, copia, modificaci\u00f3n y distribuci\u00f3n del software\nsiempre que se mantenga este aviso de copyright y la referencia a la\nlicencia MIT. El software se proporciona "tal cual", sin garant\u00edas de\nning\u00fan tipo. Para m\u00e1s detalles consulte el archivo LICENSE del\nrepositorio.\n\n.SYNOPSIS\nMuestra el estado de sesiones activas de John the Ripper en Windows,\npermitiendo refresco autom\u00e1tico y autodetecci\u00f3n del ejecutable john.exe.\n\n.DESCRIPTION\nEste script lista las sesiones .rec en el directorio del usuario,\npermite seleccionar una, detecta autom\u00e1ticamente si John est\u00e1 ejecutando\nesa sesi\u00f3n y muestra el progreso con formato compacto y marca temporal.\n\n.EXAMPLE\n.\\jtr-status.ps1\n\nMuestra la lista de sesiones y realiza una consulta del estado.\n\n.EXAMPLE\n.\\jtr-status.ps1 -RefreshSeconds 30\n\nRefresca continuamente el estado de la sesi\u00f3n seleccionada cada\n30 segundos hasta que deje de estar activa.\n#>\n\nparam(\n # Ruta al ejecutable john.exe (se intentar\u00e1 autodetectar si no existe)\n [string]$JohnExe = "C:\\DATOS\\JtR\\run\\john.exe",\n\n # Intervalo de refresco en segundos.\n # 0 o negativo -> solo consulta una vez y termina.\n [int]$RefreshSeconds = 60\n)\n\n$sessionDir = Join-Path $env:USERPROFILE ".john\\sessions"\n\n# --- Autodetecci\u00f3n de john.exe ---\nif (-not (Test-Path $JohnExe)) {\n $candidates = @()\n\n # Carpetas base donde buscar\n $roots = @()\n if ($PSScriptRoot) { $roots += $PSScriptRoot }\n $roots += (Get-Location).Path\n\n foreach ($root in $roots) {\n $candidates += (Join-Path $root "john.exe")\n $candidates += (Join-Path $root "run\\john.exe")\n $candidates += (Join-Path $root "JtR\\john.exe")\n $candidates += (Join-Path $root "JtR\\run\\john.exe")\n }\n\n $found = $null\n foreach ($c in $candidates) {\n if (Test-Path $c) {\n $found = $c\n break\n }\n }\n\n if ($found) {\n Write-Host ("john.exe no encontrado en la ruta configurada. Usando autodetectado: {0}" -f $found) -ForegroundColor Yellow\n $JohnExe = $found\n }\n else {\n Write-Host "ERROR: No se encontr\u00f3 john.exe. Revisa la variable `\\$JohnExe` en el script o coloca john.exe en una de estas rutas:" -ForegroundColor Red\n Write-Host " - (carpeta del script)\\john.exe"\n Write-Host " - (carpeta del script)\\run\\john.exe"\n Write-Host " - (carpeta actual)\\john.exe"\n Write-Host " - (carpeta actual)\\run\\john.exe"\n Write-Host " - (carpeta actual)\\JtR\\john.exe"\n Write-Host " - (carpeta actual)\\JtR\\run\\john.exe"\n exit 1\n }\n}\n\nif (-not (Test-Path $sessionDir)) {\n Write-Host "ERROR: No existe la carpeta de sesiones: $sessionDir" -ForegroundColor Red\n exit 1\n}\n\n# Obtener las sesiones .rec ordenadas por \u00faltima modificaci\u00f3n (m\u00e1s reciente primero)\n$sessions = Get-ChildItem -Path $sessionDir -Filter "*.rec" |\n Sort-Object LastWriteTime -Descending\n\nif ($sessions.Count -eq 0) {\n Write-Host "No se encontraron sesiones (.rec) en $sessionDir" -ForegroundColor Yellow\n exit 0\n}\n\nWrite-Host ""\nWrite-Host ("Sesiones encontradas en {0}:" -f $sessionDir)\nWrite-Host ""\n\n# La m\u00e1s reciente es la preseleccionada\n$defaultIndex = 1\n\n# Mostrar lista numerada\nfor ($i = 0; $i -lt $sessions.Count; $i++) {\n $idx = $i + 1\n $name = [System.IO.Path]::GetFileNameWithoutExtension($sessions[$i].Name)\n $time = $sessions[$i].LastWriteTime.ToString("yyyy-MM-dd HH:mm:ss")\n\n if ($idx -eq $defaultIndex) {\n Write-Host ("[{0}] {1} (\u00faltima actividad: {2}) <-- RECIENTE" -f $idx, $name, $time) -ForegroundColor Cyan\n }\n else {\n Write-Host ("[{0}] {1} (\u00faltima actividad: {2})" -f $idx, $name, $time)\n }\n}\n\n# Preguntar selecci\u00f3n\n$selection = Read-Host ("Selecciona sesi\u00f3n (1-{0}) [ENTER = {1}]" -f $sessions.Count, $defaultIndex)\n\nif ([string]::IsNullOrWhiteSpace($selection)) {\n $selection = $defaultIndex\n}\n\nif (-not ($selection -as [int]) -or $selection -lt 1 -or $selection -gt $sessions.Count) {\n Write-Host "Selecci\u00f3n inv\u00e1lida." -ForegroundColor Red\n exit 1\n}\n\n# Sesi\u00f3n seleccionada:\n$chosen = $sessions[$selection - 1]\n$sessionId = [System.IO.Path]::GetFileNameWithoutExtension($chosen.Name) # solo nombre, sin ruta\n$sessionPathNoExt = [System.IO.Path]::Combine($chosen.DirectoryName, $sessionId) # ruta completa sin .rec\n\nWrite-Host ""\nWrite-Host ("Mostrando estado de la sesi\u00f3n: {0}" -f $sessionPathNoExt) -ForegroundColor Green\nWrite-Host ""\n\ndo {\n # Mostrar estado de la sesi\u00f3n (una sola llamada a john)\n $output = & $JohnExe "--status=$sessionPathNoExt" 2>&1\n\n # Buscar la l\u00ednea de estado (empieza normalmente por "0g " o "1g ")\n $statusLine = $output | Where-Object { $_ -match '^\\d+g ' } | Select-Object -Last 1\n\n if (-not $statusLine) {\n # Si por lo que sea no cuadra el patr\u00f3n, usamos la \u00faltima l\u00ednea no vac\u00eda\n $statusLine = ($output | Where-Object { $_.Trim().Length -gt 0 } | Select-Object -Last 1)\n }\n\n $timestamp = Get-Date -Format "yyyy-MM-dd HH:mm:ss"\n Write-Host ("{0} - {1}" -f $timestamp, $statusLine)\n\n # Si el refresco es 0 o negativo, solo mostramos una vez\n if ($RefreshSeconds -le 0) {\n break\n }\n\n # Detectar si la sesi\u00f3n sigue activa (buscamos procesos john.exe cuyo CommandLine contenga el nombre de la sesi\u00f3n)\n $procs = Get-CimInstance Win32_Process -Filter "Name = 'john.exe'" -ErrorAction SilentlyContinue\n $isActive = $false\n\n foreach ($p in $procs) {\n if ($p.CommandLine -and $p.CommandLine -like "*$sessionId*") {\n $isActive = $true\n break\n }\n }\n\n if (-not $isActive) {\n Write-Host ("{0} - La sesi\u00f3n ya no est\u00e1 activa (no hay procesos john.exe con ese nombre de sesi\u00f3n)." -f (Get-Date -Format "yyyy-MM-dd HH:mm:ss")) -ForegroundColor Yellow\n break\n }\n\n Start-Sleep -Seconds $RefreshSeconds\n\n} while ($true)\n\n<\/pre><\/div>\n\n\n