Scaner RFI cu >400 buguri

[kw3rln]

#!/usr/bin/perl

# RFI Web Comp v.1 - Public Version

# Code by JosS / Jose Luis Góngora Fernández

# Contact: sys-project[at]hotmail.com

use HTTP::Request;

use LWP::UserAgent;

sub lw

{

my $SO = $^O;

my $linux = "";

if (index(lc($SO),"win")!=-1){

$linux="0";

}else{

$linux="1";

}

if($linux){

system("clear");

}

else{

system("cls");

system ("title RFI Web Comp v.1 - By JosS");

system ("color 02");

}

}

&lw;

print "\t\t########################################################\n\n";

print "\t\t# RFI Web Comp .v1 - Spanish Hackers Team #\n\n";

print "\t\t# by JosS #\n\n";

print "\t\t########################################################\n\n";

print "Insert host:(ex: http://www.site.com/)\n";

$host=<STDIN>;

chomp $host;

print "\n";

# Si la url no tiene http: al principio

if ( $host !~ /^http:/ ) {

# lo a

[katmai]

Frumoooooooooooooooooooooooos

PS.pune si tu iconitele :twisted: :evil:

[Cril]

nu cred ca gaseste ceva... cel putin inca nu l-am incercat... o sa editez postul si spun daca e bun de ceva... la prima vedere pare excelent:P

[Ras]

l-am testat acum mult timp... din cate imi aduc aminte... o sa iti ceara un site pe care il scaneaza... mie atunci nu mi-a mers... poate a mai modificat cineva ceva in el...

[michee]

la prima vedere cred ca putea fi codat putin mai bine totusi........

numarul 435 din for-ul acela ma deranjeaza.....eu nu stiu perl........dar nu exista o functie count ca in php care sa zica nr de elem. din vector? Ca sa nu modific acolo mereu.....stie careva cum poate fi modificat?

[tw8]

dar nu exista o functie count ca in php care sa zica nr de elem. din vector?

Nu stiu daca exista sau nu, dar, oricum, ar trebui modificat putin mai mult.

Motivul e simplu: ce vezi tu acolo nici macar nu e un vector, ci pur si simplu sunt variabile total diferite .

Daca vrei sa citesti despre vectori in Perl gasesti documentatie aici.

Bafta .