Underc0de - Hacking y seguridad informática

Programación Scripting => Otros lenguajes Scripting => Mensaje iniciado por: andergedon en Diciembre 07, 2017, 05:48:13 pm

Título: [POWERSHELL] Comprobar si múltiples correos han sido filtrados
Publicado por: andergedon en Diciembre 07, 2017, 05:48:13 pm
Hola undercoders! Hice un pequeño script para comprobar si uno o más correos han sido filtrados en algún momento. El script utiliza la API de Hacked-emails (https://hacked-emails.com/) para confirmar. Solo necesitamos un archivo emails.txt con todos los correos a testear para empezar a correr el script y luego si lo deseamos exportar todos los positivos a otro archivo

(https://i.imgur.com/7lfw7yX.jpg)


Código: [Seleccionar]
if((test-path "emails.txt") -eq $false){
    write-error "Archivo 'emails.txt' faltante"
}

$emails = get-content emails.txt
$ouput

foreach($mail in $emails){
   
   if($mail -notmatch '[a-zA-Z0-9.-]+@\w+\.\w+'){continue}

   $test = invoke-webrequest "https://hacked-emails.com/api?q=$mail"
   if($test.content -match '(:0)(?=,"data")'){
       write-host "Ninguna entrada para $mail !" -foreground green
       write-host "`n============================`n"
    }else{
if($test.content -match '(\d+)(?=,"data")'){}
$matches = ([regex]'https:[a-zA-Z\\\/-]+\.com\\\/leak\\\/[a-zA-Z0-9-.]+').Matches($test.content);

write-host "[x]" $matches.Count " Entradas para $mail [+] `n" -foreground red
    $output += @("$mail`n")
foreach($link in $matches){
    write-host "E-mail filtrado en:" ($link -replace "\\") -foreground red
    $output += @($link -replace "\\")
}
$output += @("`n==========================`n")
write-host "`n============================`n"
    }

}

write-host "Exportar e-mails filtrados? S/N > " -NoNewLine
   $x=read-host

    if($x -eq 's' -or $x -eq 'S'){set-content "output.txt" $output}
Título: Re:[POWERSHELL] Comprobar si múltiples correos han sido filtrados
Publicado por: Mortal_Poison en Diciembre 22, 2017, 06:46:51 am
Hola andergedon, (https://underc0de.org/foro/profile/MisterS/)

Súper interesante el aporte, de hecho, tengo un correo que no uso hace años, lo puse y adivina ;D.

Un saludo.