Guest Kronzy Posted September 28, 2014 Report Share Posted September 28, 2014 #!/usr/bin/perl# Give comments or suggestions about it in forum > r00tw0rm.com/1337# “You cannot continue to victimize someone else just because you yourself were a victim once --- There has to be a limit” # R00TW0RM - Private Community# // CrosS# http://1337day.com | https://r00tw0rm.com# Greets: 1337day.com/team | r00tw0rm.com/teamuse LWP::UserAgent;if (!$ARGV[0]) {print q (############################################################################## __ __ __ __ ## /'__`\ /'__`\/\ \__ /'__`\ ## _ __ /\ \/\ \/\ \/\ \ \ ,_\ __ __ __/\ \/\ \ _ __ ___ ___ ## /\`'__\ \ \ \ \ \ \ \ \ \ \/ /\ \/\ \/\ \ \ \ \ \/\`'__\/' __` __`\ ## \ \ \/ \ \ \_\ \ \ \_\ \ \ \_\ \ \_/ \_/ \ \ \_\ \ \ \/ /\ \/\ \/\ \ ## \ \_\ \ \____/\ \____/\ \__\\ \___x___/'\ \____/\ \_\ \ \_\ \_\ \_\ ## \/_/ \/___/ \/___/ \/__/ \/__//__/ \/___/ \/_/ \/_/\/_/\/_/ ## ## Private Community ## ############################################################################## 4dm1N F1nD3R 0x0_o Usage: perl rw.pl http://target.com [+] Shout aloud,Screaming aloud...Party,fiesta ..Forever...);exit 1;}$target = $ARGV[0];print("\n [-] Scanning: $target \n"); @paNeles) { $buscador = LWP::UserAgent->new() or die; $search = $buscador->get($target."/".$finder); if ($search->content =~ /username/ || $search->content =~ /Username/ || $search->content =~ /UserName/ || $search->content =~ /user/ || $search->content =~ /User/ || $search->content =~ /us3r/ || $search->content =~ /UsEr/ || $search->content =~ /password/ || $search->content =~ /Password/ || $search->content =~ /password/ || $search->content =~ /passWord/ || $search->content =~ /senha/ || $search->content =~ /Senha/ || $search->content =~ /pass/ || $search->content =~ /Pass/ || $search->content =~ /pwd/ || $search->content =~ /Pwd/ ) { print("\n [+] scanneD: $target/$finder \n\a"); }}exit 1;0 Quote Link to comment Share on other sites More sharing options...
c0bra1337 Posted December 27, 2014 Report Share Posted December 27, 2014 un tutorial ? Quote Link to comment Share on other sites More sharing options...
z4rk Posted December 27, 2014 Report Share Posted December 27, 2014 Usage: perl rw.pl Target : Expect More. Pay Less.Scrie chiar la inceput. Quote Link to comment Share on other sites More sharing options...
drotha2 Posted December 27, 2014 Report Share Posted December 27, 2014 Hi,Thanks for share.Merry Christmas! Quote Link to comment Share on other sites More sharing options...