kw3rln Posted December 27, 2007 Report Share Posted December 27, 2007 #!/usr/bin/perl# RFI Web Comp v.1 - Public Version# Code by JosS / Jose Luis Góngora Fernández# Contact: sys-project[at]hotmail.comuse 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 Quote Link to comment Share on other sites More sharing options...
katmai Posted December 27, 2007 Report Share Posted December 27, 2007 Frumoooooooooooooooooooooooos PS.pune si tu iconitele :twisted: :evil: Quote Link to comment Share on other sites More sharing options...
Cril Posted December 27, 2007 Report Share Posted December 27, 2007 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 Quote Link to comment Share on other sites More sharing options...
Ras Posted December 27, 2007 Report Share Posted December 27, 2007 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... Quote Link to comment Share on other sites More sharing options...
michee Posted December 28, 2007 Report Share Posted December 28, 2007 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? Quote Link to comment Share on other sites More sharing options...
tw8 Posted December 28, 2007 Report Share Posted December 28, 2007 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 . Quote Link to comment Share on other sites More sharing options...