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)
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}
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.