[void][Windows.Security.Credentials.PasswordVault,Windows.Security.Credentials,ContentType=WindowsRuntime]
    $vault = New-Object Windows.Security.Credentials.PasswordVault
    $vault.RetrieveAll() | % { $_.RetrievePassword();$_ }

javascript:document.body.contentEditable='true'; document.designMode='on'; void 0

javascript:document.body.contentEditable='false'; document.designMode='off'; void 0

@echo off
title Copy b Binder 79137913
echo.
cls 
:f
echo.
echo Inserte el nombre del archivo (Ejemplo: MiArchivo.rar)
set/p "fil=>"
goto cf :cf
cls
if exist %fil% (
goto i
) else (
echo.
echo No se encontro el archivo en esta carpeta.
goto f
)
:i
echo.
echo Inserte el nombre del segundo archivo (Ejemplo: Imagen.jpg)
set/p "img=>"
goto ci :ci
cls
if exist %img% (
goto o
) else (
echo.
echo No se encontro el archivo en esta carpeta.
goto i
)
:o
echo. 
echo Inserte el nombre del archivo final (Ejemplo: Secreto.jpg)
set/p "out=>"
:mydata
cls
echo.
echo Detalle del trabajo a realizar:
echo Archivo 1 = %fil%
echo Archivo 2 =%img%
echo Archivo de salida =%out%
echo.
echo If the information is correct then
pause
echo.
echo Comenzando proceso, puede demorar...
copy /b "%fil%"+"%img%" "%out%"
echo.
echo Terminado satisfactoriamente, presione una tecla para salir.
pause

$totallineas = 20000            ;Cantidad de lineas
$salida = "Basura.txt"     ;Archivo de salida
$numlines = 10             ;Lineas temporales (con 10 anda bien)

FileDelete($salida)

Dim $lineas[$numlines + 1] 
$lineas[0] = $numlines
_dimlines($numlines) 
FileWrite($salida, "") 
$i = 0 
$paso = Random(20,30,1) 
Do 
    If $i = $paso Then 
        $paso = $paso + Random($i + 20, $i + 30,1)
        _dimlines($numlines)
    EndIf 
    $i = $i + 1 
    $rand = Random(1,10,1) 
    FileWriteLine($salida, $lineas[$rand]) 
    $porcentaje = $i / $totallineas * 100 
    ToolTip("Se crearon: "$i & " de " & $totallineas & " lineas - (" & $porcentaje & "%)")
Until $i = $totallineas 

Func _dimlines($dsalida) 
    $d = 1
    Do 
        $lineas[$d] =  "$" & Random(50000,150000,1) & ' = "' & Random(50000,150000,1) & '"' 
        $d = $d + 1 ;$d++
    Until $d = $dsalida 
EndFunc 

@echo off >Nul
Setlocal EnableDelayedExpansion
Title Generador de Passwords en BATCH
:menu
SET "compiled="
echo Generador de Passwords en BATCH
Set/p "psschr=Inserte cantidad de caracteres deseados: "
If %psschr%==0 (Set "amount=menor" && Set "val=1" && call :invalid)
If %psschr% GTR 60000 (Set "amount=mayor" && Set "val=60000" && call :invalid)

Set "chars=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#+-}./]{?$,:@\[_~"
Set count=1
:x
Set /a count+=1
Set rand=%Random%
Set /a rand=rand%%79
SET compiled=%compiled%!chars:~%rand%,1!
If !count! leq %psschr% goto :x
echo.
echo Contraseña: !compiled!
echo.
:clipboard
set /p "choice=Quiere que la contraseña quede copiada en su portapapeles? (Y/N): "
If not defined choice (
cls
goto :clipboard
)
if /i %choice% == y call :copy
if /i %choice% == yes call :copy
if /i %choice% == no goto menu
if /i %choice% == n goto menu
goto :menu
@exit /B

:invalid
cls
echo La longitud solicitada es ( %amount% ) al limite ( %val% ).
pause >nul & goto :menu
@exit /B

:copy
echo !compiled! | clip
echo.
echo La contraseña ha sido copiada a tu portapapeles.
Timeout /T 5 >nul
goto :menu
@exit /B